wrapped rdtsc and added x64 support

[lcore.git] / ltimevalstuff.pas

diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas
index b955ef52c888910170d887b3cb0b7f9a984e7fb6..5e81933d2db630812b3d16e3bb0cfef0c04dd050 100755 (executable)
--- 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