diff options
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 02c620bf5..8ed0a8c0e 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -5725,6 +5725,9 @@ package body Vhdl.Sem_Expr is if Res = Null_Iir then -- Error occurred. return Null_Iir; + elsif Get_Type (Res) = Null_Iir then + Error_Msg_Sem (+Res, "incorrect type for condition"); + return Null_Iir; end if; return Sem_Condition_Pass2 (Res); |