From 6f25e8dff808b37013cf6fa0cb2868e8a85caa79 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 12 Jun 2019 18:41:24 +0200
Subject: vhdl: improve error messages for generate statement.

---
 src/vhdl/vhdl-errors.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb
index 541415cd7..1bed01213 100644
--- a/src/vhdl/vhdl-errors.adb
+++ b/src/vhdl/vhdl-errors.adb
@@ -958,7 +958,7 @@ package body Vhdl.Errors is
 
    procedure Error_Not_Match (Expr: Iir; A_Type: Iir) is
    begin
-      if Get_Kind (A_Type) = Iir_Kind_Error then
+      if Is_Error (A_Type) then
          --  Cascade error message.
          return;
       end if;
-- 
cgit v1.2.3