diff options
Diffstat (limited to 'ld')
| -rw-r--r-- | ld/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | ld/testsuite/lib/ld-lib.exp | 139 |
2 files changed, 13 insertions, 132 deletions
diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog index d500db2..30d1a1a 100644 --- a/ld/testsuite/ChangeLog +++ b/ld/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-11-20 Richard Sandiford <rdsandiford@googlemail.com> + + * lib/ld-lib.exp (load_common_lib): New function. Load + binutils-common.exp. + (is_elf_format, is_elf64, is_aout_format, is_pecoff_format): Delete. + 2010-11-18 Alan Modra <amodra@gmail.com> * ld-elf/binutils.exp: Correct x86 gnu target match. diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp index 092cf83..c1e141a 100644 --- a/ld/testsuite/lib/ld-lib.exp +++ b/ld/testsuite/lib/ld-lib.exp @@ -19,6 +19,13 @@ # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, # MA 02110-1301, USA. +proc load_common_lib { name } { + global srcdir + load_file $srcdir/../../binutils/testsuite/lib/$name +} + +load_common_lib binutils-common.exp + # Extract and print the version number of ld. # proc default_ld_version { ld } { @@ -401,138 +408,6 @@ proc ld_simple_link_defsyms {} { return $flags } -# True if the object format is known to be ELF. -# -proc is_elf_format {} { - if { ![istarget *-*-sysv4*] - && ![istarget *-*-unixware*] - && ![istarget *-*-elf*] - && ![istarget *-*-eabi*] - && ![istarget *-*-rtems*] - && ![istarget hppa*64*-*-hpux*] - && ![istarget ia64-*-hpux*] - && ![istarget *-*-linux*] - && ![istarget *-*-gnu*] - && ![istarget frv-*-uclinux*] - && ![istarget bfin-*-uclinux] - && ![istarget sh*-*-uclinux*] - && ![istarget *-*-irix5*] - && ![istarget *-*-irix6*] - && ![istarget *-*-netbsd*] - && ![istarget *-*-openbsd*] - && ![istarget *-*-solaris2*] } { - return 0 - } - - if { [istarget *-*-linux*aout*] - || [istarget *-*-linux*oldld*] - || [istarget h8500-*-rtems*] - || [istarget i960-*-rtems*] - || [istarget *-*-rtemscoff*] } { - 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 - } - - if { [istarget arm-*-openbsd*] - || [istarget i386-*-openbsd\[0-2\].*] - || [istarget i386-*-openbsd3.\[0-2\]] - || [istarget m68*-*-openbsd*] - || [istarget ns32k-*-openbsd*] - || [istarget sparc-*-openbsd\[0-2\].*] - || [istarget sparc-*-openbsd3.\[0-1\]] - || [istarget vax-*-openbsd*] } { - return 0 - } - - return 1 -} - -# True if the object format is known to be 64-bit 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 -} - -# True if the object format is known to be a.out. -# -proc is_aout_format {} { - if { [istarget *-*-netbsdelf] - || [istarget sparc64-*-netbsd*] - || [istarget sparc64-*-openbsd*] } { - return 0 - } - if { [istarget *-*-*\[ab\]out*] - || [istarget *-*-linux*oldld*] - || [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 m68*-*-netbsd*] - || [istarget m68*-*-openbsd*] - || [istarget ns32k-*-*] - || [istarget pdp11-*-*] - || [istarget sparc*-*-sunos4*] - || [istarget sparc*-*-netbsd*] - || [istarget sparc*-*-openbsd\[0-2\]*] - || [istarget sparc*-*-openbsd3.\[0-1\]*] - || [istarget sparc*-fujitsu-none] - || [istarget vax-dec-ultrix*] - || [istarget vax-*-netbsd] } { - return 1 - } - return 0 -} - -# True if the object format is known to be PE COFF. -# -proc is_pecoff_format {} { - if { ![istarget *-*-mingw*] - && ![istarget *-*-cygwin*] - && ![istarget *-*-cegcc*] - && ![istarget *-*-pe*] } { - return 0 - } - - return 1 -} - # Compares two files line-by-line. # Returns differences if exist. # Returns null if file(s) cannot be opened. |