diff options
| author | Tom Tromey <tromey@adacore.com> | 2025-01-08 13:05:16 -0700 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2025-01-08 13:05:16 -0700 |
| commit | feab172f4ab4e1ebc2bcd686f653e6b40041f647 (patch) | |
| tree | a02c297579c21ab354785b8a4eb15748f27aca5b /gdb/testsuite/gdb.dap/ada-scopes/prog.adb | |
| parent | d70701731d1e3d9b6e87808f853b40e997ba0454 (diff) | |
| download | binutils-feab172f4ab4e1ebc2bcd686f653e6b40041f647.zip binutils-feab172f4ab4e1ebc2bcd686f653e6b40041f647.tar.gz binutils-feab172f4ab4e1ebc2bcd686f653e6b40041f647.tar.bz2 | |
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.
Diffstat (limited to 'gdb/testsuite/gdb.dap/ada-scopes/prog.adb')
| -rw-r--r-- | gdb/testsuite/gdb.dap/ada-scopes/prog.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.dap/ada-scopes/prog.adb b/gdb/testsuite/gdb.dap/ada-scopes/prog.adb index 22586ef..17511f7 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; |