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 061bcf2b07df7f45868d336a144e135b15b23638..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"
+    }
 }
 
 
@@ -97,7 +121,6 @@ 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"
@@ -172,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