* par-tchk.adb (TF_Semicolon): Improve error recovery
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127424
138bc75d-0d04-0410-961f-
82ee72b054a4
T_Semicolon;
- -- Scan out junk on rest of line
+ -- Scan out junk on rest of line. Scan stops on END keyword, since
+ -- that seems to help avoid cascaded errors.
Save_Scan_State (Scan_State); -- at start of junk tokens
loop
if Prev_Token_Ptr < Current_Line_Start
or else Token = Tok_EOF
+ or else Token = Tok_End
then
Restore_Scan_State (Scan_State); -- to where we were
return;