From: Tom Tromey <tromey@adacore.com>
Date: Wed, 8 Jan 2025 20:05:16 +0000 (-0700)
Subject: Rename two Ada test suite functions
X-Git-Tag: binutils-2_44~230
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=feab172f4ab4e1ebc2bcd686f653e6b40041f647;p=thirdparty%2Fbinutils-gdb.git

Rename two Ada test suite functions

I happened to notice that the Ada compiler emitted a warning when
compiling a couple of DAP tests.  This wasn't intentional, and this
patch renames the functions to match the filename.
---

diff --git a/gdb/testsuite/gdb.dap/ada-nested/prog.adb b/gdb/testsuite/gdb.dap/ada-nested/prog.adb
index cbd7ac2762e..f20b17e3630 100644
--- a/gdb/testsuite/gdb.dap/ada-nested/prog.adb
+++ b/gdb/testsuite/gdb.dap/ada-nested/prog.adb
@@ -13,7 +13,7 @@
 --  You should have received a copy of the GNU General Public License
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-procedure Foo is
+procedure Prog is
    X  : Integer := 12;
 
    procedure Outer (Outer_Arg : Integer) is
@@ -29,4 +29,4 @@ begin
    for I in 1 .. 20 loop
       Outer (1);
    end loop;
-end Foo;
+end Prog;
diff --git a/gdb/testsuite/gdb.dap/ada-scopes/prog.adb b/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
index 22586ef2dea..17511f75eb3 100644
--- a/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
+++ b/gdb/testsuite/gdb.dap/ada-scopes/prog.adb
@@ -15,7 +15,7 @@
 
 with Pack; use Pack;
 
-procedure Foo is
+procedure Prog is
    type Enum_Type is (one, two, three);
    Value : Enum_Type := three;
 
@@ -23,4 +23,4 @@ procedure Foo is
 begin
    Do_Nothing (Value'address);
    Do_Nothing (My_String'address);  -- STOP
-end Foo;
+end Prog;