diff options
| author | Tristan Gingold | 2015-11-25 05:31:09 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-11-25 05:31:09 +0100 |
| commit | 47d427263cf55a92bc2a1d4fa22cb1e5a7e1cba0 (patch) | |
| tree | 8614e64ee80333c29d3fa6a18585831b48e1fecd /src | |
| parent | 45b6332f6e8115049c83c6c9b72cfb79db4ab13e (diff) | |
| download | ghdl-47d427263cf55a92bc2a1d4fa22cb1e5a7e1cba0.tar.gz ghdl-47d427263cf55a92bc2a1d4fa22cb1e5a7e1cba0.tar.bz2 ghdl-47d427263cf55a92bc2a1d4fa22cb1e5a7e1cba0.zip | |
Improve error message when ',' is used instead of ';' in interface.
Diffstat (limited to 'src')
| -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 |