paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ WebAssembly threads: set IsMultiThread to true in WasiBeginThread

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-19 08:36:45 +03:00
parent 0f39633acc
commit 200fbf64a1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/wasi/systhrd.inc
View File

@ -411,6 +411,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}
IsMultiThread:=true;
New(T);
T^.StackBlock:=nil;
T^.TLSBlock:=nil;