From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14451 invoked by alias); 25 Nov 2004 19:20:45 -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 14422 invoked from network); 25 Nov 2004 19:20:40 -0000 Received: from unknown (HELO dublin.act-europe.fr) (212.157.227.154) by sourceware.org with SMTP; 25 Nov 2004 19:20:40 -0000 Received: from localhost (province.act-europe.fr [10.10.0.214]) by filtered-dublin.act-europe.fr (Postfix) with ESMTP id 169E7229E4C; Thu, 25 Nov 2004 20:20:39 +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 37743-09; Thu, 25 Nov 2004 20:20:38 +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 D3D54229E4B; Thu, 25 Nov 2004 20:20:38 +0100 (MET) Received: by berne.act-europe.fr (Postfix, from userid 560) id 9C92F592B; Thu, 25 Nov 2004 14:20:38 -0500 (EST) Date: Thu, 25 Nov 2004 19:20:00 -0000 From: Jerome Guitton To: gdb-patches@sources.redhat.com Cc: Elena Zannoni Subject: [RFA/testsuite] Ada fixed points [was stabs: octal negative numbers] Message-ID: <20041125192038.GA20252@adacore.com> References: <20041026173953.GA31663@act-europe.fr> <20041123140912.GA16691@adacore.com> <16803.18707.377459.922918@localhost.redhat.com> <20041123143812.GJ15300@adacore.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Q68bSM7Ycu6FN28Q" Content-Disposition: inline In-Reply-To: <20041123143812.GJ15300@adacore.com> User-Agent: Mutt/1.4i X-Virus-Scanned: by amavisd-new at act-europe.fr X-SW-Source: 2004-11/txt/msg00467.txt.bz2 --Q68bSM7Ycu6FN28Q Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-length: 323 Jerome Guitton (guitton@act-europe.fr): > OK, I will allocate some time to work on it this week, and I will > commit this change when the testcase is accepted. Test in attachement. OK to commit? 2004-11-25 Jerome Guitton * gdb.ada/fixed_points.c: New file. * gdb.ada/fixed_points.exp: New file. --Q68bSM7Ycu6FN28Q Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="fixed_points.exp" Content-length: 1572 # 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"] send_gdb "break ${srcfile}:$bp_location\n"; gdb_expect -re "$gdb_prompt $" send_gdb "run\n"; gdb_expect -re "$gdb_prompt $" 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" --Q68bSM7Ycu6FN28Q Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="fixed_points.adb" Content-length: 688 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; --Q68bSM7Ycu6FN28Q--