2005-07-04 Ed Schonberg <schonberg@adacore.com>
* par-ch9.adb (P_Task, P_Protected): Indicate that single task and
single protected declarations can have an interface list.
(P_Entry_Declaration): Add handler for Error_Resync, which can be raised
with seriously malformed entry declarations, and lead to compilation
abandoned messages.
From-SVN: r101583
-- [is [new INTERFACE_LIST with] TASK_DEFINITION];
-- SINGLE_TASK_DECLARATION ::=
- -- task DEFINING_IDENTIFIER [is TASK_DEFINITION];
+ -- task DEFINING_IDENTIFIER
+ -- [is [new INTERFACE_LIST with] TASK_DEFINITION];
-- TASK_BODY ::=
-- task body DEFINING_IDENTIFIER is
-- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
-- SINGLE_PROTECTED_DECLARATION ::=
- -- protected DEFINING_IDENTIFIER is PROTECTED_DEFINITION;
+ -- protected DEFINING_IDENTIFIER
+ -- is [new INTERFACE_LIST with] PROTECTED_DEFINITION;
-- PROTECTED_BODY ::=
-- protected body DEFINING_IDENTIFIER is
TF_Semicolon;
return Decl_Node;
+
+ exception
+ when Error_Resync =>
+ Resync_Past_Semicolon;
+ return Error;
end P_Entry_Declaration;
-----------------------------