Changeset 150 for MicroThreading/UMicroThreading.pas

Timestamp:

Jan 26, 2011, 7:58:27 PM (13 years ago)

Author:

george

Message:

• Fixed: Micro threads freeing.

File:

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

MicroThreading/UMicroThreading.pas

@@ -275 +275 @@
         mov eax, StaticMicroThread
         mov edx, [eax].TMicroThread.FStackPointer
+        mov ecx, esp
         mov esp, edx
         push ebp // remember bp on micro thread stack for read back
+        push ecx
         mov edx, [eax].TMicroThread.FBasePointer
         mov ebp, edx
@@ -282 +284 @@
       StaticMicroThread.Execute;
       asm
+        pop edx
         pop ebp
+        mov esp, edx
       end;
       //FSelected.Method(FSelected);
-      StaticManager := FCurrentMicroThread.FManager;
+  (*    StaticManager := FCurrentMicroThread.FManager;
       asm
         // Restore FScheduler stack
@@ -294 +298 @@
         mov ebp, edx
       end;
+*)
       FCurrentMicroThread.FManager := nil;
       FCurrentMicroThread.FExecutionEndTime := CurrentTime;
@@ -561 +566 @@
   try
     FThreadPoolLock.Acquire;
+    FThreadPool.OwnsObjects := False;
     FThreadPool.Delete(FThreadPool.IndexOf(Sender));
+    FThreadPool.OwnsObjects := True;
   finally
     FThreadPoolLock.Release;