diff options
| -rw-r--r-- | src/vhdl/parse.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index 5075c95..3d3bfcf 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -1574,7 +1574,14 @@ package body Parse is Last := Next; end loop; - exit when Current_Token /= Tok_Semi_Colon; + case Current_Token is + when Tok_Comma => + Error_Msg_Parse ("';' expected instead of ','"); + when Tok_Semi_Colon => + null; + when others => + exit; + end case; end loop; if Current_Token /= Tok_Right_Paren then |