diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:20:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:20:19 +0200 |
commit | 17ab141656d8a0ba80309ca4d85e65a038c873e0 (patch) | |
tree | 182ce511bc86fcba0f36448f7f2b95620fed2607 | |
parent | e669bf61068a516e54e6547490164a54728d81aa (diff) | |
download | ghdl-17ab141656d8a0ba80309ca4d85e65a038c873e0.tar.gz ghdl-17ab141656d8a0ba80309ca4d85e65a038c873e0.tar.bz2 ghdl-17ab141656d8a0ba80309ca4d85e65a038c873e0.zip |
parse: improve error message for incorrect use of '!'.
-rw-r--r-- | src/vhdl/vhdl-parse.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index e9230221e..c049f1ece 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -5805,6 +5805,10 @@ package body Vhdl.Parse is when Tok_Xnor => return Build_Unary_Factor_08 (Iir_Kind_Reduction_Xnor_Operator); + when Tok_Exclam_Mark => + Error_Msg_Parse ("'!' is not allowed here, replaced by 'not'"); + return Build_Unary_Factor (Iir_Kind_Not_Operator); + when others => Left := Parse_Primary; if Current_Token = Tok_Double_Star then |