From: Robert Dewar Date: Fri, 26 Oct 2001 01:46:11 +0000 (+0000) Subject: sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name is Error. X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ed4a14688d13dcabe426d88b81a63f9c12aa4ba2;p=platform%2Fupstream%2Fgcc.git sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name is Error. * sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name is Error. Similar change for other renaming cases. From-SVN: r46519 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 763f741..d65039b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2001-10-25 Robert Dewar + * sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name + is Error. Similar change for other renaming cases. + +2001-10-25 Robert Dewar + * s-atacco.ads: Add pragma Inline_Always for functions. Fix header format. Add copyright 2001 diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index ab90a10..3947eb8 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -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