paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 19:48:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Wake main thread when a thread is auto freed

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-03 17:12:20 +02:00
parent 1a21ea41b8
commit fc43e66f05
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/wasicommon/tthread.inc
View File

@ -184,6 +184,9 @@ begin
Resume; Resume;
end; end;
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('TThread.SysDestroy: waiting on thread');{$ENDIF} {$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; WaitFor;
end; end;
end; end;