binutils/testsuite/

[deliverable/binutils-gdb.git] / binutils / testsuite / lib / utils-lib.exp

diff --git a/binutils/testsuite/lib/utils-lib.exp b/binutils/testsuite/lib/utils-lib.exp
index 11eb91079646e3ae8e13d36f10cb0dbe06c23f32..6dbbecf310d466f1f3c17d051f6b9e6617693cca 100644 (file)
--- a/binutils/testsuite/lib/utils-lib.exp
+++ b/binutils/testsuite/lib/utils-lib.exp
@@ -1,5 +1,5 @@
 # Copyright 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2007,
-# 2009 Free Software Foundation, Inc.
+# 2009, 2010 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -21,6 +21,12 @@
 # This file was written by Rob Savoye <rob@cygnus.com>
 # and extended by Ian Lance Taylor <ian@cygnus.com>
 
+proc load_common_lib { name } {
+    load_lib $name
+}
+
+load_common_lib binutils-common.exp
+
 proc binutil_version { prog } {
     if ![is_remote host] {
        set path [which $prog]
@@ -118,44 +124,6 @@ proc default_binutils_assemble_flags { source object asflags } {
     }
 }
 
-#
-# is_elf_format
-#      true if the object format is known to be ELF
-#
-proc is_elf_format {} {
-    if { ![istarget *-*-sysv4*] \
-        && ![istarget *-*-unixware*] \
-        && ![istarget *-*-elf*] \
-        && ![istarget *-*-eabi*] \
-        && ![istarget hppa*64*-*-hpux*] \
-        && ![istarget ia64-*-hpux*] \
-        && ![istarget *-*-linux*] \
-        && ![istarget *-*-irix5*] \
-        && ![istarget *-*-irix6*] \
-        && ![istarget *-*-netbsd*] \
-        && ![istarget *-*-solaris2*] } {
-       return 0
-    }
-
-    if { [istarget *-*-linux*aout*] \
-        || [istarget *-*-linux*oldld*] } {
-       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
-    }
-    return 1
-}
-
 #
 # exe_ext
 #      Returns target executable extension, if any.