From e29ff7211b608b7aa998a834e55160324fa3744a Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 27 Apr 2023 10:26:43 -0600 Subject: Avoid some compiler warnings in gdb.ada Running gdb.ada/verylong.exp shows a warning from the Ada compiler: prog.adb:16:11: warning: file name does not match unit name, should be "main.adb" [enabled by default] This patch fixes the problem, and another similar one in unchecked_union.exp. --- gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb | 4 ++-- gdb/testsuite/gdb.ada/verylong/prog.adb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb index c3bccb6..502c1da 100644 --- a/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb +++ b/gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb @@ -16,7 +16,7 @@ with System; with Pck; use Pck; -procedure Foo is +procedure Unchecked_Union is type Key is (Alpha, Beta, Omega); type Inner(Disc : Key := Omega) is record @@ -52,4 +52,4 @@ procedure Foo is begin Do_Nothing (Value'Address); -- BREAK -end Foo; +end Unchecked_Union; diff --git a/gdb/testsuite/gdb.ada/verylong/prog.adb b/gdb/testsuite/gdb.ada/verylong/prog.adb index 766419d..63fba1d 100644 --- a/gdb/testsuite/gdb.ada/verylong/prog.adb +++ b/gdb/testsuite/gdb.ada/verylong/prog.adb @@ -13,8 +13,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . -procedure Main is +procedure Prog is X : Long_Long_Long_Integer := Long_Long_Long_Integer'Last; begin null; -- START -end Main; +end Prog; -- cgit v1.1