no longer by default call TimeBeginPeriod(1) in btime init

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
old mode 100755 (executable)
new mode 100644 (file)
index df0342c..7054ea9
--- 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,14 +20,14 @@ 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
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r
   {$endif}\r
 {$endif}\r
                                 \r
 \r
 procedure tv_add(var tv:ttimeval;msec:integer);\r
 function tv_compare(const tv1,tv2:ttimeval):boolean;\r

-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r

 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r


@@ -55,7 +59,7 @@ begin
   end else result := tv1.tv_sec > tv2.tv_sec;\r
 end;\r
 \r
   end else result := tv1.tv_sec > tv2.tv_sec;\r
 end;\r
 \r

-procedure tv_substract(var tv:ttimeval;const tv2:ttimeval);\r
+procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r

 begin\r
   dec(tv.tv_usec,tv2.tv_usec);\r
   if tv.tv_usec < 0 then begin\r
 begin\r
   dec(tv.tv_usec,tv2.tv_usec);\r
   if tv.tv_usec < 0 then begin\r