diff options
| author | Tom Tromey <tromey@adacore.com> | 2023-04-27 10:26:43 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2023-04-27 10:31:32 -0600 |
| commit | e29ff7211b608b7aa998a834e55160324fa3744a (patch) | |
| tree | 4c5dc963627151781372d6f58142854117d1d414 | |
| parent | 670c91c0c5eb3fb16d42fe5b2d48a33c64e3ec52 (diff) | |
| download | gdb-e29ff7211b608b7aa998a834e55160324fa3744a.zip gdb-e29ff7211b608b7aa998a834e55160324fa3744a.tar.gz gdb-e29ff7211b608b7aa998a834e55160324fa3744a.tar.bz2 | |
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.
| -rw-r--r-- | gdb/testsuite/gdb.ada/unchecked_union/unchecked_union.adb | 4 | ||||
| -rw-r--r-- | 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 <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; |