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

* GetRandomBytes calls random only once

Browse Source 
git-svn-id: trunk@11123 -
This commit is contained in:
michael 2008-05-29 13:16:07 +00:00
parent 8b94b4b849
commit fb53b5e9f6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysutils/sysutils.inc
View File

@ -569,6 +569,9 @@ begin
Result := DoForceDirectories(SetDirSeparators(Dir)); Result := DoForceDirectories(SetDirSeparators(Dir));
end; end;
Var
GUIDCalledRandomize : Boolean = False;
Procedure GetRandomBytes(Var Buf; NBytes : Integer); Procedure GetRandomBytes(Var Buf; NBytes : Integer);
Var Var
@ -577,7 +580,11 @@ Var
begin begin
P:=@Buf; P:=@Buf;
Randomize; If Not GUIDCalledRandomize then
begin
GUIDCalledRandomize:=True;
Randomize;
end;
For I:=0 to NBytes-1 do For I:=0 to NBytes-1 do
P[i]:=Random(256); P[i]:=Random(256);
end; end;