From 852ab9d007807547a8a4ae456095e975dfe7a5c6 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 14 Aug 2007 10:40:34 +0200 Subject: [PATCH] par-tchk.adb (TF_Semicolon): Improve error recovery 2007-08-14 Robert Dewar * par-tchk.adb (TF_Semicolon): Improve error recovery From-SVN: r127424 --- 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 a87d6a09f9a..b7cf4c4ef47 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.30.2