Provide dummy libraries for alpha-vms
authorAlan Modra <amodra@gmail.com>
Sun, 18 Oct 2020 22:19:32 +0000 (08:49 +1030)
committerAlan Modra <amodra@gmail.com>
Mon, 19 Oct 2020 05:58:43 +0000 (16:28 +1030)
alpha-dec-vms always loads a number of libraries, -limagelib,
-lstarlet, and -lsys$public_vectors.  When running the ld testsuite
without a full cross-build environment, those libraries are missing
and cause fails.  This patch provides dummies, and tidies default.exp
a little.

* testsuite/config/default.exp: Provide dummy libraries for
alpha-dec-vms.
(compiler_supports): New proc.  Use it for compiler tests.
* testsuite/lib/ld-lib.exp (default_ld_assemble): Don't die if
subdir not set.
(run_ld_link_tests): Pass LDFLAGS to ld.
* testsuite/ld-checks/checks.exp (section_check): Likewise.
* testsuite/ld-scripts/assert.exp: Likewise.
* testsuite/ld-scripts/extern.exp: Likewise.
* testsuite/ld-scripts/log2.exp: Likewise.
* testsuite/ld-scripts/map-address.exp: Likewise.
* testsuite/ld-scripts/script.exp: Likewise.
* testsuite/ld-scripts/sizeof.exp: Likewise.

ld/ChangeLog
ld/testsuite/config/default.exp
ld/testsuite/ld-checks/checks.exp
ld/testsuite/ld-scripts/assert.exp
ld/testsuite/ld-scripts/extern.exp
ld/testsuite/ld-scripts/log2.exp
ld/testsuite/ld-scripts/map-address.exp
ld/testsuite/ld-scripts/script.exp
ld/testsuite/ld-scripts/sizeof.exp
ld/testsuite/lib/ld-lib.exp

index a7869c759f0463ab1d708890451ea55af419fd53..8d5fb456e43bd444cf060bf0e5b9afa9ad7de5d9 100644 (file)
@@ -1,3 +1,19 @@
+2020-10-19  Alan Modra  <amodra@gmail.com>
+
+       * testsuite/config/default.exp: Provide dummy libraries for
+       alpha-dec-vms.
+       (compiler_supports): New proc.  Use it for compiler tests.
+       * testsuite/lib/ld-lib.exp (default_ld_assemble): Don't die if
+       subdir not set.
+       (run_ld_link_tests): Pass LDFLAGS to ld.
+       * testsuite/ld-checks/checks.exp (section_check): Likewise.
+       * testsuite/ld-scripts/assert.exp: Likewise.
+       * testsuite/ld-scripts/extern.exp: Likewise.
+       * testsuite/ld-scripts/log2.exp: Likewise.
+       * testsuite/ld-scripts/map-address.exp: Likewise.
+       * testsuite/ld-scripts/script.exp: Likewise.
+       * testsuite/ld-scripts/sizeof.exp: Likewise.
+
 2020-10-16  Andrew Burgess  <andrew.burgess@embecosm.com>
 
        * ldlang.c (lang_process): Add extra call to
index 58ca4a278cbc0e876dd29a66a96a39bdf38f1076..dfb633406dcd055757bb08665a7aef136c529f8a 100644 (file)
@@ -312,11 +312,10 @@ if { ![info exists LD_CLASS] } then {
     }
 }
 
