paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly threads: moved the thread stack and TLS block free code to a new

Browse Source 
procedure: FreeStackAndTlsBlock. No functional changes.
This commit is contained in:
Nikolay Nikolov 2024-08-23 11:23:57 +03:00
parent 1e630e8a17
commit c8b9eb3c5c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/wasi/systhrd.inc
View File

@ -452,6 +452,14 @@ exports wasi_thread_start;
Function wasi_thread_spawn(start_arg: PWasmThread) : LongInt; external 'wasi' name 'thread-spawn';
procedure FreeStackAndTlsBlock(T : PWasmThread);
begin
if Assigned(T^.StackBlock) then
FreeMem(T^.StackBlock);
if Assigned(T^.TLSBlock) then
FreeMem(T^.TLSBlock);
end;
function WasiBeginThread(sa : Pointer;stacksize : PtrUInt; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : TThreadID) : TThreadID;
Const
@ -492,10 +500,7 @@ 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
FreeMem(T^.TLSBlock);
FreeStackAndTlsBlock(T);
Dispose(T);
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed, freeing thread struct');{$ENDIF}
WasiBeginThread:=TThreadID(0);