From 21ab5cfb88d182927e14789353e56fecd9960fd3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 7 Mar 2020 18:39:42 +0100 Subject: synth-static_oper: handle const operands for enums. --- src/synth/synth-static_oper.adb | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index dbdb6c784..504110072 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -321,11 +321,14 @@ package body Synth.Static_Oper is when Iir_Predefined_Enum_Equality => return Create_Value_Discrete - (Boolean'Pos (Left.Scal = Right.Scal), Boolean_Type); + (Boolean'Pos + (Get_Static_Discrete (Left) = Get_Static_Discrete (Right)), + Boolean_Type); when Iir_Predefined_Enum_Inequality => return Create_Value_Discrete - (Boolean'Pos (Left.Scal /= Right.Scal), Boolean_Type); - + (Boolean'Pos + (Get_Static_Discrete (Left) /= Get_Static_Discrete (Right)), + Boolean_Type); when Iir_Predefined_Integer_Plus | Iir_Predefined_Physical_Plus => return Create_Value_Discrete -- cgit v1.2.3