2003-09-29 H.J. Lu <hongjiu.lu@intel.com>

	* lib/ld-lib.exp (proc is_elf64): New.

	* ld-scripts/phdrs.exp: Use is_elf_format and is_elf64.

diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 6d5603511f1a5402e4576e08d305a4312a396d2c..900402cb457d0e6d12b0c299af95442653ab5e28 100644 (file)
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-29  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * lib/ld-lib.exp (proc is_elf64): New.
+
+       * ld-scripts/phdrs.exp: Use is_elf_format and is_elf64.
+
 2003-09-23  Alan Modra  <alan@modra.org>
 
        * ld-discard/exit.s: Correct .text.exit attributes.

diff --git a/ld/testsuite/ld-scripts/phdrs.exp b/ld/testsuite/ld-scripts/phdrs.exp
index 7901d79d39d66e4091ae567bfbab4f30d42297e1..3bd7b8193245553f9b2b7d27bbe04ce01ec906d7 100644 (file)
--- a/ld/testsuite/ld-scripts/phdrs.exp
+++ b/ld/testsuite/ld-scripts/phdrs.exp
@@ -18,20 +18,7 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 # PHDRS is only meaningful for ELF.
-if { ![istarget *-*-sysv4*] \
-     && ![istarget *-*-unixware*] \
-     && ![istarget *-*-elf*] \
-     && ![istarget *-*-eabi*] \
-     && ![istarget hppa*64*-*-hpux*] \
-     && ![istarget *-*-linux*] \
-     && ![istarget *-*-irix5*] \
-     && ![istarget *-*-irix6*] \
-     && ![istarget *-*-solaris2*] } {
-    return
-}
-
-if { [istarget *-*-linux*aout*] \
-     || [istarget *-*-linux*oldld*] } {
+if ![is_elf_format] {
     return
 }
 
@@ -48,11 +35,8 @@ set phdrs_regexp \
 ".*Program Header:.*PHDR *off *0x00*34 *vaddr *0x00*800034 *paddr *0x00*800034.*filesz *0x0\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* flags r--.*LOAD *off *0x00* *vaddr *0x00*800000 *paddr *0x00*800000.*filesz *0x00*\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* *flags r-x.*LOAD *off *0x0\[0-9a-f\]* *vaddr *0x00*80*\[0-9a-f\]* *paddr *0x00*80*\[0-9a-f\]*.*filesz *0x0\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* *flags *rw-.*"
 
 # On a 64 bit ELF format, we need different numbers.
-if { [istarget alpha*-*-*] || [istarget "ia64*-*-*"]
-    || [istarget "hppa*64*-*-*"] || [istarget "x86_64*-*-*"]
-    || [istarget "s390x*-*-*"] || [istarget "sparc64*-*-*"]
-    || [istarget "powerpc64*-*-*"] || [istarget "*-*-*elf64*"] } then {
-  set phdrs_regexp \
+if [is_elf64 tmpdir/phdrs.o] {
+    set phdrs_regexp \
 ".*Program Header:.*PHDR *off *0x00*40 *vaddr *0x00*800040 *paddr *0x00*800040.*filesz *0x0\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* flags r--.*LOAD *off *0x00* *vaddr *0x00*800000 *paddr *0x00*800000.*filesz *0x00*\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* *flags r-x.*LOAD *off *0x0\[0-9a-f\]* *vaddr *0x00*80*\[0-9a-f\]* *paddr *0x00*80*\[0-9a-f\]*.*filesz *0x0\[0-9a-f\]* *memsz *0x0\[0-9a-f\]* *flags *rw-.*"
 }
 

diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
index 4452e2e9e13145eae377bac9ba8112dcbc05b1f5..92d0a87e4e6ece1384ede7e2969a0d85772b8a7b 100644 (file)
--- a/ld/testsuite/lib/ld-lib.exp
+++ b/ld/testsuite/lib/ld-lib.exp
@@ -389,6 +389,32 @@ proc is_elf_format {} {
     return 1
 }
 
+#
+# is_elf64
+#      true if the object format is known to be 64bit ELF
+proc is_elf64 { binary_file } {
+    global READELF
+    global READELFFLAGS
+
+    set readelf_size ""
+    catch "exec $READELF $READELFFLAGS -h $binary_file > readelf.out" got
+
+    if ![string match "" $got] then {
+       return 0
+    }
+
+    if { ![regexp "\n\[ \]*Class:\[ \]*ELF(\[0-9\]+)\n" \
+          [file_contents readelf.out] nil readelf_size] } {
+       return 0
+    }
+
+    if { $readelf_size == "64" } {
+       return 1
+    }
+
+    return 0
+}
+
 #
 # simple_diff
 #      compares two files line-by-line