Browse Source

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

mattias 3 years ago
parent
commit
4589bf6d44
2 changed files with 4 additions and 4 deletions
  1. 1 1
      compiler
  2. 3 3
      packages/rtl/math.pas

+ 1 - 1
compiler

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

+ 3 - 3
packages/rtl/math.pas

@@ -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;