fpc 3.0.0 support - fpc 3 renames fields in TInetSockAddr so we define it ourselves...

[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
 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