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

Merge branch 'main' of https://gitlab.com/freepascal.org/fpc/pas2js into main

Browse Source
This commit is contained in:
mattias 2022-09-01 20:43:30 +02:00
commit 4589bf6d44
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler

@ -1 +1 @@
Subproject commit 76aa9b1f8b23c74a174dc436b3865b7fa5c1d7af
Subproject commit fd83fd5779e5f19373202c57209f648bae072640

6
packages/rtl/math.pas
View File

@ -97,7 +97,7 @@ function IMul(const A, B: Integer): Integer; external name 'Math.imul'; // not o
function Log10(const A: Double): Double; external name 'Math.log10';
function Log1p(const A: Double): Double; external name 'Math.log1p'; // not on IE
function Log2(const A: Double): Double; external name 'Math.log2'; // not on IE
function LogN(const A, Base: Double): Double;
function LogN(const Base, N: Double): Double;
function Power(const Base, Exponent: Double): Double; external name 'Math.pow';
// ln, round, sqrt, trunc, cos, sin, arctan, round, exp are in unit system
function Ceil(const A: Double): Integer;
@ -343,10 +343,10 @@ begin
C:=Cos(A);
end;
function LogN(const A, Base: Double): Double;
function LogN(const Base,N: Double): Double;
begin
Result:=Ln(A)/Ln(Base);
Result:=Ln(N)/Ln(Base);
end;
function lnxp1(x: double): double;