Changeset 156 for MicroThreading/UPlatform.pas

Timestamp:

Jan 28, 2011, 2:12:42 PM (13 years ago)

Author:

george

Message:

• Modified: Restructuralized code for support for pending state changes.

File:

• MicroThreading/UPlatform.pas (modified) (4 diffs)

MicroThreading/UPlatform.pas

@@ -8 +8 @@
   {$IFDEF Windows}Windows,{$ENDIF}
   {$IFDEF Linux}BaseUnix, UnixUtil, Unix,{$ENDIF}
-  Classes, SysUtils, DateUtils;
+  Classes, SysUtils, DateUtils, SyncObjs;
 
 function NowPrecise: TDateTime;
@@ -20 +20 @@
 {$ENDIF}
 
+var
+  NowPreciseLock: TCriticalSection;
 
 function NowPrecise: TDateTime;
@@ -26 +28 @@
   {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
 begin
-  {$IFDEF Windows}
-  QueryPerformanceCounter(TimerValue);
-  //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
-  Result := TimerValue / PerformanceFrequency;
-  {$ENDIF}
+  try
+    NowPreciseLock.Acquire;
+    {$IFDEF Windows}
+    QueryPerformanceCounter(TimerValue);
+    //Result := Int64(TimeStampToMSecs(DateTimeToTimeStamp(Now)) * 1000) // an alternative Win32 timebase
+    Result := TimerValue / PerformanceFrequency;
+    {$ENDIF}
 
-  {$IFDEF Linux}
-  fpgettimeofday(@t, nil);
-   // Build a 64 bit microsecond tick from the seconds and microsecond longints
-  Result := t.tv_sec + t.tv_usec / 1000000;
-  {$ENDIF}
+    {$IFDEF Linux}
+    fpgettimeofday(@t, nil);
+     // Build a 64 bit microsecond tick from the seconds and microsecond longints
+    Result := t.tv_sec + t.tv_usec / 1000000;
+    {$ENDIF}
 
-  Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
+    Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
+  finally
+    NowPreciseLock.Release;
+  end;
 end;
 
@@ -58 +65 @@
 QueryPerformanceFrequency(PerformanceFrequency);
 {$ENDIF}
+NowPreciseLock := TCriticalSection.Create;
+
+finalization
+
+NowPreciseLock.Free;
 
 end.