Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-12 19:07:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Random function bugfix © 0CodErr

Browse Source
This commit is contained in:
Владислав Джавадов 2020-12-27 01:51:04 +03:00
parent b52068a7f2
commit e4a5b1e0a6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RTL/System.pas
View File

@ -149,7 +149,7 @@ var
RandSeed: LongWord;
RandCounter: LongWord;
function _RandInt(Range: LongWord): LongWord;
function _RandInt(Range: LongInt): LongInt;
function _RandExt: Extended;
procedure Randomize;
@ -338,14 +338,14 @@ asm
ADD EAX, MinValue
end;
function _RandInt(Range: LongWord): LongWord;
function _RandInt(Range: LongInt): LongInt;
begin
Result := RandInt(0, Range - 1);
end;
function _RandExt: Extended;
begin
Result := 1 / RandInt(2, $FFFFFFFF);
Result := RandInt(0, $FFFFFFFE) / $FFFFFFFF;
end;
procedure Randomize;