X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/4782a5c5afee47721cc617daa40dd29828342c2b..21410d99e1361e5474a47bb0bd0bc6e939f91b7d:/lloopback.pas?ds=inline

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