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;
|
function _RandExt: Extended;
|
||||||
begin
|
begin
|
||||||
Result := 1 / RandInt(1, $FFFFFFFE);
|
Result := 1 / RandInt(2, $FFFFFFFF);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure Randomize;
|
procedure Randomize;
|
||||||
|
Loading…
Reference in New Issue
Block a user