X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..1a8d0bce39fe4edf7443bde884fefe78412fe521:/lsignal.pas

diff --git a/lsignal.pas b/lsignal.pas
old mode 100755
new mode 100644
index 49e51b2..b64e07e
--- 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}
 
@@ -116,13 +116,13 @@ end;
 {$endif}
 
 // cdecl procedures are not name mangled
-// so USING something unlikely to cause colliesions in the global namespace
+// so USING something unlikely to cause collisions in the global namespace
 // is a good idea
 procedure lsignal_handler( Sig : Integer);cdecl;
 var
   currentsignal : tlsignal;
 begin
-//  writeln('in lsignal_hanler');
+//  writeln('in lsignal_handler');
   currentsignal := firstsignal;
   while assigned(currentsignal) do begin
     if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);
@@ -133,7 +133,7 @@ begin
   if assigned(signalloopback) then begin
     signalloopback.sendstr(' ');
   end;
-//  writeln('left lsignal_hanler');
+//  writeln('left lsignal_handler');
 end;
 
 {$ifdef freebsd}
@@ -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.