From 17ab141656d8a0ba80309ca4d85e65a038c873e0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 4 Jul 2019 18:20:19 +0200
Subject: parse: improve error message for incorrect use of '!'.

---
 src/vhdl/vhdl-parse.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.3