mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 17:41:01 +02:00
System.Random function bugfix
This commit is contained in:
parent
8fe7482d92
commit
e397ace02c
@ -281,7 +281,7 @@ end;
|
||||
|
||||
function _RandExt: Extended;
|
||||
begin
|
||||
Result := 1 / RandInt(1, $FFFFFFFE);
|
||||
Result := 1 / RandInt(2, $FFFFFFFF);
|
||||
end;
|
||||
|
||||
procedure Randomize;
|
||||
|
Loading…
Reference in New Issue
Block a user