-# Set PLT_CFLAGS to "-fplt" if target compiler supports it.
-
-if { ![info exists PLT_CFLAGS] } then {
+# Compiler tests
+proc compiler_supports { flag args } {
     if { [check_compiler_available] } {
-       # Check if gcc supports -fplt
+       global CC
        set flags ""
        if [board_info [target_info name] exists cflags] {
            append flags " [board_info [target_info name] cflags]"
@@ -324,292 +323,97 @@ if { ![info exists PLT_CFLAGS] } then {
        if [board_info [target_info name] exists ldflags] {
            append flags " [board_info [target_info name] ldflags]"
        }
-
-       set basename "tmpdir/plt[pid]"
-       set src ${basename}.c
-       set output ${basename}.o
-       set f [open $src "w"]
-       puts $f ""
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set plt_available [run_host_cmd_yesno "$CC" "$flags -c -fplt $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $plt_available == 1 } then {
-           set PLT_CFLAGS "-fplt"
+       set fn "cs[pid].c"
+       set f [open $fn "w"]
+       if { [llength $args] > 0 } {
+           puts $f [lindex $args 0]
        } else {
-           set PLT_CFLAGS ""
+           puts $f "int main (void) { return 0; }"
        }
-    } else {
-       set PLT_CFLAGS ""
+       close $f
+       set rfn [remote_download host $fn]
+       set avail [run_host_cmd_yesno "$CC" "$flags $flag $rfn -o /dev/null"]
+       remote_file host delete $rfn
+       file delete $fn
+       return $avail
     }
+    return 0
 }
 
-# Set NOPIE_CFLAGS to "-fno-PIE" and NOPIE_LDFLAGS to "-no-pie" if
-# target compiler supports them.
+if { ![info exists PLT_CFLAGS] } then {
+    set PLT_CFLAGS ""
+    if [compiler_supports "-c -fplt"] {
+       set PLT_CFLAGS "-fplt"
+    }
+}
 
 if { ![info exists NOPIE_CFLAGS] || ![info exists NOPIE_LDFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -fno-PIE -no-pie.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/nopie[pid]"
-       set src ${basename}.c
-       set output ${basename}
-       set f [open $src "w"]
-       puts $f "int main (void) { return 0; }"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set nopie_available [run_host_cmd_yesno "$CC" "$flags -fno-PIE -no-pie $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $nopie_available == 1 } then {
-           set NOPIE_CFLAGS "-fno-PIE"
-           set NOPIE_LDFLAGS "-no-pie"
-       } else {
-           set NOPIE_CFLAGS ""
-           set NOPIE_LDFLAGS ""
-       }
-    } else {
-       set NOPIE_CFLAGS ""
-       set NOPIE_LDFLAGS ""
+    set NOPIE_CFLAGS ""
+    set NOPIE_LDFLAGS ""
+    if [compiler_supports "-fno-PIE -no-pie"] {
+       set NOPIE_CFLAGS "-fno-PIE"
+       set NOPIE_LDFLAGS "-no-pie"
     }
 }
 
-# Set NOCF_PROTECTION_CFLAGS to "-fcf-protection=none" if target compiler
-# supports it.
-
 if { ![info exists NOCF_PROTECTION_CFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -fcf-protection=none.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/available[pid]"
-       set src ${basename}.c
-       set output ${basename}
-       set f [open $src "w"]
-       puts $f "int main (void) { return 0; }"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set available [run_host_cmd_yesno "$CC" "$flags -fcf-protection=none $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $available == 1 } then {
-           set NOCF_PROTECTION_CFLAGS "-fcf-protection=none"
-       } else {
-           set NOCF_PROTECTION_CFLAGS ""
-       }
-    } else {
-       set NOCF_PROTECTION_CFLAGS ""
+    set NOCF_PROTECTION_CFLAGS ""
+    if [compiler_supports "-fcf-protection=none"] {
+       set NOCF_PROTECTION_CFLAGS "-fcf-protection=none"
     }
 }
 
-# Set GNU2_CFLAGS to "-mtls-dialect=gnu2" if target compiler supports it.
-
 if { ![info exists GNU2_CFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -mtls-dialect=gnu2
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/gnu2[pid]"
-       set src ${basename}.c
-       set output ${basename}.o
-       set f [open $src "w"]
-       puts $f "__thread int yyy = 100;"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set gnu2_available [run_host_cmd_yesno "$CC" "$flags -c -mtls-dialect=gnu2 $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $gnu2_available == 1 } then {
-           set GNU2_CFLAGS "-mtls-dialect=gnu2"
-       } else {
-           set GNU2_CFLAGS ""
-       }
-    } else {
-       set GNU2_CFLAGS ""
+    set GNU2_CFLAGS ""
+    if [compiler_supports "-c -mtls-dialect=gnu2" "__thread int y = 1;"] {
+       set GNU2_CFLAGS "-mtls-dialect=gnu2"
     }
 }
 
-# Set INT128_CFLAGS to "-DHAS_INT128" if target compiler supports __int128.
-
 if { ![info exists INT128_CFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports __int128.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/int128[pid]"
-       set src ${basename}.c
-       set output ${basename}.o
-       set f [open $src "w"]
-       puts $f "__int128 a = 42;"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set int128_available [run_host_cmd_yesno "$CC" "$flags -c $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $int128_available == 1 } then {
-           set INT128_CFLAGS "-DHAS_INT128"
-       } else {
-           set INT128_CFLAGS ""
-       }
-    } else {
-       set INT128_CFLAGS ""
+    set INT128_CFLAGS ""
+    if [compiler_supports "-c" "__int128 a = 42;"] {
+       set INT128_CFLAGS "-DHAS_INT128"
     }
 }
 
-# Set STATIC_LDFLAGS to "-static" if target compiler supports it.
-
 if { ![info exists STATIC_LDFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -static.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/static[pid]"
-       set src ${basename}.c
-       set output ${basename}
-       set f [open $src "w"]
-       puts $f "int main (void) { return 0; }"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set static_available [run_host_cmd_yesno "$CC" "-static $flags $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $static_available == 1 } then {
-           set STATIC_LDFLAGS "-static"
-       } else {
-           set STATIC_LDFLAGS ""
-       }
-    } else {
-       set STATIC_LDFLAGS ""
+    set STATIC_LDFLAGS ""
+    if [compiler_supports "-static"] {
+       set STATIC_LDFLAGS "-static"
     }
 }
 
-# Set STATIC_PIE_LDFLAGS to "-static-pie" if target compiler supports it.
-
 if { ![info exists STATIC_PIE_LDFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -static-pie.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/static[pid]"
-       set src ${basename}.c
-       set output ${basename}
-       set f [open $src "w"]
-       puts $f "int main (void) { return 0; }"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set static_available [run_host_cmd_yesno "$CC" "-static-pie $flags $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
-
-       if { $static_available == 1 } then {
-           set STATIC_PIE_LDFLAGS "-static-pie"
-       } else {
-           set STATIC_PIE_LDFLAGS ""
-       }
-    } else {
-       set STATIC_PIE_LDFLAGS ""
+    set STATIC_PIE_LDFLAGS ""
+    if [compiler_supports "-static-pie"] {
+       set STATIC_PIE_LDFLAGS "-static-pie"
     }
 }
 
-# Set NOSANITIZE_CFLAGS to "-fno-sanitize=all" if target compiler
-# supports it.
-
 if { ![info exists NOSANITIZE_CFLAGS] } then {
-    if { [check_compiler_available] } {
-       # Check if gcc supports -fno-sanitize=all.
-       set flags ""
-       if [board_info [target_info name] exists cflags] {
-           append flags " [board_info [target_info name] cflags]"
-       }
-       if [board_info [target_info name] exists ldflags] {
-           append flags " [board_info [target_info name] ldflags]"
-       }
-
-       set basename "tmpdir/available[pid]"
-       set src ${basename}.c
-       set output ${basename}
-       set f [open $src "w"]
-       puts $f "int main (void) { return 0; }"
-       close $f
-       if [is_remote host] {
-           set src [remote_download host $src]
-       }
-       set available [run_host_cmd_yesno "$CC" "$flags -fno-sanitize=all $src -o $output"]
-       remote_file host delete $src
-       remote_file host delete $output
-       file delete $src
+    set NOSANITIZE_CFLAGS ""
+    if [compiler_supports "-fno-sanitize=all"] {
+       set NOSANITIZE_CFLAGS "-fno-sanitize=all"
+    }
+}
 
-       if { $available == 1 } then {
-           set NOSANITIZE_CFLAGS "-fno-sanitize=all"
-       } else {
-           set NOSANITIZE_CFLAGS ""
-       }
-    } else {
-       set NOSANITIZE_CFLAGS ""
+# Provide dummy libraries that alpha-vms-ld always loads
+if { [istarget alpha*-*-*vms*] } {
+    set src tmpdir/empty.s
+    set f [open $src "w"]
+    close $f
+    if { [ld_assemble $as $src tmpdir/empty.o]
+        && ![ld_link $LD tmpdir/empty tmpdir/empty.o]
+        && [regsub -all {[^\n]*: cannot find -l([^\n]*)} $exec_output {tmpdir/lib\1.a } missing_libs] } {
+       regsub -all {\$} $missing_libs {\\\$} missing_libs
+       for { set i 0 } { $i < [llength $missing_libs] } { incr i } {
+           set f [lindex $missing_libs $i]
+           verbose -log "creating dummy $f"
+           ar_simple_create $ar {} $f tmpdir/empty.o
+       }
+       append LDFLAGS " -Ltmpdir"
+       unset i missing_libs
     }
+    unset f src
 }
index fbda5e7f5e388a02401cdab0e797eee45d86454b..8c5bf91532359e103ed6f9495578d406b50ef59d 100644 (file)
@@ -21,7 +21,7 @@
 # Written by Nick Clifton (nickc@cygnus.com)
 
 proc section_check {} {
-    global ld_flags
+    global LDFLAGS
     global as
     global ld
     global srcdir
@@ -33,7 +33,7 @@ proc section_check {} {
     }
     set test "check sections 1"
 
-    set ldflags "--check-sections -e foo"
+    set ldflags "$LDFLAGS --check-sections -e foo"
 
     if { ![ld_assemble $as $srcdir/$subdir/asm.s tmpdir/asm.o]} {
        unresolved $test
@@ -50,7 +50,7 @@ proc section_check {} {
 
     # Change the linker flags so that our "buggy" linker
     # script is used.
-    set ldflags "--check-sections -T $srcdir/$subdir/script -e foo"
+    set ldflags "$LDFLAGS --check-sections -T $srcdir/$subdir/script -e foo"
 
     # Perform the equivalent of invoking ld_link
     # except that we need to massage the output further.
index ab53ac14a9bd37cb3983e91c62d02b8392b3c69b..00c65548ba3bff78b7899a57d819a31737cfe153 100644 (file)
@@ -26,7 +26,7 @@ if ![ld_assemble $as $srcdir/$subdir/assert.s tmpdir/assert.o] {
     return
 }
 
-if ![ld_link $ld tmpdir/assert "-T $srcdir/$subdir/assert.t tmpdir/assert.o"] {
+if ![ld_link $ld tmpdir/assert "$LDFLAGS -T $srcdir/$subdir/assert.t tmpdir/assert.o"] {
     fail $testname
 } else {
     pass $testname
index d6faef811fcae886e15b33229aaea149593647e3..877559b563e1784f41e09f447c08c0ed18ecc84c 100644 (file)
@@ -26,7 +26,7 @@ if ![ld_assemble $as $srcdir/$subdir/extern.s tmpdir/extern.o] {
     return
 }
 
-if ![ld_link $ld tmpdir/extern "-T $srcdir/$subdir/extern.t tmpdir/extern.o"] {
+if ![ld_link $ld tmpdir/extern "$LDFLAGS -T $srcdir/$subdir/extern.t tmpdir/extern.o"] {
     fail $testname
     return
 }
index d67504b4b068f9791bd6c30cf4d71c8244827b60..228cd5c9374e632bd7b299c0e3b4970ae9f29f57 100644 (file)
@@ -26,7 +26,7 @@ if {![ld_assemble $as $srcdir/$subdir/log2.s tmpdir/log2.o]} {
     return
 }
 
-if {![ld_link $ld tmpdir/log2 "-T $srcdir/$subdir/log2.t tmpdir/log2.o"]} {
+if {![ld_link $ld tmpdir/log2 "$LDFLAGS -T $srcdir/$subdir/log2.t tmpdir/log2.o"]} {
     fail $testname
 } else {
     pass $testname
index 352a9d8f1efd9ce6e5370798dbbe2cfb6817d97c..1f9457a8cdbac1a30e48f4a67efa4a95bebe76ef 100644 (file)
@@ -27,7 +27,7 @@ if {![ld_assemble $as $srcdir/$subdir/sizeof.s tmpdir/map-address.o]} {
 }
 
 if {![ld_link $ld tmpdir/map-address \
-        "-T $srcdir/$subdir/map-address.t \
+        "$LDFLAGS -T $srcdir/$subdir/map-address.t \
          tmpdir/map-address.o \
          -Map tmpdir/map-address.map"]} {
     fail $testname
@@ -49,7 +49,7 @@ if {[regexp_diff \
 set testname "map to directory"
 
 if {![ld_link $ld tmpdir/map-address \
-        "-T $srcdir/$subdir/map-address.t \
+        "$LDFLAGS -T $srcdir/$subdir/map-address.t \
          tmpdir/map-address.o \
          -Map tmpdir --output fred"]} {
     fail $testname
index 58d8b8b7cd87dfd631c1057f03495c7dbc1964af..8b97f6c0832dc6549ce1114248a97a501856fea6 100644 (file)
@@ -182,15 +182,13 @@ proc extract_symbol_test { testfile testname } {
 }
 
 # PE targets need to set the image base to 0 to avoid complications from nm.
-set flags ""
 set old_LDFLAGS $LDFLAGS
 if { [is_pecoff_format] } then {
-    set flags "--image-base 0"
-    set LDFLAGS "$LDFLAGS --image-base 0"
+    append LDFLAGS " --image-base 0"
 } elseif { [is_xcoff_format] } then {
-    set flags "-bnogc"
-    set LDFLAGS "$LDFLAGS -bnogc"
+    append LDFLAGS " -bnogc"
 }
+set flags $LDFLAGS
 
 if ![ld_link $ld tmpdir/script "$flags -T $srcdir/$subdir/script.t tmpdir/script.o"] {
     fail $testname
index 4381573f8994112543b474182517840bd06a240b..e4f0219e3e05d2f00fdee980fa08c6c3ce5e78f7 100644 (file)
@@ -27,7 +27,7 @@ if ![ld_assemble $as $srcdir/$subdir/sizeof.s tmpdir/sizeof.o] {
     return
 }
 
-if ![ld_link $ld tmpdir/sizeof "-T $srcdir/$subdir/sizeof.t tmpdir/sizeof.o"] {
+if ![ld_link $ld tmpdir/sizeof "$LDFLAGS -T $srcdir/$subdir/sizeof.t tmpdir/sizeof.o"] {
     fail $testname
     return
 }
index e933be781b733b9580dec17b4ba1fff0a3f6c816..c02640761994a84d02bafb214cde8c5eae8194ed 100644 (file)
@@ -305,7 +305,10 @@ proc default_ld_assemble { as in_flags source object } {
 
     if ![info exists ASFLAGS] { set ASFLAGS "" }
 
-    set flags "[big_or_little_endian] -I$srcdir/$subdir"
+    set flags [big_or_little_endian]
+    if [info exists subdir] {
+       append flags " -I$srcdir/$subdir"
+    }
     set exec_output [run_host_cmd "$as" "$flags $in_flags $ASFLAGS -o $object $source"]
     set exec_output [prune_warnings $exec_output]
     if [string match "" $exec_output] then {
@@ -450,6 +453,7 @@ proc ar_simple_create { ar aropts target objects } {
 #
 proc run_ld_link_tests { ldtests args } {
     global ld
+    global LDFLAGS
     global as
     global nm
     global ar
@@ -463,9 +467,9 @@ proc run_ld_link_tests { ldtests args } {
     global runtests
     global exec_output
 
-    set ld_extra_opt ""
+    set ld_extra_opt $LDFLAGS
     if [check_relro_support] {
-       set ld_extra_opt "-z norelro"
+       append ld_extra_opt " -z norelro"
     }
 
     foreach testitem $ldtests {