diff options
| author | Ed Schonberg <schonber@gnat.com> | 2001-10-26 01:34:58 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 03:34:58 +0200 |
| commit | fef3204ec6f690b5b3eea1fbb782556202804af8 (patch) | |
| tree | a513cc14fb0b4e681e04e4ec9ae0d18d35abf308 /gcc/ada | |
| parent | dfc69d80c186f77231296c99cdf86bd520370a85 (diff) | |
| download | gcc-fef3204ec6f690b5b3eea1fbb782556202804af8.tar.gz | |
par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array return Error rather than Empty so that analysis can proceed.
* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array
return Error rather than Empty so that analysis can proceed.
From-SVN: r46517
Diffstat (limited to 'gcc/ada')
| -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; |