tcl global directive outside proc body does nothing (ld)
[deliverable/binutils-gdb.git] / ld / testsuite / ld-bootstrap / bootstrap.exp
index 96bd70684b3d37cb279fabb394e3f333bce171a2..43928fb6483fd2d2f11dbb03c27686bf281d6543 100644 (file)
@@ -1,6 +1,5 @@
 # Expect script for LD Bootstrap Tests
-#   Copyright 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2004,
-#   2005, 2006, 2007, 2009  Free Software Foundation, Inc.
+#   Copyright (C) 1993-2020 Free Software Foundation, Inc.
 #
 # This file is part of the GNU Binutils.
 #
@@ -30,13 +29,44 @@ if ![isnative] {
     return
 }
 
+# Determine if plugin support is present.
+remote_exec host "$nm --help" "" "/dev/null" "plugin-support"
+set tmp [file_contents "plugin-support"]
+regexp ".*\(--plugin\).*\n" $tmp foo plugins
+if [info exists plugins] then {
+    set plugins "yes"
+} else {
+    set plugins "no"
+}
+
+# LD can have plugin support even if BFD does not.
+if [check_plugin_api_available] {
+    set plugins "yes"
+}
+
 # Bootstrap ld.  First link the object files together using -r, in
 # order to test -r.  Then link the result into an executable, ld1, to
 # really test -r.  Use ld1 to link a fresh ld, ld2.  Use ld2 to link a
 # new ld, ld3.  ld2 and ld3 should be identical.
+set test_flags {"" "strip" "--static" "-Wl,--traditional-format"
+               "-Wl,--no-keep-memory" "-Wl,--relax"}
+if { [istarget "powerpc-*-*"] } {
+    lappend test_flags "-Wl,--ppc476-workaround"
+}
+
+set gcc_B_opt_save $gcc_B_opt
 
