X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/d7911799068d97efe3695e4097c9ab188b54218c..1eee6366bbaa10a34232046fee3aa83181bc452f:/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}