diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 01:34:58 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-26 01:34:58 +0000 |
| commit | a955b866c37d5eb0d4a767a40dcade03349ee196 (patch) | |
| tree | a513cc14fb0b4e681e04e4ec9ae0d18d35abf308 | |
| parent | 9c4be4ce11328661557486dcb357488f859e4e53 (diff) | |
| download | ppe42-gcc-a955b866c37d5eb0d4a767a40dcade03349ee196.tar.gz ppe42-gcc-a955b866c37d5eb0d4a767a40dcade03349ee196.zip | |
* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array
return Error rather than Empty so that analysis can proceed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46517 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/par-ch3.adb | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2a96c895dd6..a776dee0916 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2001-10-25 Ed Schonberg <schonber@gnat.com> + * par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array + return Error rather than Empty so that analysis can proceed. + +2001-10-25 Ed Schonberg <schonber@gnat.com> + * sem_util.adb (Enter_Name): better handling of cascaded error messages when a unit appears in its own context. diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 937f02d0e7c..211665345e1 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.148 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -796,7 +796,7 @@ package body Ch3 is if Token = Tok_Array then Error_Msg_SC ("anonymous array definition not allowed here"); Discard_Junk_Node (P_Array_Type_Definition); - return Empty; + return Error; else Type_Node := P_Qualified_Simple_Name_Resync; |
