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

* minor fix for new Random

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-26 21:15:43 +00:00
parent 3f4f17e1f6
commit a3636fc097
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -370,6 +370,8 @@ const
VAR VAR
mt : tMT19937StateArray; mt : tMT19937StateArray;
const
mti: longint=MT19937N+1; // mti=MT19937N+1 means mt[] is not initialized mti: longint=MT19937N+1; // mti=MT19937N+1 means mt[] is not initialized
{ Initializing the array with a seed } { Initializing the array with a seed }
@ -845,7 +847,10 @@ end;
{ {
$Log$ $Log$
Revision 1.44 2003-10-26 18:46:02 jonas Revision 1.45 2003-10-26 21:15:43 hajny
* minor fix for new Random
Revision 1.44 2003/10/26 18:46:02 jonas
* replaced random generator with the Mersenne twister, which is about * replaced random generator with the Mersenne twister, which is about
3.5 times faster 3.5 times faster