diff options
| author | Michael Snyder <msnyder@specifix.com> | 2002-05-23 15:42:44 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@specifix.com> | 2002-05-23 15:42:44 +0000 |
| commit | 43f805057b63c32194ba6a426af8d1b0307f7bc4 (patch) | |
| tree | 4c020cb5f80351cb7f7707d6dd655c47fee2d91b /gdb | |
| parent | 0bd2384fe1128c431edeab5b171f038cd1b0aaa5 (diff) | |
| download | gdb-43f805057b63c32194ba6a426af8d1b0307f7bc4.tar.gz | |
2002-05-23 Michael Snyder <msnyder@redhat.com>
* gdb.base/all-bin.exp: Allow for reduced floating point precision.
* gdb.base/call-rt-st.exp: Ditto.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/all-bin.exp | 14 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/call-rt-st.exp | 10 |
3 files changed, 24 insertions, 5 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 1b4401bab64..f4abde4fbe8 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-05-23 Michael Snyder <msnyder@redhat.com> + + * gdb.base/all-bin.exp: Allow for reduced floating point precision. + * gdb.base/call-rt-st.exp: Ditto. + 2002-05-19 Michael Chastain <mec@shout.net> * gdb.c++/inherit.exp: Accept "VTT for ..." in output strings. diff --git a/gdb/testsuite/gdb.base/all-bin.exp b/gdb/testsuite/gdb.base/all-bin.exp index d809db7d158..33594fdca93 100644 --- a/gdb/testsuite/gdb.base/all-bin.exp +++ b/gdb/testsuite/gdb.base/all-bin.exp @@ -189,10 +189,18 @@ send_gdb "print v_int+v_double\n" gdb_expect { -re ".*206.56565.*$gdb_prompt $" { pass "print value of v_int+v_double" - } + } + -re ".*206.565643.*$gdb_prompt $" { + # D10V has 4-byte doubles + if [istarget "d10v*-*"] then { + pass "print value of v_int+v_double (D10V)" + } else { + fail "print value of v_int+v_double (precision)" + } + } -re ".*$gdb_prompt $" { fail "print value of v_int+v_double" } - timeout { fail "(timeout) print value of v_int+" } - } + timeout { fail "(timeout) print value of v_int+v_double" } +} # diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp index 033b5ef73dc..0386aa1df96 100644 --- a/gdb/testsuite/gdb.base/call-rt-st.exp +++ b/gdb/testsuite/gdb.base/call-rt-st.exp @@ -175,8 +175,14 @@ if ![gdb_skip_stdio_test "print print_one_large_struct(...)"] { if {![gdb_skip_float_test "print print_one_double(*d1)"] && \ ![gdb_skip_stdio_test "print print_one_double(*d1)"] } { - print_struct_call "print_one_double(*d1)" \ - ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11111\\}" + if [istarget "d10v*-*"] then { + # D10V has 4-byte doubles + print_struct_call "print_one_double(*d1)" \ + ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11110997\\}" + } else { + print_struct_call "print_one_double(*d1)" \ + ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11111\\}" + } } if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \ |