paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 19:46:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented randomize for win16

Browse Source 
git-svn-id: trunk@31873 -
This commit is contained in:
nickysn 2015-09-28 00:12:59 +00:00
parent 2574c6304d
commit 25573b5927
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win16/system.pp
View File

@ -252,14 +252,8 @@ begin
end;
procedure randomize;
{var
hl : longint;
regs : Registers;}
begin
{ regs.AH:=$2C;
MsDos(regs);
hl:=regs.DX;
randseed:=hl*$10000+ regs.CX;}
randseed:=GetTickCount;
end;
{****************************************************************************