X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..3745aa61ef489e4b143b5c753a006d0613a0297f:/lsignal.pas diff --git a/lsignal.pas b/lsignal.pas index 49e51b2..968f45c 100755 --- a/lsignal.pas +++ b/lsignal.pas @@ -14,7 +14,7 @@ interface {$ifdef VER1_0} linux, {$else} - baseunix,unix,unixutil, + baseunix,unix,unixutil,sockets, {$endif} classes,lcore,lloopback; @@ -37,7 +37,7 @@ var firstsignal : tlsignal; blockset : sigset; signalloopback : tlloopback ; - + implementation {$include unixstuff.inc} @@ -156,7 +156,7 @@ const saction : sigactionrec = (handler:(sh:lsignal_handler);sa_flags:0); {$else} {$ifdef darwin} - saction : sigactionrec = (sa_handler:tsigaction(lsignal_handler);sa_flags:0); + saction : sigactionrec = (sa_handler:sigactionhandler(lsignal_handler);sa_flags:0); {$else} {$ifdef freebsd} //version number is FPC_VERSION.FPC_RELEASE.FPC_PATCH @@ -193,9 +193,9 @@ end; initialization fillchar(blockset,sizeof(blockset),0); blockset[0] := $FFFFFFFF - (1 shl sigstop) - (1 shl sigkill) - (1 shl sigsegv); - {$ifdef ver1_0} - saction.sa_mask := blockset[0]; - {$else} + {$ifdef ver1_0} + saction.sa_mask := blockset[0]; + {$else} saction.sa_mask := blockset; {$endif} end.