diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-08 16:15:06 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-08 16:15:06 +0000 |
| commit | 37d8f03021b8db774195e4e576067f249bbd651d (patch) | |
| tree | 4fa6043235cf58bee6726c72dce924b1b6e8327f /gcc/ada/par-endh.adb | |
| parent | 33c2b4c3848e3d337e01842de1b584a277c9787f (diff) | |
| download | ppe42-gcc-37d8f03021b8db774195e4e576067f249bbd651d.tar.gz ppe42-gcc-37d8f03021b8db774195e4e576067f249bbd651d.zip | |
* atree.adb: Set Error_Posted in Error node, helps error recovery.
* par-endh.adb (Output_End_Expected): We should also not test
Error_Posted on the Error node, since now it is always set.
* cstand.adb (Create_Standard): Set Etype of Error to Any_Type
to help error recovery. Part of general work on 9407-004.
* par.adb: Add ??? for misuse of error
* sem_res.adb:
(Resolve): Defend against Error, fixes 9407-003.
(Resolve_Discrete_Subtype_Indication): Defend against Error.
* sinfo.ads (N_Error): Now has Etype field (which will be set
to Any_Type to help error recovery).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46077 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-endh.adb')
| -rw-r--r-- | gcc/ada/par-endh.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index fa5b8c20a1a..dfbe46cc9b1 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.61 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -791,7 +791,7 @@ package body Endh is -- Suppress message if error was posted on opening label - if Present (Error_Msg_Node_1) + if Error_Msg_Node_1 > Empty_Or_Error and then Error_Posted (Error_Msg_Node_1) then return; |
