From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 13 Nov 2020 14:56:14 +0000 (-0500)
Subject: [Ada] Improve error recovery
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7b76fe3dcf8067d6f24240841c1cd33fcd5e829b;p=gcc.git

[Ada] Improve error recovery

gcc/ada/

	* par-ch6.adb (P_Formal_Part): Remove extra call to Scan.
	* par-tchk.adb: Minor reformatting.
---

diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb
index c8f4d87f045..0fcd23ab914 100644
--- a/gcc/ada/par-ch6.adb
+++ b/gcc/ada/par-ch6.adb
@@ -1650,7 +1650,6 @@ package body Ch6 is
 
          elsif Token = Tok_Comma then
             T_Semicolon;
-            Scan; -- past comma
 
          --  Special check for omitted separator
 
diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb
index 65ff45aa0e6..7a3ed5c1839 100644
--- a/gcc/ada/par-tchk.adb
+++ b/gcc/ada/par-tchk.adb
@@ -436,7 +436,6 @@ package body Tchk is
 
    procedure T_Semicolon is
    begin
-
       if Token = Tok_Semicolon then
          Scan;