aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-errors.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-errors.adb')
-rw-r--r--src/vhdl/vhdl-errors.adb2
1 files changed, 1 insertions, 1 deletions
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;