fix for delphi

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index df0342c3448e4ad2c69c547a6b45188dc17fc844..5e81933d2db630812b3d16e3bb0cfef0c04dd050 100755 (executable)
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -3,10 +3,14 @@
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 \r
   which is included in the package\r
   ----------------------------------------------------------------------------- }\r
 \r

+{$ifdef fpc}\r
+  {$mode delphi}\r
+{$endif}\r
+\r

 unit ltimevalstuff;\r
 interface\r
 \r
 unit ltimevalstuff;\r
 interface\r
 \r

-{$ifdef win32}\r
+{$ifdef mswindows}\r

   type\r
     ttimeval = record\r
       tv_sec : longint; \r
   type\r
     ttimeval = record\r
       tv_sec : longint; \r


@@ -16,7 +20,7 @@ interface
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r

-    uses baseunix,unix,unixutil;\r
+    uses baseunix,unix,unixutil,sockets;\r

   {$endif}\r
 {$endif}\r
                                 \r
   {$endif}\r
 {$endif}\r
                                 \r