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

[lcore.git] / lloopback.pas

diff --git a/lloopback.pas b/lloopback.pas
old mode 100755 (executable)
new mode 100644 (file)
index 7e26d7c..a72b610
--- a/lloopback.pas
+++ b/lloopback.pas
@@ -1,3 +1,7 @@
+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
+\r
 unit lloopback;\r
 \r
 interface\r
@@ -11,14 +15,14 @@ type
 \r
 \r
 implementation\r
-uses
-{$ifdef ver1_0}
-  linux;
-{$else}
-  baseunix,unix,unixutil;  
-{$endif}
-{$i unixstuff.inc}
-
+uses\r
+{$ifdef ver1_0}\r
+  linux;\r
+{$else}\r
+  baseunix,unix,unixutil,sockets;  \r
+{$endif}\r
+{$i unixstuff.inc}\r
+\r
 constructor tlloopback.create(aowner:tcomponent);\r
 begin\r
   inherited create(aowner);\r