X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=binutils%2Ftestsuite%2Flib%2Fbinutils-common.exp;h=b1ede4cdf60607c09b62862e0e280565023a5acc;hb=506b86a4f5fe2aff90e62940a07c9e275d406cd4;hp=9c5754ea3552f4888097e7f30d9d5197e9722de3;hpb=c9098af41e3246586a30f4f0bdb0ee4367e9a5e7;p=deliverable%2Fbinutils-gdb.git

diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp
index 9c5754ea35..b1ede4cdf6 100644
--- a/binutils/testsuite/lib/binutils-common.exp
+++ b/binutils/testsuite/lib/binutils-common.exp
@@ -23,58 +23,53 @@ proc is_elf_format {} {
     # config.sub for these targets curiously transforms a target doublet
     # ending in -elf to -none.  eg. m68hc12-elf to m68hc12-unknown-none
     # They are always elf.
-    if { [istarget m68hc1*-*] || [istarget xgate-*] } {
+    if { [istarget m68hc1*-*] || [istarget s12z*-*] || [istarget xgate-*] } {
 	return 1;
     }
+# vxworks (and windiss) excluded due to number of ELF tests that need
+# modifying to pass on those targets.
+#	 && ![istarget *-*-vxworks*]
+#	 && ![istarget *-*-windiss*]
 
-    if {    ![istarget *-*-eabi*]
-	 && ![istarget *-*-elf*]
-	 && ![istarget *-*-freebsd*]
+    if {    ![istarget *-*-chorus*]
+	 && ![istarget *-*-cloudabi*]
+	 && ![istarget *-*-eabi*]
+	 && ![istarget *-*-*elf*]
+	 && ![istarget *-*-*freebsd*]
+	 && ![istarget *-*-fuchsia*]
 	 && ![istarget *-*-gnu*]
 	 && ![istarget *-*-irix5*]
 	 && ![istarget *-*-irix6*]
-	 && ![istarget *-*-linux*]
+	 && ![istarget *-*-kaos*]
+	 && ![istarget *-*-*linux*]
 	 && ![istarget *-*-lynxos*]
 	 && ![istarget *-*-nacl*]
 	 && ![istarget *-*-netbsd*]
+	 && ![istarget *-*-nto*]
 	 && ![istarget *-*-openbsd*]
 	 && ![istarget *-*-rtems*]
 	 && ![istarget *-*-solaris2*]
-	 && ![istarget *-*-symbianelf*]
 	 && ![istarget *-*-sysv4*]
 	 && ![istarget *-*-unixware*]
 	 && ![istarget *-*-wasm32*]
 	 && ![istarget avr-*-*]
-	 && ![istarget bfin-*-uclinux]
-	 && ![istarget frv-*-uclinux*]
 	 && ![istarget hppa*64*-*-hpux*]
-	 && ![istarget ia64-*-hpux*]
-	 && ![istarget sh*-*-uclinux*]
-	 && ![istarget tic6x*-*-uclinux*] } {
+	 && ![istarget ia64-*-hpux*] } {
 	return 0
     }
 
-    if {    [istarget *-*-linux*aout*]
-	 || [istarget *-*-linux*ecoff*]
-	 || [istarget *-*-linux*oldld*]
-	 || [istarget *-*-rtemscoff*]
-	 || [istarget i?86-*-freebsd\[12\].*] } {
+    if { [istarget *-*-linux*ecoff*]
+	 || [istarget *-*-rtemscoff*] } {
 	return 0
     }
 
     if { ![istarget *-*-netbsdelf*]
-	 && (   [istarget *-*-netbsd*aout*]
-	     || [istarget *-*-netbsdpe*]
-	     || [istarget arm*-*-netbsd*]
-	     || [istarget i*86-*-netbsd*]
-	     || [istarget vax-*-netbsd*]
+	 && (   [istarget vax-*-netbsd*]
 	     || [istarget ns32k-*-netbsd*]) } {
     	return 0
     }
 
     if {    [istarget arm-*-openbsd*]
-	 || [istarget i386-*-openbsd\[0-2\].*]
-	 || [istarget i386-*-openbsd3.\[0-2\]]
 	 || [istarget ns32k-*-openbsd*]
 	 || [istarget vax-*-openbsd*] } {
 	return 0
@@ -86,22 +81,11 @@ proc is_elf_format {} {
 # True if the object format is known to be a.out.
 #
 proc is_aout_format {} {
-    if { [istarget *-*-*\[ab\]out*]
-	 || [istarget *-*-linux*oldld*]
+    if { [istarget *-*-*aout*]
 	 || [istarget *-*-bsd*]
 	 || [istarget *-*-msdos*]
-	 || [istarget arm-*-netbsd*]
-	 || [istarget arm-*-openbsd*]
-	 || [istarget arm-*-riscix*]
-	 || [istarget i?86-*-freebsd\[12\].*]
-	 || [istarget i?86-*-netbsd*]
-	 || [istarget i?86-*-openbsd\[0-2\]*]
-	 || [istarget i?86-*-openbsd3.\[0-2\]*]
-	 || [istarget i?86-*-vsta]
-	 || [istarget i?86-*-mach*]
 	 || [istarget ns32k-*-*]
 	 || [istarget pdp11-*-*]
-	 || [istarget vax-dec-ultrix*]
 	 || [istarget vax-*-netbsd] } {
 	return 1
     }
@@ -127,15 +111,16 @@ proc is_elf64 { binary_file } {
     global READELF
     global READELFFLAGS
 
+    set tmpfile [file dirname $binary_file]/readelf.out
     set readelf_size ""
-    catch "exec $READELF $READELFFLAGS -h $binary_file > readelf.out" got
+    catch "exec $READELF $READELFFLAGS -h $binary_file > $tmpfile" got
 
     if ![string match "" $got] then {
 	return 0
     }
 
     if { ![regexp "\n\[ \]*Class:\[ \]*ELF(\[0-9\]+)\n" \
-	   [file_contents readelf.out] nil readelf_size] } {
+	   [file_contents $tmpfile] nil readelf_size] } {
 	return 0
     }
 
@@ -146,6 +131,37 @@ proc is_elf64 { binary_file } {
     return 0
 }
 
+# True if the object format is known to use RELA relocations.
+#
+proc is_rela { binary_file } {
+    global READELF
+    global READELFFLAGS
+
+    set tmpfile [file dirname $binary_file]/readelf.out
+    catch "exec $READELF $READELFFLAGS -S $binary_file > $tmpfile" got
+
+    if ![string match "" $got] then {
+	return 0
+    }
+
+    if { ![regexp "RELA" [file_contents $tmpfile]] } {
+	return 0
+    }
+
+    return 1
+}
+
+# True if the target matches TARGET, specified as a TCL procedure if
+# in square brackets or as machine triplet otherwise.
+#
+proc match_target { target } {
+   if [string match {\[*\]} $target] {
+	return $target
+   } else {
+	return [istarget $target]
+   }
+}
+
 # True if the ELF target supports STB_GNU_UNIQUE with the ELF header's
 # OSABI field set to ELFOSABI_GNU.
 #
@@ -182,7 +198,8 @@ proc supports_gnu_unique {} {
     if { [istarget "am33_2.0-*-*"]
 	 || [istarget "d30v-*-*"]
 	 || [istarget "dlx-*-*"]
-	 || [istarget "pj*-*-*"] } {
+	 || [istarget "pj*-*-*"]
+	 || [istarget "xgate-*-*"] } {
 	return 0
     }
     return 1