fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / lsignal.pas

diff --git a/lsignal.pas b/lsignal.pas
old mode 100755 (executable)
new mode 100644 (file)
index 49e51b2..b64e07e
--- a/lsignal.pas
+++ b/lsignal.pas
@@ -14,7 +14,7 @@ interface
     {$ifdef VER1_0}\r
       linux,\r
     {$else}\r
-      baseunix,unix,unixutil,\r
+      baseunix,unix,unixutil,sockets,\r
     {$endif}\r
     classes,lcore,lloopback;\r
 \r
@@ -37,7 +37,7 @@ var
   firstsignal : tlsignal;\r
   blockset : sigset;\r
   signalloopback                        : tlloopback ;\r
-  
+  \r
 implementation\r
 {$include unixstuff.inc}\r
 \r
@@ -116,13 +116,13 @@ end;
 {$endif}\r
 \r
 // cdecl procedures are not name mangled\r
-// so USING something unlikely to cause colliesions in the global namespace\r
+// so USING something unlikely to cause collisions in the global namespace\r
 // is a good idea\r
 procedure lsignal_handler( Sig : Integer);cdecl;\r
 var\r
   currentsignal : tlsignal;\r
 begin\r
-//  writeln('in lsignal_hanler');\r
+//  writeln('in lsignal_handler');\r
   currentsignal := firstsignal;\r
   while assigned(currentsignal) do begin\r
     if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);\r
@@ -133,7 +133,7 @@ begin
   if assigned(signalloopback) then begin\r
     signalloopback.sendstr(' ');\r
   end;\r
-//  writeln('left lsignal_hanler');\r
+//  writeln('left lsignal_handler');\r
 end;\r
 \r
 {$ifdef freebsd}\r
@@ -156,7 +156,7 @@ const
     saction : sigactionrec = (handler:(sh:lsignal_handler);sa_flags:0);\r
   {$else}\r
     {$ifdef darwin}\r
-      saction : sigactionrec = (sa_handler:tsigaction(lsignal_handler);sa_flags:0);\r
+      saction : sigactionrec = (sa_handler:sigactionhandler(lsignal_handler);sa_flags:0);\r
     {$else}\r
       {$ifdef freebsd}\r
         //version number is FPC_VERSION.FPC_RELEASE.FPC_PATCH\r
@@ -193,9 +193,9 @@ end;
 initialization\r
   fillchar(blockset,sizeof(blockset),0);\r
   blockset[0] := $FFFFFFFF - (1 shl sigstop) - (1 shl sigkill) - (1 shl sigsegv);\r
-  {$ifdef ver1_0}
-    saction.sa_mask := blockset[0];
-  {$else}
+  {$ifdef ver1_0}\r
+    saction.sa_mask := blockset[0];\r
+  {$else}\r
     saction.sa_mask := blockset;\r
   {$endif}\r
 end.\r