[binutils-gdb] libctf: test: add lookup_link

[binutils-gdb] libctf: test: add lookup_link

[Nick Alcock]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=26f0f80b6fbccc652ef363ff9e608c12c99df0c6

commit 26f0f80b6fbccc652ef363ff9e608c12c99df0c6
Author: Nick Alcock <nick.alcock@oracle.com>
Date:   Fri Apr 26 18:13:23 2024 +0100

    libctf: test: add lookup_link
    
    This .lk option lets you link the lookup program with extra libraries
    in addition to -lctf.
    
    libctf/
            * testsuite/lib/ctf-lib.exp (run_lookup_test): Add lookup_link.

Diff:
---
 libctf/testsuite/lib/ctf-lib.exp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/libctf/testsuite/lib/ctf-lib.exp b/libctf/testsuite/lib/ctf-lib.exp
index 3df76198d66..523a8c31e1e 100644
--- a/libctf/testsuite/lib/ctf-lib.exp
+++ b/libctf/testsuite/lib/ctf-lib.exp
@@ -100,6 +100,9 @@ proc compile_link_one_host_cc { src output additional_args } {
 #   link_flags:
 #	If set, extra flags to pass to the linker.
 #
+#   lookup_link:
+#       If set, extra libraries to link the lookup program with.
+#
 #   xfail: GLOB|PROC ...
 #	This test is expected to fail on a specified list of targets.
 #
@@ -137,6 +140,7 @@ proc run_lookup_test { name } {
     set shared "-shared"
     set opts(link) {}
     set opts(link_flags) {}
+    set opts(lookup_link) {}
     set opts(nonshared) {}
     set opts(lookup) {}
     set opts(name) {}
@@ -191,7 +195,7 @@ proc run_lookup_test { name } {
     }
 
     # Compile and link the lookup program.
-    set comp_output [prune_warnings [compile_link_one_host_cc $opts(lookup) "tmpdir/lookup" "libctf.la"]]
+    set comp_output [prune_warnings [compile_link_one_host_cc $opts(lookup) "tmpdir/lookup" "libctf.la $opts(lookup_link)"]]
 
     if { $comp_output != ""} {
 	send_log "compilation of lookup program $opts(lookup) failed with <$comp_output>"