aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-sem_expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-sem_expr.adb')
-rw-r--r--src/vhdl/vhdl-sem_expr.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 94d0908f4..332a11dfc 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -6071,7 +6071,7 @@ package body Vhdl.Sem_Expr is
Cond_Type : Iir;
begin
Cond_Type := Get_Type (Cond);
- if Cond_Type = Null_Iir then
+ if Cond_Type = Null_Iir or else Is_Error (Cond_Type) then
-- Error.
return Cond;
end if;