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

* hack to allow repeatable random sequences using the new random number

Browse Source 
generator
  * fixed range warning/error
This commit is contained in:
Jonas Maebe 2003-10-29 18:23:45 +00:00
parent bef3bb7b22
commit 34e1c9af8f
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/system.inc
View File

@ -394,7 +394,7 @@ end;
function genrand_MT19937: longint; function genrand_MT19937: longint;
const const
mag01 : array [0..1] of longint =(0, MT19937MATRIX_A); mag01 : array [0..1] of longint =(0, longint(MT19937MATRIX_A));
var var
y: longint; y: longint;
kk: longint; kk: longint;
@ -405,6 +405,12 @@ begin
if mti = (MT19937N+1) then // if sgenrand_MT19937() has not been called, if mti = (MT19937N+1) then // if sgenrand_MT19937() has not been called,
begin begin
sgenrand_MT19937(randseed); // default initial seed is used sgenrand_MT19937(randseed); // default initial seed is used
{ hack: randseed is not used more than once in this algorithm. Most }
{ user changes are re-initialising reandseed with the value it had }
{ at the start -> with the "not", we will detect this change. }
{ Detecting other changes is not useful, since the generated }
{ numbers will be different anyway. }
randseed := not(randseed);
oldrandseed := randseed; oldrandseed := randseed;
end; end;
for kk:=0 to MT19937N-MT19937M-1 do begin for kk:=0 to MT19937N-MT19937M-1 do begin
@ -847,7 +853,12 @@ end;
{ {
$Log$ $Log$
Revision 1.45 2003-10-26 21:15:43 hajny Revision 1.46 2003-10-29 18:23:45 jonas
* hack to allow repeatable random sequences using the new random number
generator
* fixed range warning/error
Revision 1.45 2003/10/26 21:15:43 hajny
* minor fix for new Random * minor fix for new Random
Revision 1.44 2003/10/26 18:46:02 jonas Revision 1.44 2003/10/26 18:46:02 jonas