From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 30088 invoked by alias); 29 Nov 2004 10:24:33 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 30074 invoked from network); 29 Nov 2004 10:24:26 -0000 Received: from unknown (HELO dublin.act-europe.fr) (212.157.227.154) by sourceware.org with SMTP; 29 Nov 2004 10:24:26 -0000 Received: from localhost (province.act-europe.fr [10.10.0.214]) by filtered-dublin.act-europe.fr (Postfix) with ESMTP id A3F5A229E4C; Mon, 29 Nov 2004 11:24:24 +0100 (MET) Received: from dublin.act-europe.fr ([10.10.0.154]) by localhost (province.act-europe.fr [10.10.0.214]) (amavisd-new, port 10024) with ESMTP id 49822-04; Mon, 29 Nov 2004 11:24:24 +0100 (CET) Received: from berne.act-europe.fr (berne.act-europe.fr [10.10.0.165]) by dublin.act-europe.fr (Postfix) with ESMTP id 5ECBB229E4B; Mon, 29 Nov 2004 11:24:24 +0100 (MET) Received: by berne.act-europe.fr (Postfix, from userid 560) id 279B9592B; Mon, 29 Nov 2004 05:24:24 -0500 (EST) Date: Mon, 29 Nov 2004 10:24:00 -0000 From: Jerome Guitton To: gdb-patches@sources.redhat.com, Elena Zannoni Subject: Re: [RFA/testsuite] Ada fixed points [was stabs: octal negative numbers] Message-ID: <20041129102424.GJ20670@adacore.com> References: <20041026173953.GA31663@act-europe.fr> <20041123140912.GA16691@adacore.com> <16803.18707.377459.922918@localhost.redhat.com> <20041123143812.GJ15300@adacore.com> <20041125192038.GA20252@adacore.com> <20041128174901.GD24639@nevyn.them.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="61jdw2sOBCFtR2d/" Content-Disposition: inline In-Reply-To: <20041128174901.GD24639@nevyn.them.org> User-Agent: Mutt/1.4i X-Virus-Scanned: by amavisd-new at act-europe.fr X-SW-Source: 2004-11/txt/msg00510.txt.bz2 --61jdw2sOBCFtR2d/ Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 303 Daniel Jacobowitz (drow@false.org): > Please don't hardcode "run". Can you use > "runto ${srcfile}:$bp_location" > instead of these two lines? > Please add a copyright notice to this file. Daniel, Thank you for your review. I fixed these two problems; new files in attachment. OK now? -- Jerome --61jdw2sOBCFtR2d/ Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="fixed_points.exp" Content-length: 1480 # Copyright 2004 Free Software Foundation, Inc. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, # USA. if $tracelevel then { strace $tracelevel } load_lib "ada.exp" set testfile "fixed_points" set srcfile ${testfile}.adb set binfile ${objdir}/${subdir}/${testfile} if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } { return -1 } gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} set bp_location [gdb_get_line_number "Set breakpoint here"] runto "${srcfile}:$bp_location" gdb_test "print base_object" \ ".* = -50" \ "p on a fixed point type" gdb_test "print subtype_object" \ ".* = -50" \ "p on a subtype fixed point type" gdb_test "print new_type_object" \ ".* = -50" \ "p on a new fixed point type" --61jdw2sOBCFtR2d/ Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="fixed_points.adb" Content-length: 1467 -- Copyright 2004 Free Software Foundation, Inc. -- -- This program is free software; you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation; either version 2 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program; if not, write to the Free Software -- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. with System; procedure Fixed_Points is type Base_Fixed_Point_Type is delta 1.0 / 16.0 range (System.Min_Int / 2) * 1.0 / 16.0 .. (System.Max_Int / 2) * 1.0 / 16.0; subtype Fixed_Point_Subtype is Base_Fixed_Point_Type range -50.0 .. 50.0; type New_Fixed_Point_Type is new Base_Fixed_Point_Type range -50.0 .. 50.0; Base_Object : Base_Fixed_Point_Type := -50.0; Subtype_Object : Fixed_Point_Subtype := -50.0; New_Type_Object : New_Fixed_Point_Type := -50.0; begin Base_Object := 1.0/16.0; -- Set breakpoint here Subtype_Object := 1.0/16.0; New_Type_Object := 1.0/16.0; end Fixed_Points; --61jdw2sOBCFtR2d/--