diff options
| -rw-r--r-- | src/synth/synth-oper.adb | 34 |
1 files changed, 30 insertions, 4 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb index 255df2e3f..f64674512 100644 --- a/src/synth/synth-oper.adb +++ b/src/synth/synth-oper.adb @@ -1180,8 +1180,7 @@ package body Synth.Oper is pragma Import (C, Log2); begin if V.Typ.Kind /= Type_Float then - Error_Msg_Synth - (+Expr, "argument must be a float value"); + Error_Msg_Synth (+Expr, "argument must be a float value"); return null; end if; return Create_Value_Float @@ -1195,13 +1194,40 @@ package body Synth.Oper is pragma Import (C, Ceil); begin if V.Typ.Kind /= Type_Float then - Error_Msg_Synth - (+Expr, "argument must be a float value"); + Error_Msg_Synth(+Expr, "argument must be a float value"); return null; end if; return Create_Value_Float (Ceil (V.Fp), Get_Value_Type (Syn_Inst, Get_Type (Imp))); end; + when Iir_Predefined_Ieee_Math_Real_Sin => + declare + V : constant Value_Acc := Get_Value (Subprg_Inst, Param1); + + function Sin (Arg : Fp64) return Fp64; + pragma Import (C, Sin); + begin + if V.Typ.Kind /= Type_Float then + Error_Msg_Synth (+Expr, "argument must be a float value"); + return null; + end if; + return Create_Value_Float + (Sin (V.Fp), Get_Value_Type (Syn_Inst, Get_Type (Imp))); + end; + when Iir_Predefined_Ieee_Math_Real_Cos => + declare + V : constant Value_Acc := Get_Value (Subprg_Inst, Param1); + + function Cos (Arg : Fp64) return Fp64; + pragma Import (C, Cos); + begin + if V.Typ.Kind /= Type_Float then + Error_Msg_Synth (+Expr, "argument must be a float value"); + return null; + end if; + return Create_Value_Float + (Cos (V.Fp), Get_Value_Type (Syn_Inst, Get_Type (Imp))); + end; when others => Error_Msg_Synth (+Expr, |