* [pushed] Avoid some compiler warnings in gdb.ada
@ 2023-04-27 16:32 Tom Tromey
0 siblings, 0 replies; only message in thread
From: Tom Tromey @ 2023-04-27 16:32 UTC (permalink / raw)
To: gdb-patches; +Cc: Tom Tromey
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 c3bccb69696..502c1da37bc 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 766419d0a4f..63fba1d2d3a 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 <http://www.gnu.org/licenses/>.
-procedure Main is
+procedure Prog is
X : Long_Long_Long_Integer := Long_Long_Long_Integer'Last;
begin
null; -- START
-end Main;
+end Prog;
--
2.39.1
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-04-27 16:32 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-04-27 16:32 [pushed] Avoid some compiler warnings in gdb.ada Tom Tromey
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).