+{$ifdef fpc}\r
+ {$mode delphi}\r
+{$endif}\r
+\r
unit lloopback;\r
\r
interface\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