paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 18:57:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly threads: free the stack block and TLS block in case wasi_thread_spawn fails

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-07 16:44:44 +03:00
parent e6ba09aedd
commit f23cc9ec6d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/wasi/systhrd.inc
View File

@ -372,6 +372,8 @@ Var
begin
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread(sa: '+IntToStr(PtrUint(Sa))+',ss: '+IntToStr(PtrUint(StackSize))+',TF: '+IntToStr(PtrUint(ThreadFunction))+',Arg: '+IntToStr(PtrUint(P))+',fl: '+IntToStr(PtrUint(CreationFlags))+',ID: '+IntToStr(PtrUint(ThreadID))+')');{$ENDIF}
T:=GetMem(SizeOf(TWasmThread));
T^.StackBlock:=nil;
T^.TLSBlock:=nil;
ThreadID:=T;
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread thread ID : '+IntToStr(PtrUint(ThreadID)));{$ENDIF}
T^.ThreadFunction:=ThreadFunction;
@ -397,6 +399,10 @@ begin
else
begin
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed');{$ENDIF}
if Assigned(T^.StackBlock) then
FreeMem(T^.StackBlock);
if Assigned(T^.TLSBlock) then
FreeMem(T^.TLSBlock);
FreeMem(T);
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed, freeing thread struct');{$ENDIF}
WasiBeginThread:=TThreadID(0);