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

* use SizeInt for counters in math unit, all non-32 bit targets should benefit from this

Browse Source 
git-svn-id: trunk@48815 -
This commit is contained in:
florian 2021-02-26 22:47:06 +00:00
parent f767a4ac09
commit 2932787dee
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
rtl/objpas/math.pp
View File

@ -1159,7 +1159,7 @@ function sum(const data : array of Single) : float;inline;
function sum(const data : PSingle;Const N : longint) : float;
var
i : longint;
i : SizeInt;
begin
sum:=0.0;
for i:=0 to N-1 do
@ -1186,7 +1186,7 @@ function sum(const data : array of Double) : float; inline;
function sum(const data : PDouble;Const N : longint) : float;
var
i : longint;
i : SizeInt;
begin
sum:=0.0;
for i:=0 to N-1 do
@ -1213,7 +1213,7 @@ function sum(const data : array of Extended) : float; inline;
function sum(const data : PExtended;Const N : longint) : float;
var
i : longint;
i : SizeInt;
begin
sum:=0.0;
for i:=0 to N-1 do
@ -1223,7 +1223,7 @@ function sum(const data : PExtended;Const N : longint) : float;
function sumInt(const data : PInt64;Const N : longint) : Int64;
var
i : longint;
i : SizeInt;
begin
sumInt:=0;
for i:=0 to N-1 do
@ -1248,7 +1248,7 @@ function mean(const data: array of Int64):Float;
function sumInt(const data : PInteger; Const N : longint) : Int64;
var
i : longint;
i : SizeInt;
begin
sumInt:=0;
for i:=0 to N-1 do
@ -1279,7 +1279,7 @@ function mean(const data: array of Integer):Float;
function sumofsquares(const data : PSingle; Const N : Integer) : float;
var
i : longint;
i : SizeInt;
begin
sumofsquares:=0.0;
for i:=0 to N-1 do
@ -1295,7 +1295,7 @@ end;
procedure sumsandsquares(const data : PSingle; Const N : Integer;
var sum,sumofsquares : float);
var
i : Integer;
i : SizeInt;
temp : float;
begin
sumofsquares:=0.0;
@ -1317,7 +1317,7 @@ procedure sumsandsquares(const data : PSingle; Const N : Integer;
function sumofsquares(const data : PDouble; Const N : Integer) : float;
var
i : longint;
i : SizeInt;
begin
sumofsquares:=0.0;
for i:=0 to N-1 do
@ -1333,7 +1333,7 @@ end;
procedure sumsandsquares(const data : PDouble; Const N : Integer;
var sum,sumofsquares : float);
var
i : Integer;
i : SizeInt;
temp : float;
begin
sumofsquares:=0.0;
@ -1355,7 +1355,7 @@ procedure sumsandsquares(const data : PDouble; Const N : Integer;
function sumofsquares(const data : PExtended; Const N : Integer) : float;
var
i : longint;
i : SizeInt;
begin
sumofsquares:=0.0;
for i:=0 to N-1 do
@ -1371,7 +1371,7 @@ end;
procedure sumsandsquares(const data : PExtended; Const N : Integer;
var sum,sumofsquares : float);
var
i : Integer;
i : SizeInt;
temp : float;
begin
sumofsquares:=0.0;
@ -1411,7 +1411,7 @@ end;
{$ifdef FPC_HAS_TYPE_SINGLE}
procedure MeanAndTotalVariance
(const data: PSingle; N: LongInt; var mu, variance: float);
var i: LongInt;
var i: SizeInt;
begin
mu := Mean( data, N );
variance := 0;
@ -1511,7 +1511,7 @@ procedure momentskewkurtosis(
out kurtosis: float
);
var
i: integer;
i: SizeInt;
value : psingle;
deviation, deviation2: single;
reciprocalN: float;
@ -1562,7 +1562,7 @@ function norm(const data : PSingle; Const N : Integer) : float;
{$ifdef FPC_HAS_TYPE_DOUBLE}
procedure MeanAndTotalVariance
(const data: PDouble; N: LongInt; var mu, variance: float);
var i: LongInt;
var i: SizeInt;
begin
mu := Mean( data, N );
variance := 0;
@ -1666,7 +1666,7 @@ procedure momentskewkurtosis(
out kurtosis: float
);
var
i: integer;
i: SizeInt;
value : pdouble;
deviation, deviation2: double;
reciprocalN: float;
@ -1717,7 +1717,7 @@ function norm(const data : PDouble; Const N : Integer) : float;
{$ifdef FPC_HAS_TYPE_EXTENDED}
procedure MeanAndTotalVariance
(const data: PExtended; N: LongInt; var mu, variance: float);
var i: LongInt;
var i: SizeInt;
begin
mu := Mean( data, N );
variance := 0;
@ -1810,7 +1810,7 @@ end;
procedure momentskewkurtosis(
const data: pExtended;
Const N: integer;
Const N: Integer;
out m1: float;
out m2: float;
out m3: float;
@ -1870,7 +1870,7 @@ function norm(const data : PExtended; Const N : Integer) : float;
function MinIntValue(const Data: array of Integer): Integer;
var
I: Integer;
I: SizeInt;
begin
Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do
@ -1879,7 +1879,7 @@ end;
function MaxIntValue(const Data: array of Integer): Integer;
var
I: Integer;
I: SizeInt;
begin
Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do
@ -1893,7 +1893,7 @@ end;
function MinValue(const Data: PInteger; Const N : Integer): Integer;
var
I: Integer;
I: SizeInt;
begin
Result := Data[0];
For I := 1 To N-1 do
@ -1907,7 +1907,7 @@ end;
function maxvalue(const data : PInteger; Const N : Integer) : Integer;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
maxvalue:=data[0];
@ -1924,7 +1924,7 @@ end;
function minvalue(const data : PSingle; Const N : Integer) : Single;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
minvalue:=data[0];
@ -1941,7 +1941,7 @@ end;
function maxvalue(const data : PSingle; Const N : Integer) : Single;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
maxvalue:=data[0];
@ -1959,7 +1959,7 @@ end;
function minvalue(const data : PDouble; Const N : Integer) : Double;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
minvalue:=data[0];
@ -1976,7 +1976,7 @@ end;
function maxvalue(const data : PDouble; Const N : Integer) : Double;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
maxvalue:=data[0];
@ -1994,7 +1994,7 @@ end;
function minvalue(const data : PExtended; Const N : Integer) : Extended;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
minvalue:=data[0];
@ -2011,7 +2011,7 @@ end;
function maxvalue(const data : PExtended; Const N : Integer) : Extended;
var
i : longint;
i : SizeInt;
begin
{ get an initial value }
maxvalue:=data[0];