* gas/cfi/cfi.exp: Use here. Only run tests when ELF.

	* gas/macros/and.s: Avoid .set so we don't break mips.

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 337226e9966225e40a60f073194e9e06b0ab3f0e..7eb65c17eae4ac2f7f317026d55ce990a29ad46f 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2003-06-10  Alan Modra  <amodra@bigpond.net.au>
 
+       * lib/gas-defs.exp (proc is_elf_format): Copy from ld testsuite.
+       * gas/cfi/cfi.exp: Use here.  Only run tests when ELF.
        * gas/macros/and.s: Avoid .set so we don't break mips.
 
 2003-06-10  Alan Modra  <amodra@bigpond.net.au>

diff --git a/gas/testsuite/gas/cfi/cfi.exp b/gas/testsuite/gas/cfi/cfi.exp
index 88baac251502d501cf4dd235550febb19e6f51ca..968d3b1918ae83988dd62c8e6a4ede277dd729ab 100644 (file)
--- a/gas/testsuite/gas/cfi/cfi.exp
+++ b/gas/testsuite/gas/cfi/cfi.exp
@@ -12,35 +12,25 @@ proc run_list_test { name opts } {
     pass $testname
 }
 
-set any "0"
+if ![is_elf_format] then {
+    return
+}
 
 if [istarget "x86_64-*"] then {
     run_dump_test "cfi-x86_64"
-    set any "1"
-}
 
-if [istarget "i?86-*"] then {
+} elseif [istarget "i?86-*"] then {
     run_dump_test "cfi-i386"
-    set any "1"
-}
 
-if { [istarget alpha*-*-*] } then {
+} elseif { [istarget alpha*-*-*] } then {
+    run_dump_test "cfi-alpha-1"
+    run_dump_test "cfi-alpha-2"
+    run_dump_test "cfi-alpha-3"
 
-    set elf [expr [istarget *-*-elf*] \
-                  || [istarget *-*-linux*] \
-                  || [istarget *-*-freebsd*] \
-                  || [istarget *-*-netbsd*] ]
-
-    if $elf {
-       run_dump_test "cfi-alpha-1"
-       run_dump_test "cfi-alpha-2"
-       run_dump_test "cfi-alpha-3"
-       set any "1"
-    }
+} else {
+    return
 }
 
-if $any {
-    run_list_test "cfi-diag-1" ""
-    run_dump_test "cfi-common-1"
-    run_dump_test "cfi-common-2"
-}
+run_list_test "cfi-diag-1" ""
+run_dump_test "cfi-common-1"
+run_dump_test "cfi-common-2"

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 5a3af8c0394d4e12a6cf172c5e7ed12c88c403d1..c82bd8ab023703cb3c85a9a67bad01a52ad415d2 100644 (file)
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -182,6 +182,43 @@ proc gas_init { args } {
     return
 }
 
+#
+# is_elf_format
+#      true if the object format is known to be ELF
+#
+proc is_elf_format {} {
+    if { ![istarget *-*-sysv4*] \
+        && ![istarget *-*-unixware*] \
+        && ![istarget *-*-elf*] \
+        && ![istarget *-*-eabi*] \
+        && ![istarget hppa*64*-*-hpux*] \
+        && ![istarget *-*-linux*] \
+        && ![istarget *-*-irix5*] \
+        && ![istarget *-*-irix6*] \
+        && ![istarget *-*-netbsd*] \
+        && ![istarget *-*-solaris2*] } {
+       return 0
+    }
+
+    if { [istarget *-*-linux*aout*] \
+        || [istarget *-*-linux*oldld*] } {
+       return 0
+    }
+
+    if { ![istarget *-*-netbsdelf*] \
+        && ([istarget *-*-netbsd*aout*] \
+            || [istarget *-*-netbsdpe*] \
+            || [istarget arm*-*-netbsd*] \
+            || [istarget sparc-*-netbsd*] \
+            || [istarget i*86-*-netbsd*] \
+            || [istarget m68*-*-netbsd*] \
+            || [istarget vax-*-netbsd*] \
+            || [istarget ns32k-*-netbsd*]) } {
+       return 0
+    }
+    return 1
+}
+
 
 # run_dump_test FILE (optional:) EXTRA_OPTIONS
 #