2002-05-08 Michael Snyder <msnyder@redhat.com>

	* gdb.base/long_long.exp: Merge clauses for arm and xscale.
	* gdb.base/default.exp: Merge clauses for arm, strongarm, xscale.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 34c4a23b4016a4fe2e6a1894d30c5f5d36f913d0..ff754838954595acf39857e9bb2bd95b9573c038 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-08  Michael Snyder  <msnyder@redhat.com>
+
+       * gdb.base/long_long.exp: Merge clauses for arm and xscale.
+       * gdb.base/default.exp: Merge clauses for arm, strongarm, xscale.
+
 2002-05-06  Michael Snyder  <msnyder@redhat.com>
 
        * lib/gdb.exp (gdb_test): Add case to allow for status wrapper.

diff --git a/gdb/testsuite/gdb.base/default.exp b/gdb/testsuite/gdb.base/default.exp
index 09b65a914847a715514dfe1066eb01db56556544..ea8ba503c6b9ec96cb5fcdf2174ad0a18963e895 100644 (file)
--- a/gdb/testsuite/gdb.base/default.exp
+++ b/gdb/testsuite/gdb.base/default.exp
@@ -320,13 +320,9 @@ gdb_test "info frame" "No stack.|No selected frame." "info frame"
 #test info files
 gdb_test "info files" "" "info files"
 #test info float
-if [istarget "arm*-*-*"] then {
-    gdb_test "info float" "Software FPU type.*mask:.*flags:.*" "info float"
-} elseif [istarget "xscale*-*-*"] then {
-    gdb_test "info float" "Software FPU type.*mask:.*flags:.*" "info float"
-} elseif [istarget "thumb*-*-*"] then {
-    gdb_test "info float" "Software FPU type.*mask:.*flags:.*" "info float"
-} elseif [istarget "strongarm*-*-*"] then {
+if { [istarget "arm*-*-*"] || \
+       [istarget "xscale*-*-*"] || \
+       [istarget "strongarm*-*-*"] } then {
     gdb_test "info float" "Software FPU type.*mask:.*flags:.*" "info float"
 } elseif [istarget "i\[3456\]86-*-*"] then {
     gdb_test "info float" "R7:.*Status Word:.*Opcode:.*" "info float"

diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp
index 016b0e67f6b29295485cdffad2ac1cd2aaaf651f..182f049cff050d59200ee757f97b9f8b8c79ca5a 100644 (file)
--- a/gdb/testsuite/gdb.base/long_long.exp
+++ b/gdb/testsuite/gdb.base/long_long.exp
@@ -152,23 +152,14 @@ if { $sizeof_double == 8 } {
 # but a hybrid.  They are in little endian format with the two words
 # swapped in big endian format.
 
-  if [ istarget "arm*-*-*" ] then {
-
-#   assume the long long represents a floating point double in ARM format
-     gdb_test "p/f oct" ".*2.1386676354387559e\\+265.*"
-
-  } elseif [ istarget "xscale*-*-*" ] then {
-
-#   assume the long long represents a floating point double in ARM format
-     gdb_test "p/f oct" ".*2.1386676354387559e\\+265.*"
-
-  } else {
-
-#   assume the long long represents a floating point double in little
-#   endian format
-    gdb_test "p/f oct" ".*-5.9822653797615723e-120.*"
-
-  }
+    if { [istarget "arm*-*-*"] || [istarget "xscale*-*-*"] } then {
+       # assume the long long represents a floating point double in ARM format
+       gdb_test "p/f oct" ".*2.1386676354387559e\\+265.*"
+    } else {
+       # assume the long long represents a floating point double in little
+       # endian format
+       gdb_test "p/f oct" ".*-5.9822653797615723e-120.*"
+    }
 
 } else {