diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-08 16:15:06 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-08 18:15:06 +0200 |
| commit | 5c7365415f4e2ca35b9ddd05d05888210cd55d4b (patch) | |
| tree | 4fa6043235cf58bee6726c72dce924b1b6e8327f /gcc/ada/par.adb | |
| parent | a153ae15978eb73d04afcf141aaac12b7c6e9356 (diff) | |
| download | gcc-5c7365415f4e2ca35b9ddd05d05888210cd55d4b.zip gcc-5c7365415f4e2ca35b9ddd05d05888210cd55d4b.tar.gz gcc-5c7365415f4e2ca35b9ddd05d05888210cd55d4b.tar.bz2 | |
atree.adb: Set Error_Posted in Error node, helps error recovery.
* 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).
From-SVN: r46077
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index f45a83b..958a8a7 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.126 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -396,6 +396,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- field references an N_Defining_Program_Unit_Name node for the name. -- For cases other than LOOP or BEGIN, the Label field is set to Error, -- indicating that it is an error to have a label on the end line. + -- (this is really a misuse of Error since there is no Error ???) Decl : List_Id; -- Points to the list of declarations (i.e. the declarative part) |