X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/eca2c8e0a8aad79c7dc7738346d265f973428995..803cf6668d9e89c244e5fbc7f996a460470338dd:/ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index 7a10c7a..da8bb94 100644
--- a/ltimevalstuff.pas
+++ b/ltimevalstuff.pas
@@ -10,11 +10,19 @@
 unit ltimevalstuff;
 interface
 
+
+{$ifdef CONDITIONALEXPRESSIONS}{$define support_int64}{$endif}    //delphi 6 or later
+{$ifdef fpc}{$define support_int64}{$endif}
+
 {$ifdef mswindows}
   type
     ttimeval = record
-      tv_sec : longint; 
-      tv_usec : longint; 
+      {$IFDEF support_int64}
+      tv_sec : int64;
+      {$ELSE}
+      tv_sec : longint;
+      {$ENDIF}
+      tv_usec : longint;
     end;
 {$else}
   {$ifdef ver1_0}