paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mathematical intrinsics are now pure

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-04-10 19:14:23 +01:00 committed by J. Gareth "Kit" Moreton
parent 6cd6566528
commit adccaf9448
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/inc/mathh.inc
View File

@ -116,19 +116,19 @@ procedure float_raise(i: TFPUExceptionMask);
{$endif}
{$endif}
function Pi : ValReal;[internproc:fpc_in_pi_real];
function Abs(d : ValReal) : ValReal;[internproc:fpc_in_abs_real];
function Sqr(d : ValReal) : ValReal;[internproc:fpc_in_sqr_real];
function Sqrt(d : ValReal) : ValReal;[internproc:fpc_in_sqrt_real];
function ArcTan(d : ValReal) : ValReal;[internproc:fpc_in_arctan_real];
function Ln(d : ValReal) : ValReal;[internproc:fpc_in_ln_real];
function Sin(d : ValReal) : ValReal;[internproc:fpc_in_sin_real];
function Cos(d : ValReal) : ValReal;[internproc:fpc_in_cos_real];
function Exp(d : ValReal) : ValReal;[internproc:fpc_in_exp_real];
function Round(d : ValReal) : int64;[internproc:fpc_in_round_real];
function Frac(d : ValReal) : ValReal;[internproc:fpc_in_frac_real];
function Int(d : ValReal) : ValReal;[internproc:fpc_in_int_real];
function Trunc(d : ValReal) : int64;[internproc:fpc_in_trunc_real];
function Pi : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_pi_real];
function Abs(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_abs_real];
function Sqr(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_sqr_real];
function Sqrt(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_sqrt_real];
function ArcTan(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_arctan_real];
function Ln(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_ln_real];
function Sin(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_sin_real];
function Cos(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_cos_real];
function Exp(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_exp_real];
function Round(d : ValReal) : int64;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_round_real];
function Frac(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_frac_real];
function Int(d : ValReal) : ValReal;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_int_real];
function Trunc(d : ValReal) : int64;{$ifdef USEPURE}pure;{$endif}[internproc:fpc_in_trunc_real];
{$ifdef SUPPORT_EXTENDED}
function FPower10(val: Extended; Power: Longint): Extended;