diff options
| -rw-r--r-- | src/vhdl/sem_expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index b7a04d9..9564223 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -4256,7 +4256,7 @@ package body Sem_Expr is end if; if not Is_Overloaded (Res) - and then Get_Type (Res) = Boolean_Type_Definition + and then Get_Base_Type (Get_Type (Res)) = Boolean_Type_Definition then Check_Read (Res); return Res; |