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

- remove local Random() implementations that weren't exported anyway (LongInt <> Integer inside the System unit)

Browse Source 
git-svn-id: trunk@45981 -
This commit is contained in:
svenbarth 2020-08-01 17:26:39 +00:00
parent 48cc5250f9
commit 107a2e4e85
5 changed files with 1 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/embedded/system.pp
View File

@ -243,41 +243,13 @@ function paramstr(l: longint) : string;
end;
{$endif FPC_HAS_FEATURE_COMMANDARGS}
const
QRAN_SHIFT = 15;
QRAN_MASK = ((1 shl QRAN_SHIFT) - 1);
QRAN_MAX = QRAN_MASK;
QRAN_A = 1664525;
QRAN_C = 1013904223;
{$ifdef FPC_HAS_FEATURE_RANDOM}
procedure randomize();
begin
RandSeed := 63458;
end;
procedure randomize(value: integer);
begin
RandSeed := value;
end;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
var
a: integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
a := (RandSeed shr 16) and QRAN_MAX;
random := (a * value) shr 15;
end;
{$endif FPC_HAS_FEATURE_RANDOM}
{*****************************************************************************
SystemUnit Initialization
*****************************************************************************}

26
rtl/freertos/system.pp
View File

@ -243,38 +243,12 @@ function paramstr(l: longint) : string;
end;
{$endif FPC_HAS_FEATURE_COMMANDARGS}
const
QRAN_SHIFT = 15;
QRAN_MASK = ((1 shl QRAN_SHIFT) - 1);
QRAN_MAX = QRAN_MASK;
QRAN_A = 1664525;
QRAN_C = 1013904223;
{$ifdef FPC_HAS_FEATURE_RANDOM}
procedure randomize();
begin
RandSeed := 63458;
end;
procedure randomize(value: integer);
begin
RandSeed := value;
end;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
var
a: integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
a := (RandSeed shr 16) and QRAN_MAX;
random := (a * value) shr 15;
end;
{$endif FPC_HAS_FEATURE_RANDOM}

30
rtl/gba/system.pp
View File

@ -106,45 +106,15 @@ begin
end;
{*****************************************************************************
ParamStr/Randomize
*****************************************************************************}
const
QRAN_SHIFT = 15;
QRAN_MASK = ((1 shl QRAN_SHIFT) - 1);
QRAN_MAX = QRAN_MASK;
QRAN_A = 1664525;
QRAN_C = 1013904223;
{ set randseed to a new pseudo random value }
procedure randomize();
begin
RandSeed := 63458;
end;
procedure randomize(value: integer);
begin
RandSeed := value;
end;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
var
a: integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
a := (RandSeed shr 16) and QRAN_MAX;
random := (a * value) shr 15;
end;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS}
{ number of args }
function paramcount : longint;

27
rtl/nds/system.pp
View File

@ -125,43 +125,18 @@ begin
// Boo!
end;
{*****************************************************************************
ParamStr/Randomize
*****************************************************************************}
const
QRAN_SHIFT = 15;
QRAN_MASK = ((1 shl QRAN_SHIFT) - 1);
QRAN_MAX = QRAN_MASK;
QRAN_A = 1664525;
QRAN_C = 1013904223;
{ set randseed to a new pseudo random value }
procedure randomize;
var
IPC_Timer: array [0..2] of byte absolute $27FF01B;
begin
RandSeed := (IPC_Timer[0] * 3600) + (IPC_Timer[1] * 60) + IPC_Timer[2];
RandSeed := (IPC_Timer[0] * 3600) + (IPC_Timer[1] * 60) + IPC_Timer[2];
end;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
var
a: integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
a := (RandSeed shr 16) and QRAN_MAX;
random := (a * value) shr 15;
end;
Function ParamCount: Longint;
Begin
Paramcount:=argc-1

24
rtl/wii/system.pp
View File

@ -98,17 +98,9 @@ begin
// Boo!
end;
{*****************************************************************************
ParamStr/Randomize
*****************************************************************************}
const
QRAN_SHIFT = 15;
QRAN_MASK = ((1 shl QRAN_SHIFT) - 1);
QRAN_MAX = QRAN_MASK;
QRAN_A = 1664525;
QRAN_C = 1013904223;
{ set randseed to a new pseudo random value }
procedure randomize;
@ -116,22 +108,6 @@ begin
end;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
var
a: integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
a := (RandSeed shr 16) and QRAN_MAX;
random := (a * value) shr 15;
end;
Function ParamCount: Longint;
Begin