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 167aa65..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
@@ -15,7 +19,7 @@ uses
 {$ifdef ver1_0}\r
   linux;\r
 {$else}\r
-  baseunix,unix,unixutil;  \r
+  baseunix,unix,unixutil,sockets;  \r
 {$endif}\r
 {$i unixstuff.inc}\r
 \r