diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-26 01:46:11 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 03:46:11 +0200 |
| commit | ed4a14688d13dcabe426d88b81a63f9c12aa4ba2 (patch) | |
| tree | ad94c31a5d4a9bcb3ec4143afdcc6158d1193ae7 | |
| parent | 24377ae42f5715c9e6857645a7476644244032e3 (diff) | |
| download | gcc-ed4a14688d13dcabe426d88b81a63f9c12aa4ba2.zip gcc-ed4a14688d13dcabe426d88b81a63f9c12aa4ba2.tar.gz gcc-ed4a14688d13dcabe426d88b81a63f9c12aa4ba2.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 14 |
2 files changed, 18 insertions, 1 deletions
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 <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. 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 |