diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-24 20:15:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-25 06:59:31 +0200 |
| commit | 010aca1966eeb260529041d209d69a92654465f8 (patch) | |
| tree | c6ee61df644a096924bcdbe1de0f4dd325dcd4b0 /src/synth/synth-oper.adb | |
| parent | ce6232cf23bf794e5b8df88a5e7c0eed5408b3e0 (diff) | |
| download | ghdl-010aca1966eeb260529041d209d69a92654465f8.tar.gz ghdl-010aca1966eeb260529041d209d69a92654465f8.tar.bz2 ghdl-010aca1966eeb260529041d209d69a92654465f8.zip | |
synth: rework type for expression.
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 => |