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.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1b4401bab644366b8e40b78c32956e854102f1f7..f4abde4fbe8c860df4033dcf3202ec456719964a 100644 (file)
--- 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 d809db7d15899307f284bc55e6efe3836a8aae0d..33594fdca9339072bce69c55e6cec2995bb0a927 100644 (file)
--- 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 033b5ef73dc470867caa865c775cabd88255ec54..0386aa1df9632d7c393372796380e724ada8f707 100644 (file)
--- 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)"] && \