This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [PING] ada: Various patches
- From: Samuel Tardieu <sam at rfc1149 dot net>
- To: Arnaud Charlet <charlet at adacore dot com>
- Cc: gcc-patches at gcc dot gnu dot org, Gary Dismukes <dismukes at adacore dot com>
- Date: Tue, 15 Apr 2008 13:52:42 +0200
- Subject: Re: [PING] ada: Various patches
- References: <20071129223430.81B1CC405E@mail2.rfc1149.net> <2007-12-19-00-35-01+trackit+sam@rfc1149.net> <2008-02-26-09-00-10+trackit+sam@rfc1149.net> <20080415094102.GA378@adacore.com>
On 15/04, Arnaud Charlet wrote:
| A change is also needed to End_Use_Package to avoid blowing up when
| processing the names of the use clause. A proper patch is included
| below (from Gary Dismukes).
Your patch lets Pack uninitialized and causes ICEs. The following change
is also necessary:
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index a879768..3b28bdf 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -3077,6 +3077,8 @@ package body Sem_Ch8 is
if Is_Entity_Name (Pack_Name)
and then Ekind (Entity (Pack_Name)) = E_Package
then
+ Pack := Entity (Pack_Name);
+
if In_Open_Scopes (Pack) then
null;