paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use full precision in random():extended calculation

Browse Source 
git-svn-id: trunk@14280 -
This commit is contained in:
Jonas Maebe 2009-11-27 19:14:28 +00:00
parent 9b4be66260
commit 184d0d6a64
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -557,7 +557,7 @@ end;
{$ifndef FPUNONE}
function random: extended;
begin
random := cardinal(genrand_MT19937) * (1.0/(int64(1) shl 32));
random := cardinal(genrand_MT19937) * (extended(1.0)/(int64(1) shl 32));
end;
{$endif}
{$endif FPC_HAS_FEATURE_RANDOM}