diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 01:46:11 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 01:46:11 +0000 |
| commit | d0204055bb3468eb07b12c7dedfa1fc78ec56632 (patch) | |
| tree | ad94c31a5d4a9bcb3ec4143afdcc6158d1193ae7 /gcc | |
| parent | a19b930bb432018c03b644a2fa0be373cac73318 (diff) | |
| download | ppe42-gcc-d0204055bb3468eb07b12c7dedfa1fc78ec56632.tar.gz ppe42-gcc-d0204055bb3468eb07b12c7dedfa1fc78ec56632.zip | |
* sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name
is Error. Similar change for other renaming cases.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46519 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -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 763f7416452..d65039b1e03 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 ab90a102d70..3947eb8ec9d 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 |
