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

* WebAssembly threads: destroy the event and mutex in WasiBeginThread in case wasi_thread_spawn fails

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-07 17:06:03 +03:00
parent 77d592221a
commit e03389c6a8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wasi/systhrd.inc
View File

@ -399,6 +399,8 @@ begin
else
begin
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed');{$ENDIF}
WasiRTLEventDestroy(T^.DoneEvent);
DoneMutex(T^.Running);
if Assigned(T^.StackBlock) then
FreeMem(T^.StackBlock);
if Assigned(T^.TLSBlock) then