X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/82d4e52fba54be50d719f6185ec381f2dc87fc6c..21410d99e1361e5474a47bb0bd0bc6e939f91b7d:/lsignal.pas?ds=inline

diff --git a/lsignal.pas b/lsignal.pas
old mode 100755
new mode 100644
index 833c56e..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;
 
@@ -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