diff options
author | Richard Sandiford <rdsandiford@googlemail.com> | 2010-11-20 15:36:10 +0000 |
---|---|---|
committer | Richard Sandiford <rdsandiford@googlemail.com> | 2010-11-20 15:36:10 +0000 |
commit | f3097f3364542da446c96759eb04abb0d0507bc2 (patch) | |
tree | 77490b04e4e8d8ce836bda109031de18f0941243 /ld/testsuite/lib | |
parent | c0efa7954e9b799cce65bb1406897ad369e1d006 (diff) | |
download | fsf-binutils-gdb-f3097f3364542da446c96759eb04abb0d0507bc2.zip fsf-binutils-gdb-f3097f3364542da446c96759eb04abb0d0507bc2.tar.gz fsf-binutils-gdb-f3097f3364542da446c96759eb04abb0d0507bc2.tar.bz2 |
binutils/testsuite/
* lib/binutils-common.exp: New file.
* lib/utils-lib.exp (load_common_lib): New function. Load
binutils-common.exp.
(is_elf_format): Delete.
gas/testsuite/
* lib/gas-defs.exp (load_common_lib): New function. Load
binutils-common.exp.
(is_elf_format, is_aout_format, is_pecoff_format): Delete.
ld/testsuite/
* 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.
Diffstat (limited to 'ld/testsuite/lib')
-rw-r--r-- | ld/testsuite/lib/ld-lib.exp | 139 |
1 files changed, 7 insertions, 132 deletions
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. |