replace internal uses of gettimeofday with monotonic time where appropriate. make...

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index 7054ea9ed31c3849ddbe74da3b2fd9d7d9ab6ec9..7a10c7aac6f7590ad73232d3c63944968a14fc91 100644 (file)
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -20,7 +20,10 @@ interface
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r
   {$ifdef ver1_0}\r
     uses linux;\r
   {$else}\r

-    uses baseunix,unix,unixutil,sockets;\r
+    uses \r
+      {$ifdef linux}linux,{$endif} //for clock_gettime\r
+      {$ifdef freebsd}freebsd,{$endif} //for clock_gettime      \r
+      baseunix,unix,unixutil,sockets;\r

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


@@ -30,6 +33,11 @@ function tv_compare(const tv1,tv2:ttimeval):boolean;
 procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r
 procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval);\r
 procedure msectotimeval(var tv:ttimeval;msec:integer);\r
 \r

+{$ifdef unix}\r
+//for internal use by lcore as a replacement for gettimeofday -beware\r
+procedure gettimemonotonic(var tv:ttimeval);\r
+{$endif}\r
+\r

 //tv_invalidtimebig will always compare as greater than any valid timeval\r
 //unfortunately unixstuff.inc hasn't worked it's magic yet so we\r
 //have to ifdef this manually.\r
 //tv_invalidtimebig will always compare as greater than any valid timeval\r
 //unfortunately unixstuff.inc hasn't worked it's magic yet so we\r
 //have to ifdef this manually.\r


@@ -75,4 +83,24 @@ begin
   tv.tv_usec := (msec mod 1000)*1000;\r
 end;\r
 \r
   tv.tv_usec := (msec mod 1000)*1000;\r
 end;\r
 \r

-end.
\ No newline at end of file
+\r
+{$ifdef unix}\r
+{$ifdef linux}{$define have_clock_gettime}{$endif}\r
+{$ifdef freebsd}{$define have_clock_gettime}{$endif}\r
+\r
+procedure gettimemonotonic(var tv:ttimeval);\r
+var\r
+  ts:ttimespec;\r
+begin\r
+  {$ifdef have_clock_gettime}\r
+  if (clock_gettime(CLOCK_MONOTONIC, @ts) = 0) then begin\r
+    tv.tv_sec := ts.tv_sec;\r
+    tv.tv_usec := ts.tv_nsec div 1000;\r
+    exit;\r
+  end;\r
+  {$endif}\r
+  gettimeofday(tv);\r
+end;\r
+{$endif}\r
+\r
+end.\r