tcl global directive outside proc body does nothing (ld)

[deliverable/binutils-gdb.git] / ld / testsuite / ld-elf / elf.exp

diff --git a/ld/testsuite/ld-elf/elf.exp b/ld/testsuite/ld-elf/elf.exp
index 9121936c2101bacf79668153cb133a8bd83b2e6f..3ae769e3bf9d133f59f612c4f59431851c420a85 100644 (file)
--- a/ld/testsuite/ld-elf/elf.exp
+++ b/ld/testsuite/ld-elf/elf.exp
@@ -1,5 +1,5 @@
 # Expect script for various ELF tests.
-#   Copyright (C) 2002-2019 Free Software Foundation, Inc.
+#   Copyright (C) 2002-2020 Free Software Foundation, Inc.
 #
 # This file is part of the GNU Binutils.
 #
@@ -43,6 +43,7 @@ if { [istarget alpha*-*-* ] } {
     # executable down into the low address space to match.
     # ??? How can we adjust just the one testcase?
     set LDFLAGS "$LDFLAGS -Ttext-segment 0x1000000"
+    set ASFLAGS "$ASFLAGS --defsym NO_SET=1"
 }
 
 if { [istarget "*-*-nacl*"] } {
@@ -76,9 +77,32 @@ run_ld_link_tests [list \
 if [is_elf64 tmpdir/symbol3w.a] {
     set ASFLAGS "$ASFLAGS --defsym ALIGN=3"
     set pr23900_1_exp "pr23900-1-64.rd"
+    set pr25490_2_exp "pr25490-2-64.rd"
+    set pr25490_3_exp "pr25490-3-64.rd"
+    set pr25490_4_exp "pr25490-4-64.rd"
+    set pr25490_5_exp "pr25490-5-64.rd"
+    set pr25490_6_exp "pr25490-6-64.rd"
 } else {
     set ASFLAGS "$ASFLAGS --defsym ALIGN=2"
     set pr23900_1_exp "pr23900-1-32.rd"
+    if {    [istarget avr-*-*]
+        || [istarget h8300-*-*]
+        || [istarget ip2k-*-*]
+        || [istarget m68hc11-*]
+        || [istarget "xc16x-*"]
+        || [istarget "z80-*-*"] } {
+       set pr25490_2_exp "pr25490-2-16.rd"
+       set pr25490_3_exp "pr25490-3-16.rd"
+       set pr25490_4_exp "pr25490-4-16.rd"
+       set pr25490_5_exp "pr25490-5-16.rd"
+       set pr25490_6_exp "pr25490-6-16.rd"
+    } else {
+       set pr25490_2_exp "pr25490-2-32.rd"
+       set pr25490_3_exp "pr25490-3-32.rd"
+       set pr25490_4_exp "pr25490-4-32.rd"
+       set pr25490_5_exp "pr25490-5-32.rd"
+       set pr25490_6_exp "pr25490-6-32.rd"
+    }
 }
 
 
@@ -91,13 +115,12 @@ run_ld_link_tests {
       {"PR ld/21703 -r"
        "-r --allow-multiple-definition tmpdir/pr21703-3.o tmpdir/pr21703-4.o" "" "" \
        {pr21703-3.s pr21703-4.s} {{readelf {-s} pr21703-r.sd}} "pr21703.o" }
-} "d30v-*-*" "dlx-*-*" "pj-*-*" "xgate-*-*"
+} \[is_generic\]
 
 if [is_underscore_target] {
     set ASFLAGS "$ASFLAGS --defsym UNDERSCORE=1"
 }
 
-global ASFLAGS
 set saved_ASFLAGS "$ASFLAGS"
 if { [istarget "i?86-*-*"] || [istarget "x86_64-*-*"] } {
     set ASFLAGS "$ASFLAGS -mx86-used-note=no"
@@ -112,14 +135,8 @@ foreach t $test_list {
 
 set ASFLAGS "$saved_ASFLAGS"
 
-# Targets using the generic linker backend don't support generating
-# an import library.
-set xfail_implib ""
-if [is_generic_elf] {
-    set xfail_implib "*-*-*"
-}
-
 # Check that the --out-implib option work correctly.
+# Targets that don't use elf.em won't support this.
 run_ld_link_tests [list \
     [list "Generate empty import library" \
        "--out-implib=tmpdir/implib.lib" "" \
@@ -133,7 +150,7 @@ run_ld_link_tests [list \
        {implib.s} \
        {{readelf {-s tmpdir/implib.lib} implib.rd}} \
        "implib" ] \
-] $xfail_implib
+] \[uses_genelf\]
 
 #v850 gas complains about .tbss.var section attributes.
 if { [check_gc_sections_available] && ![istarget "v850-*-*"] } {
@@ -178,6 +195,46 @@ if { [istarget *-*-*linux*]
        ]
 }
 
+if [check_gc_sections_available] {
+    run_ld_link_tests [list \
+       [list "__patchable_function_entries section 2" \
+           "--gc-sections -e _start" \
+           "" \
+           "" \
+           {pr25490-2.s} \
+           [list [list "readelf" {-SW} $pr25490_2_exp]] \
+           "pr25490-2.exe"] \
+       [list "__patchable_function_entries section 3" \
+           "--gc-sections -e _start" \
+           "" \
+           "" \
+           {pr25490-3.s} \
+           [list [list "readelf" {-SW} $pr25490_3_exp]] \
+           "pr25490-3.exe"] \
+       [list "__patchable_function_entries section 4" \
+           "--gc-sections -e _start" \
+           "" \
+           "" \
+           {pr25490-4.s} \
+           [list [list "readelf" {-SW} $pr25490_4_exp]] \
+           "pr25490-4.exe"] \
+       [list "__patchable_function_entries section 5" \
+           "--gc-sections -e _start" \
+           "" \
+           "" \
+           {pr25490-5.s} \
+           [list [list "readelf" {-SW} $pr25490_5_exp]] \
+           "pr25490-5.exe"] \
+       [list "__patchable_function_entries section 6" \
+           "--gc-sections -e _start" \
+           "" \
+           "" \
+           {pr25490-6.s} \
+           [list [list "readelf" {-SW} $pr25490_6_exp]] \
+           "pr25490-6.exe"] \
+       ]
+}
+
 set LDFLAGS $old_ldflags
 set ASFLAGS $old_asflags