Changeset 252 for Common/StopWatch.pas

Timestamp:

Jun 16, 2011, 11:39:42 AM (13 years ago)

Author:

george

Message:

• Fixed: Compilation on Linux.

File:

• Common/StopWatch.pas (modified) (3 diffs)

Common/StopWatch.pas

@@ -4 +4 @@
 interface
 
-uses Windows, SysUtils, DateUtils;
+uses
+  {$IFDEF Windows}Windows,{$ENDIF}
+  SysUtils, DateUtils;
 
-type 
+type
+  TLargeInteger = Int64;
+
   TStopWatch = class
   private
@@ -36 +40 @@
   fIsRunning := False;
 
+  {$IFDEF Windows}
   fIsHighResolution := QueryPerformanceFrequency(fFrequency) ;
+  {$ELSE}
+  raise Exception.Create('Not implemeneted');
+  {$ENDIF}
   if NOT fIsHighResolution then fFrequency := MSecsPerSec;
 
@@ -50 +58 @@
 begin
   if fIsHighResolution then
+    {$IFDEF Windows}
     QueryPerformanceCounter(lInt)
+    {$ELSE}
+    raise Exception.Create('Not implemeneted')
+    {$ENDIF}
   else
     lInt := MilliSecondOf(Now) ;