From 294776e50fcf207bd4a63c1f703956d4bdfb7b93 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 14 Aug 2007 08:40:34 +0000 Subject: [PATCH] 2007-08-14 Robert Dewar * 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 --- gcc/ada/par-tchk.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index a87d6a0..b7cf4c4 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -696,13 +696,15 @@ package body Tchk is 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; -- 2.7.4