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

* patch by Rika: fix for 15f29b8fa0

Browse Source
This commit is contained in:
florian 2023-02-26 10:52:35 +01:00
parent da12cfc867
commit 159fa78514
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

@ -744,7 +744,7 @@ begin
{ random(longint(l)), inlined. This makes random(NativeType) on 64-bit platforms match 32-bit when possible. }
if (l < 0) then
inc(l);
exit(longint(int64(system.random(high(int32)))*l shr 32));
exit(longint(int64(xsr128_32_u32rand)*l shr 32));
end;
if (l < 0) then