diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-03-11 07:22:48 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-03-11 07:23:52 +0100 |
| commit | 399e3a80eaa421f398f4e8d3d63ee9640b1f042e (patch) | |
| tree | 101f055897278046f0246d5afca820b7b382118d | |
| parent | d3457b9db47199d65b3d038f671c82d660631135 (diff) | |
| download | ghdl-399e3a80eaa421f398f4e8d3d63ee9640b1f042e.tar.gz ghdl-399e3a80eaa421f398f4e8d3d63ee9640b1f042e.tar.bz2 ghdl-399e3a80eaa421f398f4e8d3d63ee9640b1f042e.zip | |
Improve error message
Fix #312
| -rw-r--r-- | src/vhdl/parse.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index 0b696a8d8..f2b0682e1 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -1061,7 +1061,8 @@ package body Parse is end if; Res := Parse_External_Name; when others => - Error_Msg_Parse ("identifier expected here"); + Error_Msg_Parse ("name expected here, found %t", + +Current_Token); raise Parse_Error; end case; |