diff mbox series

[pushed] Rename two Ada test suite functions

Message ID 20250108200605.3973069-1-tromey@adacore.com
State New
Headers
Series [pushed] Rename two Ada test suite functions |

Checks

Context Check Description
linaro-tcwg-bot/tcwg_gdb_build--master-arm fail Patch failed to apply
linaro-tcwg-bot/tcwg_gdb_build--master-aarch64 fail Patch failed to apply

Commit Message

Tom Tromey Jan. 8, 2025, 8:06 p.m. UTC 
  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.
---
 gdb/testsuite/gdb.dap/ada-nested/prog.adb | 4 ++--
 gdb/testsuite/gdb.dap/ada-scopes/prog.adb | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)
diff mbox series

Patch

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;