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

* take random feature switch into account

Browse Source 
git-svn-id: trunk@13300 -
This commit is contained in:
florian 2009-06-19 15:26:06 +00:00
parent a4eb523d0e
commit a5f3cd9b1d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.inc
View File

@ -376,7 +376,7 @@ function aligntoptr(p : pointer) : pointer;inline;
{$i rtti.inc}
{$endif FPC_HAS_FEATURE_VARIANTS}
{$if defined(FPC_HAS_FEATURE_RANDOM)}
{----------------------------------------------------------------------
Mersenne Twister: A 623-Dimensionally Equidistributed Uniform
@ -556,6 +556,8 @@ begin
random := cardinal(genrand_MT19937) * (1.0/(int64(1) shl 32));
end;
{$endif}
{$endif FPC_HAS_FEATURE_RANDOM}
{****************************************************************************
Memory Management