Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2025-02-03 01:22:07 +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; RandSeed: LongWord;
RandCounter: LongWord; RandCounter: LongWord;
function _RandInt(Range: LongWord): LongWord; function _RandInt(Range: LongInt): LongInt;
function _RandExt: Extended; function _RandExt: Extended;
procedure Randomize; procedure Randomize;
@ -338,14 +338,14 @@ asm
ADD EAX, MinValue ADD EAX, MinValue
end; end;
function _RandInt(Range: LongWord): LongWord; function _RandInt(Range: LongInt): LongInt;
begin begin
Result := RandInt(0, Range - 1); Result := RandInt(0, Range - 1);
end; end;
function _RandExt: Extended; function _RandExt: Extended;
begin begin
Result := 1 / RandInt(2, $FFFFFFFF); Result := RandInt(0, $FFFFFFFE) / $FFFFFFFF;
end; end;
procedure Randomize; procedure Randomize;