diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-02-27 16:28:53 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-02-27 16:28:53 +0100 |
commit | 8e23efc43c07a714b4f429be836c86eddf167b4e (patch) | |
tree | 281c52e685d647ea57288c575dd75abee1dd46ec /src | |
parent | fc6d222a1ee5014bf123b178f3ae6ddd916d9604 (diff) | |
download | ghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.tar.gz ghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.tar.bz2 ghdl-8e23efc43c07a714b4f429be836c86eddf167b4e.zip |
vhdl-sem_expr.adb: improve fix for #1664
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 5 |
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); |