paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:09:23 +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

8
rtl/inc/system.inc
View File

@ -711,10 +711,10 @@ begin
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;