paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-06 04:00:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added SinCos for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-26 09:28:04 +01:00
parent d21e47599d
commit 95acdc6501
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/math.pas
View File

@ -88,6 +88,7 @@ function ArcSin(const A : Double): Double; external name 'Math.asin';
function ArcSinH(const A : Double): Double; external name 'Math.asinh'; // not on IE function ArcSinH(const A : Double): Double; external name 'Math.asinh'; // not on IE
function ArcTanH(const A: Double): Double; external name 'Math.atanh'; // not on IE function ArcTanH(const A: Double): Double; external name 'Math.atanh'; // not on IE
function CosH(const A: Double): Double; external name 'Math.cosh'; // not on IE function CosH(const A: Double): Double; external name 'Math.cosh'; // not on IE
procedure SinCos(const A: Double; var B: Double; var C: Double);
function ExpM1(const A: Double): Double; external name 'Math.expm1'; // not on IE function ExpM1(const A: Double): Double; external name 'Math.expm1'; // not on IE
function FRound(const A: Double): Double; overload; external name 'Math.fround'; // not on IE function FRound(const A: Double): Double; overload; external name 'Math.fround'; // not on IE
function FTrunc(const A: Double): double; overload; external name 'Math.trunc'; // not on IE function FTrunc(const A: Double): double; overload; external name 'Math.trunc'; // not on IE
@ -336,6 +337,12 @@ begin
Mantissa:=X; Mantissa:=X;
end; end;
procedure SinCos(const A: Double; var B: Double; var C: Double);
begin
B:=Sin(A);
C:=Cos(A);
end;
function LogN(const A, Base: Double): Double; function LogN(const A, Base: Double): Double;
begin begin