From: Tom Tromey <tromey@adacore.com>
Date: Wed, 12 Feb 2025 17:57:13 +0000 (-0700)
Subject: Check whether gnatmake can link with -shared
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b55f9065770985801f7166d0e685671255252b5d;p=thirdparty%2Fbinutils-gdb.git

Check whether gnatmake can link with -shared

Currently, gnat-llvm does not ship a shared libgnat.  This patch
changes the relevant test to check whether linking with -shared
actually works.
---

diff --git a/gdb/testsuite/gdb.ada/win_fu_syms.exp b/gdb/testsuite/gdb.ada/win_fu_syms.exp
index 527a4496649..77c636b2eb2 100644
--- a/gdb/testsuite/gdb.ada/win_fu_syms.exp
+++ b/gdb/testsuite/gdb.ada/win_fu_syms.exp
@@ -16,6 +16,7 @@
 load_lib "ada.exp"
 
 require allow_ada_tests
+require ada_shared_link
 
 standard_ada_testfile foo
 
diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index 00ea570fdd7..0a1231b1d59 100644
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -289,3 +289,12 @@ gdb_caching_proc ada_minimal_encodings {} {
 gdb_caching_proc ada_og {} {
     return [ada_simple_compile gnat_og additional_flags=-Og]
 }
+
+# Return 1 if GNAT can link with -shared.
+gdb_caching_proc ada_shared_link {} {
+    return [ada_simple_compile ada_shared_link {
+	additional_flags=-bargs
+	additional_flags=-shared
+	additional_flags=-margs
+    }]
+}