various work on readtxt2.pas

[lcore.git] / lloopback.pas

diff --git a/lloopback.pas b/lloopback.pas
index 7e26d7cef16c1df958e1bd98c88a0ef5785099b4..a72b6103c8cb1da2bbceb8596f4eb7dad4634750 100755 (executable)
--- 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
 unit lloopback;\r
 \r
 interface\r


@@ -11,14 +15,14 @@ type
 \r
 \r
 implementation\r
 \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
 constructor tlloopback.create(aowner:tcomponent);\r
 begin\r
   inherited create(aowner);\r