Remove duplicate ld testsuite function

It's in binutils/testsuite/lib/binutils-common.exp

	* testsuite/ld-elf/elf.exp (is_elf64): Delete.

diff --git a/ld/ChangeLog b/ld/ChangeLog
index b1b8cf5d1a670ed321154bf7ec5e1af59ae9ac43..89eddd36486520e8d8d101241ac22172890acf77 100644 (file)
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,7 @@
+2018-08-18  Alan Modra  <amodra@gmail.com>
+
+       * testsuite/ld-elf/elf.exp (is_elf64): Delete.
+
 2018-08-17  H.J. Lu  <hongjiu.lu@intel.com>
 
        PR ld/23515

diff --git a/ld/testsuite/ld-elf/elf.exp b/ld/testsuite/ld-elf/elf.exp
index cabc79daadecb41d28a7ba290ea85c8ca31d5b31..bb7f4b046349785dba7f3b6bf74d76bd60500023 100644 (file)
--- a/ld/testsuite/ld-elf/elf.exp
+++ b/ld/testsuite/ld-elf/elf.exp
@@ -73,32 +73,6 @@ run_ld_link_tests [list \
 ]
 
 
-# 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] } {
-       verbose "FAILED to determine ELF size"
-       return 0
-    }
-
-    if { $readelf_size == "64" } {
-       return 1
-    }
-
-    return 0
-}
-
 if [is_elf64 tmpdir/symbol3w.a] {
     set ASFLAGS "$ASFLAGS --defsym ALIGN=3"
 } else {