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

* fix random(<int64>) for 32 Bit CPUs

Browse Source 
git-svn-id: trunk@43194 -
This commit is contained in:
florian 2019-10-13 20:23:01 +00:00
parent e02321029f
commit 88648248ec
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/inc/system.inc
View File

@ -706,23 +706,23 @@ begin
q:=qword(l);
a:=mtwist_u32rand;
b:=mtwist_u32rand;
b:=mtwist_u32rand;
c:=q shr 32;
d:=cardinal(q);
c:=q shr 32;
d:=cardinal(q);
bd:=b*d;
ad:=a*d;
bc:=b*c;
ac:=a*c;
bd:=qword(b)*d;
ad:=qword(a)*d;
bc:=qword(b)*c;
ac:=qword(a)*c;
// We only need the carry bit
carry:=((bd shr 32)+cardinal(ad)+cardinal(bc)) shr 32;
// We only need the carry bit
carry:=((bd shr 32)+cardinal(ad)+cardinal(bc)) shr 32;
// Calculate the final result
result:=int64(carry+(ad shr 32)+(bc shr 32)+ac);
if l<0 then
result:=-result;
// Calculate the final result
result:=int64(carry+(ad shr 32)+(bc shr 32)+ac);
if l<0 then
result:=-result;
end;
{$ifndef FPUNONE}