MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name is Error.

Browse Source 
* sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name
        is Error. Similar change for other renaming cases.

From-SVN: r46519
This commit is contained in:
Robert Dewar 2001-10-26 01:46:11 +00:00 committed by Geert Bosch
parent 24377ae42f
commit ed4a14688d
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
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.
2001-10-25 Robert Dewar <dewar@gnat.com>
* s-atacco.ads: Add pragma Inline_Always for functions.

14
gcc/ada/sem_ch8.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- $Revision: 1.583 $
-- $Revision$
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
@ -545,6 +545,10 @@ package body Sem_Ch8 is
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,6 +609,10 @@ package body Sem_Ch8 is
T2 : Entity_Id;
begin
if Nam = Error then
return;
end if;
Set_Is_Pure (Id, Is_Pure (Current_Scope));
Enter_Name (Id);
@ -716,6 +724,10 @@ package body Sem_Ch8 is
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