aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-02-27 16:28:53 +0100
committerTristan Gingold <tgingold@free.fr>2021-02-27 16:28:53 +0100
commit8e23efc43c07a714b4f429be836c86eddf167b4e (patch)
tree281c52e685d647ea57288c575dd75abee1dd46ec
parentfc6d222a1ee5014bf123b178f3ae6ddd916d9604 (diff)
downloadghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.tar.gz
ghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.tar.bz2
ghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.zip
vhdl-sem_expr.adb: improve fix for #1664
-rw-r--r--src/vhdl/vhdl-sem_expr.adb5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 8ed0a8c0e..854da50d8 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -5720,14 +5720,11 @@ package body Vhdl.Sem_Expr is
-- context including the expression, then the condition operator is
-- not applied.
- Res := Sem_Expression_Ov (Cond, Null_Iir);
+ Res := Sem_Expression_Wildcard (Cond, Null_Iir);
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);