parser: improve error message on extra ';'.

1 files changed, 10 insertions, 0 deletions

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;