From 0ce4e356a842f816439f3393624387e825cbb3ae Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 10 May 2015 20:54:01 +0200 Subject: vhdl 08: handle boolean subtype for conditional expressions. Fix ticket 46 --- src/vhdl/sem_expr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index b7a04d9e8..95642236e 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; -- cgit v1.2.3