diff options
Diffstat (limited to 'src/synth/synth-oper.adb')
| -rw-r--r-- | src/synth/synth-oper.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb index 2b4da90e3..0f229aea8 100644 --- a/src/synth/synth-oper.adb +++ b/src/synth/synth-oper.adb @@ -345,8 +345,10 @@ package body Synth.Oper is end Synth_Compare_Sgn_Sgn; begin - Left := Synth_Expression_With_Type (Syn_Inst, Left_Expr, Left_Type); - Right := Synth_Expression_With_Type (Syn_Inst, Right_Expr, Right_Type); + Left := Synth_Expression_With_Type + (Syn_Inst, Left_Expr, Get_Value_Type (Syn_Inst, Left_Type)); + Right := Synth_Expression_With_Type + (Syn_Inst, Right_Expr, Get_Value_Type (Syn_Inst, Right_Type)); case Def is when Iir_Predefined_Error => |