summaryrefslogtreecommitdiff
path: root/gcc/ada/sinfo.ads
diff options
context:
space:
mode:
authorbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-08 16:15:06 +0000
committerbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-08 16:15:06 +0000
commit37d8f03021b8db774195e4e576067f249bbd651d (patch)
tree4fa6043235cf58bee6726c72dce924b1b6e8327f /gcc/ada/sinfo.ads
parent33c2b4c3848e3d337e01842de1b584a277c9787f (diff)
downloadgcc-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.ads19
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