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

* OpenBSD uses a special sigprocmask syscall

Browse Source 
git-svn-id: trunk@20900 -
This commit is contained in:
pierre 2012-04-16 15:43:44 +00:00
parent a680c4f1d6
commit e3aabfec79
1 changed files with 20 additions and 0 deletions

20
rtl/bsd/ossysc.inc
View File

@ -480,8 +480,28 @@ function FPSigProcMask(how:cint;nset : psigset;oset : psigset):cint; [public, al
if OldSSet is non-null, the old set will be saved there.
}
{$ifdef OpenBSD}
{ OpenBSD sigprocmask signal uses
sigset_t that are cint type
the value of nset^[0] must be passed as second parameter
the old mask value is in return value }
{ How do we know if the call failed... PM }
{$define OS_SIGPROCMASK_RETURNS_OVAL}
{$endif}
{$ifdef OS_SIGPROCMASK_RETURNS_OVAL}
var
res : cint;
{$endif OS_SIGPROCMASK_RETURNS_OVAL}
begin
{$ifdef OS_SIGPROCMASK_RETURNS_OVAL}
res:=do_syscall(syscall_nr_sigprocmask,tsysparam(how),TSysParam(nset^[0]));
if assigned(oset) then
oset^[0]:=res;
FPsigprocmask:=0;
{$else OS_SIGPROCMASK_RETURNS_OVAL}
FPsigprocmask:=do_syscall(syscall_nr_sigprocmask,tsysparam(how),TSysParam(nset),TSysParam(oset));
{$endif OS_SIGPROCMASK_RETURNS_OVAL}
end;
{$user BLA!}
Function FpNanoSleep(req : ptimespec;rem : ptimespec) : cint; [public, alias : 'FPC_SYSC_NANOSLEEP'];