From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 19334 invoked by alias); 18 Feb 2009 14:47:18 -0000 Received: (qmail 19304 invoked by uid 22791); 18 Feb 2009 14:47:17 -0000 X-SWARE-Spam-Status: No, hits=-1.0 required=5.0 tests=AWL,BAYES_05,J_CHICKENPOX_63 X-Spam-Check-By: sourceware.org Received: from mailhost.u-strasbg.fr (HELO mailhost.u-strasbg.fr) (130.79.200.157) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 18 Feb 2009 14:47:10 +0000 Received: from baal.u-strasbg.fr (baal.u-strasbg.fr [IPv6:2001:660:2402::41]) by mailhost.u-strasbg.fr (8.14.2/jtpda-5.5pre1) with ESMTP id n1IEkpWR073467 ; Wed, 18 Feb 2009 15:46:51 +0100 (CET) Received: from mailserver.u-strasbg.fr (ms1.u-strasbg.fr [IPv6:2001:660:2402:d::10]) by baal.u-strasbg.fr (8.14.0/jtpda-5.5pre1) with ESMTP id n1IEknk4093643 ; Wed, 18 Feb 2009 15:46:51 +0100 (CET) (envelope-from muller@ics.u-strasbg.fr) Received: from d620muller (www-ics.u-strasbg.fr [130.79.210.225]) (user=mullerp mech=LOGIN) by mailserver.u-strasbg.fr (8.14.3/jtpda-5.5pre1) with ESMTP id n1IEkn5L002549 (version=TLSv1/SSLv3 cipher=RC4-MD5 bits=128 verify=NO) ; Wed, 18 Feb 2009 15:46:49 +0100 (CET) (envelope-from muller@ics.u-strasbg.fr) From: "Pierre Muller" To: Cc: "'Tom Tromey'" Subject: [Commit] testsuite/gdb.pascal Date: Wed, 18 Feb 2009 18:44:00 -0000 Message-ID: <001601c991d7$bc899860$359cc920$@u-strasbg.fr> MIME-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2009-02/txt/msg00382.txt.bz2 Thanks to the GCC Compile Farm account that I just got I was able to check pascal tests on amd64, and immediately found some errors in the testsuite. Committed as pascal language maintainer. PS: Tom, could you help me out with the patch tester scripts? Pierre Muller Pascal language support maintainer for GDB ChangeLog Entry: 2009-02-18 Pierre Muller * gdb.pascal/floats.exp: Accept approximate results everywhere. Index: gdb.pascal/floats.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.pascal/floats.exp,v retrieving revision 1.2 diff -u -p -r1.2 floats.exp --- gdb.pascal/floats.exp 3 Jan 2009 05:58:06 -0000 1.2 +++ gdb.pascal/floats.exp 18 Feb 2009 14:26:36 -0000 @@ -76,10 +76,10 @@ gdb_test "print r + t" " = -1\\.9(499.*| #Test addition with float constants gdb_test "print r + 1.5" " = 2\\.7(499.*|5|500.*)" gdb_test "print r + 0.03" " = 1\\.2(799.*|8|800.*)" -gdb_test "print r + (-0.2)" " = 1\\.0(499|5|500.*)" +gdb_test "print r + (-0.2)" " = 1\\.0(499.*|5|500.*)" gdb_test "print r + 1.5E+3" " = 1501\\.2(499.*|5|500.*)" gdb_test "print r + 1.5E+2" " = 151\\.2(499.*|5|500.*)" -gdb_test "print r + 1.5E+1" " = 16\\.2(499|5|500.*)" +gdb_test "print r + 1.5E+1" " = 16\\.2(499.*|5|500.*)" gdb_test "print r + 1.5E+0" " = 2\\.7(499.*|5|500.*)" gdb_test "print r + 1.5E-1" " = 1\\.(399.*|4|400.*)" gdb_test "print r + 1.5E-2" " = 1\\.26(499.*|5|500.*)" @@ -93,7 +93,7 @@ gdb_test "print l + t" " = -2\\.(199.*|2 gdb_test "print r + 10" " = 11\\.2(499.*|5|500.*)" gdb_test "print r + 5" " = 6\\.2(499.*|5|500.*)" gdb_test "print r + 1" " = 2\\.2(499.*|5|500.*)" -gdb_test "print r + 0" " = 1\\.2(499|5|500.*)" +gdb_test "print r + 0" " = 1\\.2(499.*|5|500.*)" gdb_test "print r + (-1)" " = 0\\.2(499.*|5|500.*)" gdb_test "print r + (-5)" " = -3\\.7(499.*|5|500.*)" gdb_test "print r + (-10)" " = -8\\.7(499.*|5|500.*)" @@ -120,7 +120,7 @@ gdb_test "print 35 / 2" " = 17\\.(499.*| # 'set r' does not work, as there are set sub-commands starting with 'r' # Thus we need to use 'set var r' gdb_test "set var r := 2.56" " := 2\\.56" -gdb_test "print r" " = 2\\.56.*" "Testing new r value" +gdb_test "print r" " = 2\\.5(599.*|6|600.*)" "Testing new r value" gdb_test "cont" \ "Breakpoint .*:${bp_location2}.*" \