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

no message

Browse Source
This commit is contained in:
peter 2004-08-29 10:23:12 +00:00
parent 2043999880
commit 76c6e4dd83
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/system.inc
View File

@ -452,11 +452,6 @@ begin
end; end;
function random(l:cardinal): cardinal;
begin
random := cardinal((int64(cardinal(genrand_MT19937))*l) shr 32);
end;
function random(l:longint): longint; function random(l:longint): longint;
begin begin
random := longint((int64(cardinal(genrand_MT19937))*l) shr 32); random := longint((int64(cardinal(genrand_MT19937))*l) shr 32);
@ -464,7 +459,7 @@ end;
function random(l:int64): int64; function random(l:int64): int64;
begin begin
random := longint((int64(cardinal(genrand_MT19937))*l) shr 32); random:= longint((int64(cardinal(genrand_MT19937))*l) shr 32);
end; end;
function random: extended; function random: extended;
@ -886,7 +881,10 @@ end;
{ {
$Log$ $Log$
Revision 1.60 2004-07-18 20:21:44 florian Revision 1.61 2004-08-29 10:23:12 peter
no message
Revision 1.60 2004/07/18 20:21:44 florian
+ several unicode (to/from utf-8 conversion) stuff added + several unicode (to/from utf-8 conversion) stuff added
* some longint -> SizeInt changes * some longint -> SizeInt changes

6
rtl/inc/systemh.inc
View File

@ -415,7 +415,6 @@ Function Swap (X:LongInt):LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Swap (X:QWord):QWord;{$ifdef SYSTEMINLINE}inline;{$endif} Function Swap (X:QWord):QWord;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Swap (X:Int64):Int64;{$ifdef SYSTEMINLINE}inline;{$endif} Function Swap (X:Int64):Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Random(l:cardinal):cardinal;
Function Random(l:longint):longint; Function Random(l:longint):longint;
Function Random(l:int64):int64; Function Random(l:int64):int64;
Function Random: extended; Function Random: extended;
@ -754,7 +753,10 @@ const
{ {
$Log$ $Log$
Revision 1.98 2004-07-18 20:21:44 florian Revision 1.99 2004-08-29 10:23:12 peter
no message
Revision 1.98 2004/07/18 20:21:44 florian
+ several unicode (to/from utf-8 conversion) stuff added + several unicode (to/from utf-8 conversion) stuff added
* some longint -> SizeInt changes * some longint -> SizeInt changes