Преглед на файлове

* Wake main thread when a thread is auto freed

Michaël Van Canneyt преди 4 месеца
родител
ревизия
fc43e66f05
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      rtl/wasicommon/tthread.inc

+ 3 - 0
rtl/wasicommon/tthread.inc

@@ -184,6 +184,9 @@ begin
         Resume;
         end;
       {$IFDEF DEBUGWASMTHREADS}DebugWriteln('TThread.SysDestroy: waiting on thread');{$ENDIF}
+      // Before calling WaitFor, signal main thread with WakeMainThread, so pending checksynchronize calls are handled.
+      if assigned(WakeMainThread) then
+        WakeMainThread(Self);
       WaitFor;
       end;
     end;