From: Tom Tromey <tromey@adacore.com>
Date: Wed, 12 Feb 2025 16:35:26 +0000 (-0700)
Subject: Check for compiler support in scalar_storage.exp
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=be382ece165eefa3e65f61bfb6b2aa2ee95dd6b4;p=thirdparty%2Fbinutils-gdb.git

Check for compiler support in scalar_storage.exp

gnat-llvm does not currently handle Scalar_Storage_Order.  This patch
changes the scalar_storage.exp test to check the compiler error
messages and report "unsupported" in this case.  This way, the test
ought to start working automatically if this feature is added to
gnat-llvm.
---

diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp
index f8fc46974b1..47de6e912f7 100644
--- a/gdb/testsuite/gdb.ada/scalar_storage.exp
+++ b/gdb/testsuite/gdb.ada/scalar_storage.exp
@@ -22,8 +22,20 @@ require allow_ada_tests
 
 standard_ada_testfile storage
 
-if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
-  return -1
+# Compilation here will fail with gnat-llvm, because at the moment it
+# does not support Scalar_Storage_Order.  However, if that is ever
+# implemented, we want the test to start working.  So, we examine the
+# output before deciding if this is a real failure.
+set output [gdb_compile_ada_1 "${srcfile}" "${binfile}" executable debug]
+if {$output != ""} {
+    if {[regexp "error: reverse storage order .* not supported by LLVM" $output]} {
+	unsupported "scalar storage order not supported"
+    } else {
+	# Otherwise issue the fail.
+	gdb_compile_test $srcfile $result
+    }
+    # Either way we're not running this test.
+    return
 }
 
 clean_restart ${testfile}