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

git-svn-id: trunk@45981 -

rtl/embedded/system.pp

@@ -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
 *****************************************************************************}

rtl/freertos/system.pp

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

rtl/gba/system.pp

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

rtl/nds/system.pp

@@ -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]; 
-end;
-
-function random(): integer; 
-begin	
-	RandSeed := QRAN_A * RandSeed + QRAN_C;
-	random := (RandSeed shr 16) and QRAN_MAX;
+  RandSeed := (IPC_Timer[0]  * 3600) + (IPC_Timer[1] * 60) + IPC_Timer[2];
 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

rtl/wii/system.pp

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