paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly threads: use New and Dispose instead of GetMem/FreeMem for allocating/freeing TWasmThread

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

4
rtl/wasi/systhrd.inc
View File

@ -371,7 +371,7 @@ 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));
New(T);
T^.StackBlock:=nil;
T^.TLSBlock:=nil;
ThreadID:=T;
@ -403,7 +403,7 @@ begin
FreeMem(T^.StackBlock);
if Assigned(T^.TLSBlock) then
FreeMem(T^.TLSBlock);
FreeMem(T);
Dispose(T);
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed, freeing thread struct');{$ENDIF}
WasiBeginThread:=TThreadID(0);
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('WasiBeginThread: spawn thread failed, returning 0');{$ENDIF}