Changeset 164 for MicroThreading/UPlatform.pas

Timestamp:

Feb 8, 2011, 11:05:30 AM (13 years ago)

Author:

george

Message:

• Modified: Optimalized microthread execution from main thread.
• Fixed: Passthrough of WaitFor on already signaled event.

File:

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

MicroThreading/UPlatform.pas

@@ -28 +28 @@
   {$IFDEF Windows}TimerValue: Int64;{$ENDIF}
 begin
-  try
-    NowPreciseLock.Acquire;
+//  Result := Now;
+  //try
+    //NowPreciseLock.Acquire;
     {$IFDEF Windows}
     QueryPerformanceCounter(TimerValue);
@@ -42 +43 @@
     {$ENDIF}
 
-    Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
-  finally
-    NowPreciseLock.Release;
-  end;
+    Result := Result * OneSecond;
+    //Result := (Trunc(Now / OneSecond) + Frac(Result)) * OneSecond;
+  //finally
+    //NowPreciseLock.Release;
+  //end;
 end;