From 8c6736780bea5459f7a605f50b69a9db22cde821 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 27 Feb 2021 10:27:04 +0100
Subject: vhdl-sem_expr: detect incorrect condition for vhdl08.  Fix #1664

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

(limited to 'src/vhdl')

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);
-- 
cgit v1.2.3