From fef3204ec6f690b5b3eea1fbb782556202804af8 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 26 Oct 2001 01:34:58 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/par-ch3.adb | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2a96c89..a776dee 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2001-10-25 Ed Schonberg + * 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 + * 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 937f02d..2116653 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; -- 2.7.4