diff options
| -rw-r--r-- | src/vhdl/parse.adb | 10 |
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; |