paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 08:33:21 +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; function sum(const data : PSingle;Const N : longint) : float;
var var
i : longint; i : SizeInt;
begin begin
sum:=0.0; sum:=0.0;
for i:=0 to N-1 do 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; function sum(const data : PDouble;Const N : longint) : float;
var var
i : longint; i : SizeInt;
begin begin
sum:=0.0; sum:=0.0;
for i:=0 to N-1 do 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; function sum(const data : PExtended;Const N : longint) : float;
var var
i : longint; i : SizeInt;
begin begin
sum:=0.0; sum:=0.0;
for i:=0 to N-1 do 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; function sumInt(const data : PInt64;Const N : longint) : Int64;
var var
i : longint; i : SizeInt;
begin begin
sumInt:=0; sumInt:=0;
for i:=0 to N-1 do 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; function sumInt(const data : PInteger; Const N : longint) : Int64;
var var
i : longint; i : SizeInt;
begin begin
sumInt:=0; sumInt:=0;
for i:=0 to N-1 do 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; function sumofsquares(const data : PSingle; Const N : Integer) : float;
var var
i : longint; i : SizeInt;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
for i:=0 to N-1 do for i:=0 to N-1 do
@ -1295,7 +1295,7 @@ end;
procedure sumsandsquares(const data : PSingle; Const N : Integer; procedure sumsandsquares(const data : PSingle; Const N : Integer;
var sum,sumofsquares : float); var sum,sumofsquares : float);
var var
i : Integer; i : SizeInt;
temp : float; temp : float;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
@ -1317,7 +1317,7 @@ procedure sumsandsquares(const data : PSingle; Const N : Integer;
function sumofsquares(const data : PDouble; Const N : Integer) : float; function sumofsquares(const data : PDouble; Const N : Integer) : float;
var var
i : longint; i : SizeInt;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
for i:=0 to N-1 do for i:=0 to N-1 do
@ -1333,7 +1333,7 @@ end;
procedure sumsandsquares(const data : PDouble; Const N : Integer; procedure sumsandsquares(const data : PDouble; Const N : Integer;
var sum,sumofsquares : float); var sum,sumofsquares : float);
var var
i : Integer; i : SizeInt;
temp : float; temp : float;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
@ -1355,7 +1355,7 @@ procedure sumsandsquares(const data : PDouble; Const N : Integer;
function sumofsquares(const data : PExtended; Const N : Integer) : float; function sumofsquares(const data : PExtended; Const N : Integer) : float;
var var
i : longint; i : SizeInt;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
for i:=0 to N-1 do for i:=0 to N-1 do
@ -1371,7 +1371,7 @@ end;
procedure sumsandsquares(const data : PExtended; Const N : Integer; procedure sumsandsquares(const data : PExtended; Const N : Integer;
var sum,sumofsquares : float); var sum,sumofsquares : float);
var var
i : Integer; i : SizeInt;
temp : float; temp : float;
begin begin
sumofsquares:=0.0; sumofsquares:=0.0;
@ -1411,7 +1411,7 @@ end;
{$ifdef FPC_HAS_TYPE_SINGLE} {$ifdef FPC_HAS_TYPE_SINGLE}
procedure MeanAndTotalVariance procedure MeanAndTotalVariance
(const data: PSingle; N: LongInt; var mu, variance: float); (const data: PSingle; N: LongInt; var mu, variance: float);
var i: LongInt; var i: SizeInt;
begin begin
mu := Mean( data, N ); mu := Mean( data, N );
variance := 0; variance := 0;
@ -1511,7 +1511,7 @@ procedure momentskewkurtosis(
out kurtosis: float out kurtosis: float
); );
var var
i: integer; i: SizeInt;
value : psingle; value : psingle;
deviation, deviation2: single; deviation, deviation2: single;
reciprocalN: float; reciprocalN: float;
@ -1562,7 +1562,7 @@ function norm(const data : PSingle; Const N : Integer) : float;
{$ifdef FPC_HAS_TYPE_DOUBLE} {$ifdef FPC_HAS_TYPE_DOUBLE}
procedure MeanAndTotalVariance procedure MeanAndTotalVariance
(const data: PDouble; N: LongInt; var mu, variance: float); (const data: PDouble; N: LongInt; var mu, variance: float);
var i: LongInt; var i: SizeInt;
begin begin
mu := Mean( data, N ); mu := Mean( data, N );
variance := 0; variance := 0;
@ -1666,7 +1666,7 @@ procedure momentskewkurtosis(
out kurtosis: float out kurtosis: float
); );
var var
i: integer; i: SizeInt;
value : pdouble; value : pdouble;
deviation, deviation2: double; deviation, deviation2: double;
reciprocalN: float; reciprocalN: float;
@ -1717,7 +1717,7 @@ function norm(const data : PDouble; Const N : Integer) : float;
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
procedure MeanAndTotalVariance procedure MeanAndTotalVariance
(const data: PExtended; N: LongInt; var mu, variance: float); (const data: PExtended; N: LongInt; var mu, variance: float);
var i: LongInt; var i: SizeInt;
begin begin
mu := Mean( data, N ); mu := Mean( data, N );
variance := 0; variance := 0;
@ -1810,7 +1810,7 @@ end;
procedure momentskewkurtosis( procedure momentskewkurtosis(
const data: pExtended; const data: pExtended;
Const N: integer; Const N: Integer;
out m1: float; out m1: float;
out m2: float; out m2: float;
out m3: 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; function MinIntValue(const Data: array of Integer): Integer;
var var
I: Integer; I: SizeInt;
begin begin
Result := Data[Low(Data)]; Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do For I := Succ(Low(Data)) To High(Data) Do
@ -1879,7 +1879,7 @@ end;
function MaxIntValue(const Data: array of Integer): Integer; function MaxIntValue(const Data: array of Integer): Integer;
var var
I: Integer; I: SizeInt;
begin begin
Result := Data[Low(Data)]; Result := Data[Low(Data)];
For I := Succ(Low(Data)) To High(Data) Do For I := Succ(Low(Data)) To High(Data) Do
@ -1893,7 +1893,7 @@ end;
function MinValue(const Data: PInteger; Const N : Integer): Integer; function MinValue(const Data: PInteger; Const N : Integer): Integer;
var var
I: Integer; I: SizeInt;
begin begin
Result := Data[0]; Result := Data[0];
For I := 1 To N-1 do For I := 1 To N-1 do
@ -1907,7 +1907,7 @@ end;
function maxvalue(const data : PInteger; Const N : Integer) : Integer; function maxvalue(const data : PInteger; Const N : Integer) : Integer;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
maxvalue:=data[0]; maxvalue:=data[0];
@ -1924,7 +1924,7 @@ end;
function minvalue(const data : PSingle; Const N : Integer) : Single; function minvalue(const data : PSingle; Const N : Integer) : Single;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
minvalue:=data[0]; minvalue:=data[0];
@ -1941,7 +1941,7 @@ end;
function maxvalue(const data : PSingle; Const N : Integer) : Single; function maxvalue(const data : PSingle; Const N : Integer) : Single;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
maxvalue:=data[0]; maxvalue:=data[0];
@ -1959,7 +1959,7 @@ end;
function minvalue(const data : PDouble; Const N : Integer) : Double; function minvalue(const data : PDouble; Const N : Integer) : Double;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
minvalue:=data[0]; minvalue:=data[0];
@ -1976,7 +1976,7 @@ end;
function maxvalue(const data : PDouble; Const N : Integer) : Double; function maxvalue(const data : PDouble; Const N : Integer) : Double;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
maxvalue:=data[0]; maxvalue:=data[0];
@ -1994,7 +1994,7 @@ end;
function minvalue(const data : PExtended; Const N : Integer) : Extended; function minvalue(const data : PExtended; Const N : Integer) : Extended;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
minvalue:=data[0]; minvalue:=data[0];
@ -2011,7 +2011,7 @@ end;
function maxvalue(const data : PExtended; Const N : Integer) : Extended; function maxvalue(const data : PExtended; Const N : Integer) : Extended;
var var
i : longint; i : SizeInt;
begin begin
{ get an initial value } { get an initial value }
maxvalue:=data[0]; maxvalue:=data[0];