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

* GetRandomBytes calls randomize only once, now thread safe too

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

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

@ -582,8 +582,8 @@ begin
P:=@Buf;
If Not GUIDCalledRandomize then
begin
GUIDCalledRandomize:=True;
Randomize;
GUIDCalledRandomize:=True;
end;
For I:=0 to NBytes-1 do
P[i]:=Random(256);