[PATCH] ld: Support LD_UNDER_TEST environment variable
H.J. Lu
hjl.tools@gmail.com
Sat Mar 16 13:39:32 GMT 2024
Support LD_UNDER_TEST environment variable to test a different linker.
Issue an error if LD_UNDER_TEST isn't a full path.
* testsuite/config/default.exp: If LD_UNDER_TEST environment
variable exists, set ld and LD to it and set up tmpdir/ld/ld.
Issue an error if LD_UNDER_TEST isn't a full path.
---
ld/testsuite/config/default.exp | 22 +++++++++++++++++++++-
1 file changed, 21 insertions(+), 1 deletion(-)
diff --git a/ld/testsuite/config/default.exp b/ld/testsuite/config/default.exp
index 705543054c2..09115de65e5 100644
--- a/ld/testsuite/config/default.exp
+++ b/ld/testsuite/config/default.exp
@@ -21,6 +21,19 @@
# Written by Jeffrey Wheat (cassidy@cygnus.com)
#
+if [info exists env(LD_UNDER_TEST)] {
+ # LD_UNDER_TEST must be a full path.
+ catch "file dirname $env(LD_UNDER_TEST)" dirname
+ if [string match "." $dirname] then {
+ perror "**************************************************"
+ perror "$env(LD_UNDER_TEST) isn't a full path."
+ perror "**************************************************"
+ exit 1
+ }
+ set ld "$env(LD_UNDER_TEST)"
+ set LD "$ld"
+}
+
if ![info exists ld] then {
set ld [findfile $base_dir/ld-new $base_dir/ld-new [transform ld]]
}
@@ -64,9 +77,16 @@ remote_exec host "mkdir -p tmpdir"
if {[info exists ld_testsuite_bindir]} {
set gcc_B_opt "-B$ld_testsuite_bindir/"
} else {
+ if [info exists env(LD_UNDER_TEST)] {
+ file delete -force tmpdir/ld
+ }
if {![file isdirectory tmpdir/ld]} then {
catch "exec mkdir tmpdir/ld" status
- catch "exec ln -s ../../ld-new tmpdir/ld/ld" status
+ if [info exists env(LD_UNDER_TEST)] {
+ catch "exec ln -s $env(LD_UNDER_TEST) tmpdir/ld/ld" status
+ } else {
+ catch "exec ln -s ../../ld-new tmpdir/ld/ld" status
+ }
catch "exec ln -s ld tmpdir/ld/collect-ld" status
catch "exec ln -s ../../../gas/as-new tmpdir/ld/as" status
}
--
2.44.0
More information about the Binutils
mailing list