FreeBSD support

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index 7a10c7aac6f7590ad73232d3c63944968a14fc91..da8bb94da22693fabe17a383f88f0ef28904137e 100644 (file)
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -10,11 +10,19 @@
 unit ltimevalstuff;\r
 interface\r
 \r
 unit ltimevalstuff;\r
 interface\r
 \r

+\r
+{$ifdef CONDITIONALEXPRESSIONS}{$define support_int64}{$endif}    //delphi 6 or later\r
+{$ifdef fpc}{$define support_int64}{$endif}\r
+\r

 {$ifdef mswindows}\r
   type\r
     ttimeval = record\r
 {$ifdef mswindows}\r
   type\r
     ttimeval = record\r

-      tv_sec : longint; \r
-      tv_usec : longint; \r
+      {$IFDEF support_int64}\r
+      tv_sec : int64;\r
+      {$ELSE}\r
+      tv_sec : longint;\r
+      {$ENDIF}\r
+      tv_usec : longint;\r

     end;\r
 {$else}\r
   {$ifdef ver1_0}\r
     end;\r
 {$else}\r
   {$ifdef ver1_0}\r