From 95571911c3eaa33433b9e31013dfa697175713ce Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Oct 2017 06:09:34 +0200
Subject: parser: improve error message on extra ';'.

---
 src/vhdl/parse.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index d624a4563..a046c10aa 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -6589,6 +6589,14 @@ package body Parse is
 
             when Tok_Wait =>
                Stmt := Parse_Wait_Statement;
+
+            when Tok_Semi_Colon =>
+               Error_Msg_Parse ("extra ';' ignored");
+
+               --  Eat ';'
+               Scan;
+
+               goto Again;
             when others =>
                return First_Stmt;
          end case;
@@ -6612,6 +6620,8 @@ package body Parse is
             Set_Chain (Last_Stmt, Stmt);
          end if;
          Last_Stmt := Stmt;
+
+         <<Again>> null;
       end loop;
    end Parse_Sequential_Statements;
 
-- 
cgit v1.2.3