From: Robert Dewar <dewar@adacore.com>
Date: Tue, 14 Aug 2007 08:40:34 +0000 (+0200)
Subject: par-tchk.adb (TF_Semicolon): Improve error recovery
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=852ab9d007807547a8a4ae456095e975dfe7a5c6;p=gcc.git

par-tchk.adb (TF_Semicolon): Improve error recovery

2007-08-14  Robert Dewar  <dewar@adacore.com>

	* par-tchk.adb (TF_Semicolon): Improve error recovery

From-SVN: r127424
---

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;