paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

haiku: copyright header for suuid.inc, minor cleanups, no functional change

Browse Source 
git-svn-id: trunk@40825 -
This commit is contained in:
Károly Balogh 2019-01-10 04:17:24 +00:00
parent c061f1480a
commit 8b424b0867
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/haiku/suuid.inc
View File

@ -1,4 +1,20 @@
Const
{
This file is part of the Free Pascal run time library.
Copyright (c) 2019 the Free Pascal development team.
GUID generation for Haiku, part of Sysutils unit
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Const
RandomDevice = '/dev/urandom';
@ -7,7 +23,7 @@ Function GetURandomBytes(Var Buf; NBytes : Integer) : Boolean;
Var
fd,I : Integer;
P : PByte;
begin
P:=@Buf;
fd:=FileOpen(RandomDevice,fmOpenRead);
@ -22,7 +38,7 @@ begin
Inc(P,I);
Dec(NBytes,I);
end;
end;
end;
Finally
FileClose(Fd);
end;
@ -34,5 +50,5 @@ Function SysCreateGUID(out GUID : TGUID) : Integer;
begin
if not GetUrandomBytes(Guid,SizeOf(GUID)) then
GetRandomBytes(GUID,SizeOf(Guid));
Result:=0;
Result:=0;
end;