-foreach flags {"" "strip" "--static" "--traditional-format"
-              "--no-keep-memory" "--relax"} {
+foreach ldexe {ld1 ld2 ld3} {
+    if {![file isdirectory tmpdir/gcc$ldexe]} then {
+       catch "exec mkdir tmpdir/gcc$ldexe" status
+       catch "exec ln -s ../$ldexe tmpdir/gcc$ldexe/ld" status
+       catch "exec ln -s ld tmpdir/gcc$ldexe/collect-ld" status
+       catch "exec ln -s ../../../gas/as-new tmpdir/gcc$ldexe/as" status
+    }
+}
+
+foreach flags $test_flags {
+    set gcc_B_opt $gcc_B_opt_save
     set do_strip "no"
     if {"$flags" == "strip"} { 
        set testname "bootstrap with $flags"
@@ -49,11 +79,15 @@ foreach flags {"" "strip" "--static" "--traditional-format"
     }}
 
     # --static is meaningless and --relax is incompatible with -r.
-    set partial_flags "$flags"
-    if { "$flags" == "--static" || "$flags" == "--relax" } {
+    regsub -- "-Wl," $flags "" partial_flags
+    if { "$partial_flags" == "--static" || "$partial_flags" == "--relax" } {
        set partial_flags ""
     }
 
+    if { $partial_flags == "--ppc476-workaround" } {
+       append partial_flags " -T $srcdir/$subdir/ppc476.t"
+    }
+
     # This test can only be run if we have the ld build directory,
     # since we need the object files.
     if {$ld != "$objdir/ld-new"} {
@@ -61,6 +95,19 @@ foreach flags {"" "strip" "--static" "--traditional-format"
        continue
     }
 
+    # If -static doesn't work, these tests will fail.
+    if { $flags == "--static" && [string match "" $STATIC_LDFLAGS] } then {
+       untested $testname
+       continue
+    }
+
+    # Plugin support requires linking with a dynamic library which
+    # means that these tests will fail.
+    if { $flags == "--static" && $plugins == "yes" } then {
+       untested $testname
+       continue
+    }
+
     # If we only have a shared libbfd, we probably can't run the
     # --static test.
     if { $flags == "--static" && ! [string match "*libbfd.a*" $BFDLIB] } then {
@@ -91,13 +138,27 @@ foreach flags {"" "strip" "--static" "--traditional-format"
        }
     }
 
+    # Check if the system's zlib library is used.
+    if {[file exists ../zlib/Makefile ]} then {
+       set extralibs "$extralibs -L../zlib -lz"
+    } else {
+       set extralibs "$extralibs -lz"
+    }
+
+    # Plugin support requires linking with libdl.
+    if { $plugins == "yes" } {
+       if { ![istarget "*-*-freebsd*"]} {
+           set extralibs "$extralibs -ldl"
+       }
+    }
+
     # On Irix 5, linking with --static only works if all the files are
     # compiled using -non_shared.
     if {"$flags" == "--static"} {
        setup_xfail "mips*-*-irix5*"
     }
 
-    if ![ld_link $ld tmpdir/ld1 "$flags tmpdir/ld-partial.o $BFDLIB $LIBIBERTY $extralibs"] {
+    if ![ld_link $CC tmpdir/ld1 "$flags tmpdir/ld-partial.o $CTFLIB $BFDLIB $LIBIBERTY $extralibs"] {
        fail $testname
        continue
     }
@@ -105,6 +166,7 @@ foreach flags {"" "strip" "--static" "--traditional-format"
     if {"$do_strip" == "yes"} { 
        verbose -log "$strip tmpdir/ld1"     
        catch "exec $strip tmpdir/ld1" exec_output
+       set exec_output [prune_warnings $exec_output]
        if ![string match "" $exec_output] then {
            verbose -log "$exec_output"
            fail $testname
@@ -112,36 +174,29 @@ foreach flags {"" "strip" "--static" "--traditional-format"
        }
     }
 
-    if ![ld_link tmpdir/ld1 tmpdir/ld2 "$flags $OFILES $BFDLIB $LIBIBERTY $extralibs"] {
+    regsub /tmpdir/ld/ $gcc_B_opt_save /tmpdir/gccld1/ gcc_B_opt
+    if ![ld_link $CC tmpdir/ld2 "$flags $OFILES $CTFLIB $BFDLIB $LIBIBERTY $extralibs"] {
        fail $testname
        continue
     }
 
-    if ![ld_link tmpdir/ld2 tmpdir/ld3 "$flags $OFILES $BFDLIB $LIBIBERTY $extralibs"] {
+    regsub /tmpdir/ld/ $gcc_B_opt_save /tmpdir/gccld2/ gcc_B_opt
+    if ![ld_link $CC tmpdir/ld3 "$flags $OFILES $CTFLIB $BFDLIB $LIBIBERTY $extralibs"] {
        fail $testname
        continue
     }
 
-    if {"$flags" == "--static"} {
-       if { [istarget ia64-*-elf*]
-            || [istarget ia64-*-linux*] } {
-           # On ia64, tmpdir/ld2 != tmpdir/ld3 is normal since they are
-           # generated by different linkers, tmpdir/ld1 and tmpdir/ld2.
-           # So we rebuild tmpdir/ld2 with tmpdir/ld3.
-           if ![ld_link tmpdir/ld3 tmpdir/ld2 "$flags $OFILES $BFDLIB $LIBIBERTY"] {
-               fail $testname
-               continue
-           }
-       }
-    } else {
-       if { [istarget mips*-*-linux*] } {
-           # On Linux/mips, tmpdir/ld2 != tmpdir/ld3 is normal since
-           # they are generated by different linkers, tmpdir/ld1 and
-           # tmpdir/ld2. So we rebuild tmpdir/ld2 with tmpdir/ld3.
-           if ![ld_link tmpdir/ld3 tmpdir/ld2 "$flags $OFILES $BFDLIB $LIBIBERTY"] {
-               fail $testname
-               continue
-           }
+    if { "$flags" == "--static"
+        && ([istarget ia64-*-elf*]
+            || [istarget ia64-*-linux*]
+            || [istarget mips*-*-linux*]) } {
+       # On ia64 and mips, tmpdir/ld2 != tmpdir/ld3 is normal since they are
+       # generated by different linkers, tmpdir/ld1 and tmpdir/ld2.
+       # So we rebuild tmpdir/ld2 with tmpdir/ld3.
+       regsub /tmpdir/ld/ $gcc_B_opt_save /tmpdir/gccld3/ gcc_B_opt
+       if ![ld_link $CC tmpdir/ld2 "$flags $OFILES $CTFLIB $BFDLIB $LIBIBERTY $extralibs"] {
+           fail $testname
+           continue
        }
     }
 
@@ -179,5 +234,6 @@ foreach flags {"" "strip" "--static" "--traditional-format"
     }
 }
 
+set gcc_B_opt $gcc_B_opt_save
 catch "exec rm -f tmpdir/ld-partial.o tmpdir/ld1 tmpdir/ld2 tmpdir/ld3" status
 catch "exec rm -f tmpdir/ld2tail tmpdir/ld3tail" status
This page took 0.028148 seconds and 4 git commands to generate.