From: "Pierre Muller" <muller@ics.u-strasbg.fr>
To: <gdb-patches@sourceware.org>
Cc: "'Tom Tromey'" <tromey@redhat.com>
Subject: [Commit] testsuite/gdb.pascal
Date: Wed, 18 Feb 2009 18:44:00 -0000 [thread overview]
Message-ID: <001601c991d7$bc899860$359cc920$@u-strasbg.fr> (raw)
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 <muller@ics.u-strasbg.fr>
* 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}.*" \
next reply other threads:[~2009-02-18 14:47 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-02-18 18:44 Pierre Muller [this message]
2009-02-18 18:46 ` Tom Tromey
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='001601c991d7$bc899860$359cc920$@u-strasbg.fr' \
--to=muller@ics.u-strasbg.fr \
--cc=gdb-patches@sourceware.org \
--cc=tromey@redhat.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox