From: Tom Tromey <tromey@adacore.com>
Date: Mon, 9 Feb 2026 19:17:17 +0000 (-0700)
Subject: Minor Ada test fix for gnat-llvm
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=17344baa1daed6b962e8340d3c7f8747ac4667b0;p=thirdparty%2Fbinutils-gdb.git

Minor Ada test fix for gnat-llvm

gdb.ada/char_enum_overload.exp fails because LLVM optimizes away the
necessary function parameters.  Adding a couple of calls to Do_Nothing
makes this test work.
---

diff --git a/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb b/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
index 89725140684..42ea847fc6f 100644
--- a/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
+++ b/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
@@ -15,12 +15,15 @@
 
 package body Pck is
    procedure Overloaded (Value : Global_Enum_Type) is
+      X : Global_Enum_Type := Value;
    begin
-      null;
+      Do_Nothing (X'Address);
    end Overloaded;
 
    function Overloaded (Value : Character) return Global_Enum_Type is
+      X : Character := Value;
    begin
+      Do_Nothing (X'Address);
       return 'Y';
    end Overloaded;