From 02750fd9397d0723237d916d80df49fecfd40e5d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 5 Jan 2021 21:03:30 +0100
Subject: vhdl-parse.adb: improve diagnostic messages

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

(limited to 'src/vhdl/vhdl-parse.adb')

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 594e47384..34e58ec10 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -5745,6 +5745,7 @@ package body Vhdl.Parse is
 
             when Tok_Semi_Colon
                | Tok_Then
+               | Tok_Is
                | Tok_Generate
                | Tok_Loop =>
                --  Surely a missing parenthesis.
@@ -6856,7 +6857,7 @@ package body Vhdl.Parse is
       Res : Iir;
    begin
       Flag_Parse_Parenthesis := True;
-      Res := Parse_Expression;
+      Res := Parse_Expression_Keyword;
       Flag_Parse_Parenthesis := Prev_Flag;
 
       return Res;
-- 
cgit v1.2.3