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/sinfo.ads | |
parent | 33c2b4c3848e3d337e01842de1b584a277c9787f (diff) | |
download | gcc-37d8f03021b8db774195e4e576067f249bbd651d.tar.gz |
* 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/sinfo.ads')
-rw-r--r-- | gcc/ada/sinfo.ads | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 335f9fa379c..d6eca70bd30 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.430 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -6210,18 +6210,23 @@ package Sinfo is -- Empty -- ----------- - -- N_Empty - -- Chars (Name1) is set to No_Name -- Used as the contents of the Nkind field of the dummy Empty node -- and in some other situations to indicate an uninitialized value. + -- N_Empty + -- Chars (Name1) is set to No_Name + ----------- -- Error -- ----------- + -- Used as the contents of the Nkind field of the dummy Error node. + -- Has an Etype field, which gets set to Any_Type later on, to help + -- error recovery (Error_Posted is also set in the Error node). + -- N_Error -- Chars (Name1) is set to Error_Name - -- Used as the contents of the Nkind field of the dummy Error node + -- Etype (Node5-Sem) -------------------------- -- Node Type Definition -- @@ -6248,10 +6253,12 @@ package Sinfo is -- N_Has_Chars N_Empty, - N_Error, N_Pragma, N_Pragma_Argument_Association, + -- N_Has_Etype + N_Error, + -- N_Entity, N_Has_Etype, N_Has_Chars N_Defining_Character_Literal, N_Defining_Identifier, @@ -6587,7 +6594,7 @@ package Sinfo is -- Warning: DOES NOT INCLUDE N_Freeze_Entity! subtype N_Has_Etype is Node_Kind range - N_Defining_Character_Literal .. + N_Error .. N_Subtype_Indication; subtype N_Later_Decl_Item is Node_Kind range |