This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix ACATS B85010A - "compilation abandoned" with -gnatq
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Fix ACATS B85010A - "compilation abandoned" with -gnatq
- From: bosch at gnat dot com
- Date: Thu, 25 Oct 2001 21:45:54 -0400 (EDT)
2001-10-25 Robert Dewar <dewar@gnat.com>
* sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name
is Error. Similar change for other renaming cases.
*** sem_ch8.adb 2001/09/21 14:25:14 1.583
--- sem_ch8.adb 2001/10/15 03:17:56 1.584
***************
*** 545,550 ****
--- 545,554 ----
Inst : Boolean := False; -- prevent junk warning
begin
+ if Name (N) = Error then
+ return;
+ end if;
+
Generate_Definition (New_P);
if Current_Scope /= Standard_Standard then
***************
*** 605,610 ****
--- 609,618 ----
T2 : Entity_Id;
begin
+ if Nam = Error then
+ return;
+ end if;
+
Set_Is_Pure (Id, Is_Pure (Current_Scope));
Enter_Name (Id);
***************
*** 716,721 ****
--- 724,733 ----
Spec : Node_Id;
begin
+ if Name (N) = Error then
+ return;
+ end if;
+
-- Apply Text_IO kludge here, since we may be renaming one of
-- the children of Text_IO