From dfc69d80c186f77231296c99cdf86bd520370a85 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 26 Oct 2001 01:29:47 +0000 Subject: sem_util.adb (Enter_Name): better handling of cascaded error messages when a unit appears in its own context. * sem_util.adb (Enter_Name): better handling of cascaded error messages when a unit appears in its own context. From-SVN: r46516 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/sem_util.adb | 12 ++++++++++++ 2 files changed, 17 insertions(+) (limited to 'gcc') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ecb970a..2a96c89 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2001-10-25 Ed Schonberg + * sem_util.adb (Enter_Name): better handling of cascaded error + messages when a unit appears in its own context. + +2001-10-25 Ed Schonberg + * sem_util.adb (Defining_Entity): in case of error, attach created entity to specification, so that semantic analysis can proceed. diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 7bc2b92..e53f871 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -1602,6 +1602,18 @@ package body Sem_Util is Error_Msg_N ("& conflicts with declaration#", E); return; + -- If the name of the unit appears in its own context clause, + -- a dummy package with the name has already been created, and + -- the error emitted. Try to continue quietly. + + elsif Error_Posted (E) + and then Sloc (E) = No_Location + and then Nkind (Parent (E)) = N_Package_Specification + and then Current_Scope = Standard_Standard + then + Set_Scope (Def_Id, Current_Scope); + return; + else Error_Msg_N ("& conflicts with declaration#", Def_Id); -- cgit v1.1