Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-09-21 22:53:51 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

System.Random function bugfix

Browse Source
This commit is contained in:
Владислав Джавадов
2020-06-24 16:23:19 +03:00
parent 8fe7482d92
commit e397ace02c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
RTL/System.pas
View File

@@ -281,7 +281,7 @@ end;
function _RandExt: Extended;
begin
Result := 1 / RandInt(1, $FFFFFFFE);
Result := 1 / RandInt(2, $FFFFFFFF);
end;
procedure Randomize;