diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-16 13:37:38 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-16 13:37:38 +0100 |
| commit | f77e7c4e9dff80f8c478851b826e45f13a13cfe0 (patch) | |
| tree | c85451678862e76ec67e24cc0f9690cfbb89523f /src/synth/synth-static_oper.adb | |
| parent | f1046168bd29e08372159d99768ce9e8a014f61a (diff) | |
| download | ghdl-f77e7c4e9dff80f8c478851b826e45f13a13cfe0.tar.gz ghdl-f77e7c4e9dff80f8c478851b826e45f13a13cfe0.tar.bz2 ghdl-f77e7c4e9dff80f8c478851b826e45f13a13cfe0.zip | |
synth: handle static mul sgn sgn.
Diffstat (limited to 'src/synth/synth-static_oper.adb')
| -rw-r--r-- | src/synth/synth-static_oper.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index 76c653329..668b7b431 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -154,6 +154,22 @@ package body Synth.Static_Oper is end; end Synth_Mul_Uns_Uns; + function Synth_Mul_Sgn_Sgn (L, R : Value_Acc; Loc : Syn_Src) + return Value_Acc + is + pragma Unreferenced (Loc); + L_Arr : Std_Logic_Vector (1 .. Natural (L.Arr.Len)); + R_Arr : Std_Logic_Vector (1 .. Natural (R.Arr.Len)); + begin + To_Std_Logic_Vector (L, L_Arr); + To_Std_Logic_Vector (R, R_Arr); + declare + Res_Arr : constant Std_Logic_Vector := Mul_Sgn_Sgn (L_Arr, R_Arr); + begin + return To_Value_Acc (Res_Arr, L.Typ.Vec_El); + end; + end Synth_Mul_Sgn_Sgn; + function Synth_Static_Dyadic_Predefined (Syn_Inst : Synth_Instance_Acc; Imp : Node; Left : Value_Acc; @@ -261,6 +277,9 @@ package body Synth.Static_Oper is when Iir_Predefined_Ieee_Numeric_Std_Mul_Uns_Uns => return Synth_Mul_Uns_Uns (Left, Right, Expr); + when Iir_Predefined_Ieee_Numeric_Std_Mul_Sgn_Sgn => + return Synth_Mul_Sgn_Sgn (Left, Right, Expr); + when others => Error_Msg_Synth (+Expr, "synth_static_dyadic_predefined: unhandled " |