From ac1349b75a77e0fc0e8b76a69bfcf246936e721c Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 1 Dec 2011 23:16:44 +0000 Subject: Make sure all types in gdb.ada/homonym testcase are used... Otherwise, the compiler does not generate any debug info for them. This fixes 3 FAILs: FAIL: gdb.ada/homonym.exp: ptype local_type_subtype at BREAK_1 FAIL: gdb.ada/homonym.exp: ptype int_type at BREAK_1 FAIL: gdb.ada/homonym.exp: ptype local_type_subtype at BREAK_2 gdb/testsuite/ChangeLog: * gdb.ada/homonym/pck.ads, gdb.ada/homonym/pck.adb: New files. * gdb.ada/homonym/homonym.adb: For use of all types defined locally inside both Get_Value subprograms. --- gdb/testsuite/gdb.ada/homonym/homonym.adb | 10 ++++++++++ gdb/testsuite/gdb.ada/homonym/pck.adb | 21 +++++++++++++++++++++ gdb/testsuite/gdb.ada/homonym/pck.ads | 19 +++++++++++++++++++ 3 files changed, 50 insertions(+) create mode 100644 gdb/testsuite/gdb.ada/homonym/pck.adb create mode 100644 gdb/testsuite/gdb.ada/homonym/pck.ads (limited to 'gdb/testsuite/gdb.ada/homonym') diff --git a/gdb/testsuite/gdb.ada/homonym/homonym.adb b/gdb/testsuite/gdb.ada/homonym/homonym.adb index f459728..43ba23f 100644 --- a/gdb/testsuite/gdb.ada/homonym/homonym.adb +++ b/gdb/testsuite/gdb.ada/homonym/homonym.adb @@ -13,6 +13,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see . +with Pck; use Pck; + package body Homonym is type Integer_Range is new Integer range -100 .. 100; @@ -28,7 +30,11 @@ package body Homonym is subtype Local_Type_Subtype is Local_Type; subtype Int_Type is Integer_Range; Lcl : Local_Type := 29; + Some_Local_Type_Subtype : Local_Type_Subtype := Lcl; + I : Int_Type := 1; begin + Do_Nothing (Some_Local_Type_Subtype'Address); + Do_Nothing (I'Address); return Lcl; -- BREAK_1 end Get_Value; @@ -42,7 +48,11 @@ package body Homonym is subtype Local_Type_Subtype is Local_Type; subtype Pos_Type is Positive_Range; Lcl : Local_Type := 17; + Some_Local_Type_Subtype : Local_Type_Subtype := Lcl; + P : Pos_Type := 2; begin + Do_Nothing (Some_Local_Type_Subtype'Address); + Do_Nothing (P'Address); return Lcl; -- BREAK_2 end Get_Value; diff --git a/gdb/testsuite/gdb.ada/homonym/pck.adb b/gdb/testsuite/gdb.ada/homonym/pck.adb new file mode 100644 index 0000000..114fe03 --- /dev/null +++ b/gdb/testsuite/gdb.ada/homonym/pck.adb @@ -0,0 +1,21 @@ +-- Copyright 2011 Free Software Foundation, Inc. +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 3 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see . + +package body Pck is + procedure Do_Nothing (A : System.Address) is + begin + null; + end Do_Nothing; +end Pck; diff --git a/gdb/testsuite/gdb.ada/homonym/pck.ads b/gdb/testsuite/gdb.ada/homonym/pck.ads new file mode 100644 index 0000000..f8a4ed5 --- /dev/null +++ b/gdb/testsuite/gdb.ada/homonym/pck.ads @@ -0,0 +1,19 @@ +-- Copyright 2011 Free Software Foundation, Inc. +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 3 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see . + +with System; +package Pck is + procedure Do_Nothing (A : System.Address); +end Pck; -- cgit v1.1