Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-09-19 17:41:01 +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
Show Stats 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; function _RandExt: Extended;
begin begin
Result := 1 / RandInt(1, $FFFFFFFE); Result := 1 / RandInt(2, $FFFFFFFF);
end; end;
procedure Randomize; procedure Randomize;