2010-11-29 Michael Snyder <msnyder@msnyder-server.eng.vmware.com>

	* gdb.base/callfuncs.exp: Test for skip_float_tests.
	* gdb.base/call-sc.exp: Ditto.
	* gdb.base/finish.exp: Ditto.
	* gdb.base/return.exp: Ditto.
	* gdb.base/return2.exp: Ditto.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a57716de77cfb9bc9aeab0df9e887b8e462a85f7..569c7b63a40d8a3f1995b965972a25facc781947 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2010-11-29  Michael Snyder  <msnyder@msnyder-server.eng.vmware.com>
+
+       * gdb.base/callfuncs.exp: Test for skip_float_tests.
+       * gdb.base/call-sc.exp: Ditto.
+       * gdb.base/finish.exp: Ditto.
+       * gdb.base/return.exp: Ditto.
+       * gdb.base/return2.exp: Ditto.
+
 2010-11-30  Doug Evans  <dje@google.com>
 
        * lib/gdb.exp (gdb_test_sequence): Return result of gdb_expect_list.

diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp
index 5abbd4436e52f491b1ead507ccea7c06f46db5ff..a357cd97126b50bde53f6132aaa720f58bc6c573 100644 (file)
--- a/gdb/testsuite/gdb.base/call-sc.exp
+++ b/gdb/testsuite/gdb.base/call-sc.exp
@@ -440,20 +440,22 @@ start_scalars_test tll
 test_scalar_calls
 test_scalar_returns
 
-# Approx size: 4, 8, ...
-start_scalars_test tf
-test_scalar_calls
-test_scalar_returns
-
-# Approx size: 8, 16, ...
-start_scalars_test td
-test_scalar_calls
-test_scalar_returns
-
-# Approx size: 16, 32, ...
-start_scalars_test tld
-test_scalar_calls
-test_scalar_returns
+if ![target_info exists gdb,skip_float_tests] {
+    # Approx size: 4, 8, ...
+    start_scalars_test tf
+    test_scalar_calls
+    test_scalar_returns
+
+    # Approx size: 8, 16, ...
+    start_scalars_test td
+    test_scalar_calls
+    test_scalar_returns
+
+    # Approx size: 16, 32, ...
+    start_scalars_test tld
+    test_scalar_calls
+    test_scalar_returns
+}
 
 # Approx size: 4, 8, ...
 start_scalars_test te

diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index 613b5f0d818c566abc91aa48526e965a09f0f602..0a9ac45adec0cb1131979cdace4d2ba839b75730 100644 (file)
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -209,10 +209,14 @@ proc do_function_calls {} {
        "call inferior func with struct - returns int"
     gdb_test "p t_structs_l(struct_val1)" "= 51" \
        "call inferior func with struct - returns long"
-    gdb_test "p t_structs_f(struct_val1)" "= 2.12.*" \
-               "call inferior func with struct - returns float"
-    gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \
-       "call inferior func with struct - returns double"
+
+    if ![target_info exists gdb,skip_float_tests] {
+       gdb_test "p t_structs_f(struct_val1)" "= 2.12.*" \
+           "call inferior func with struct - returns float"
+       gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \
+           "call inferior func with struct - returns double"
+    }
+
     gdb_test "p t_structs_a(struct_val1)" "= (.unsigned char .. )?\"foo\"" \
        "call inferior func with struct - returns char *"
 }

diff --git a/gdb/testsuite/gdb.base/finish.exp b/gdb/testsuite/gdb.base/finish.exp
index 83893b8c82833a203f0c048ae610a05f6ee8d554..9c796ca75db4fdf966f6f4a544c28030984b4441 100644 (file)
--- a/gdb/testsuite/gdb.base/finish.exp
+++ b/gdb/testsuite/gdb.base/finish.exp
@@ -103,8 +103,10 @@ proc finish_tests { } {
     finish_1 "int"
     finish_1 "long"
     finish_1 "long_long"
-    finish_1 "float"
-    finish_1 "double"
+    if ![target_info exists gdb,skip_float_tests] {
+       finish_1 "float"
+       finish_1 "double"
+    }
     finish_abbreviation "fin"
 }
 

diff --git a/gdb/testsuite/gdb.base/return.exp b/gdb/testsuite/gdb.base/return.exp
index dcd66f895cfcf5634c579ebfe8d97c6352b55962..47967d76181c73c4b4b1166788c6199f708d54c0 100644 (file)
--- a/gdb/testsuite/gdb.base/return.exp
+++ b/gdb/testsuite/gdb.base/return.exp
@@ -89,7 +89,10 @@ proc return_tests { } {
     # is not xfailed.
 
     setup_xfail "sparc-*-solaris2.3*" "sparc-*-solaris2.4*" "m6811-*-*"
-    gdb_test "p tmp3" ".* = 5.*" "correct value returned double test (known problem with sparc solaris)"
+    if ![target_info exists gdb,skip_float_tests] {
+       gdb_test "p tmp3" ".* = 5.*" \
+           "correct value returned double test (known problem with sparc solaris)"
+    }
 }
 
 set prev_timeout $timeout

diff --git a/gdb/testsuite/gdb.base/return2.exp b/gdb/testsuite/gdb.base/return2.exp
index f3d69d407e2a898daa2618504968d3bb4c5299d5..c268c78a86c69061db1eceb4a2843d164d7c558d 100644 (file)
--- a/gdb/testsuite/gdb.base/return2.exp
+++ b/gdb/testsuite/gdb.base/return2.exp
@@ -98,9 +98,11 @@ proc return2_tests { } {
     if { ! [istarget "m6811-*-*"] && ![istarget "h8300*-*"] } then {
         return_1 "long_long"
     }
-    return_1 "float"
-    if { ! [istarget "m6811-*-*"] } then {
-        return_1 "double"
+    if ![target_info exists gdb,skip_float_tests] {
+       return_1 "float"
+       if { ! [istarget "m6811-*-*"] } then {
+           return_1 "double"
+       }
     }
 }