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

* FPC_USE_LIBC and uuidgen(2) support under IFDEF FREEBSD5.

Browse Source 
git-svn-id: trunk@72 -
This commit is contained in:
marco 2005-05-22 14:24:55 +00:00
parent cc6d13cca4
commit 1efce6412b
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/bsd/suuid.inc
View File

@ -15,6 +15,29 @@
**********************************************************************}
{$IFDEF FREEBSD5}
{$IFDEF FPC_USE_LIBC}
function cuuidgen(p:PGUID;x:cint):cint; external clib name 'uuidgen';
{$ELSE}
function cuuidgen(p:pguid;x:cint):cint;
begin
result:=do_syscall(syscall_nr_uuidgen,tsysparam(p),tsysparam(x));
end;
{$ENDIF}
Function SysCreateGUID(out GUID : TGUID) : Integer;
begin
result:=0;
if cuuidgen(@guid,1)=-1 then
GetRandomBytes(GUID,SizeOf(Guid));
end;
{$ELSE}
Const
RandomDevice = '/dev/urandom';
@ -54,3 +77,4 @@ begin
GetRandomBytes(GUID,SizeOf(Guid));
Result:=0;
end;
{$ENDIF}