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

* WebAssembly threads: disable stack checking for the FPCWasmThreadStartPascal procedure

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-06 07:07:41 +03:00
parent 9d771396ff
commit 9e0b2869a3
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

@ -322,6 +322,7 @@ procedure WasiAllocateThreadVars; forward;
// Result:=tthreadfunc(RunFunction)(args); // Result:=tthreadfunc(RunFunction)(args);
//end; //end;
{$push}{$S-} // no stack checking for this procedure
procedure FPCWasmThreadStartPascal(tid: longint; start_arg: PWasmThread); procedure FPCWasmThreadStartPascal(tid: longint; start_arg: PWasmThread);
begin begin
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('FPCWasmThreadStartPascal(...)');{$ENDIF} {$IFDEF DEBUGWASMTHREADS}DebugWriteln('FPCWasmThreadStartPascal(...)');{$ENDIF}
@ -344,6 +345,7 @@ begin
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('FPCWasmThreadStartPascal: Signaling end of thread');{$ENDIF} {$IFDEF DEBUGWASMTHREADS}DebugWriteln('FPCWasmThreadStartPascal: Signaling end of thread');{$ENDIF}
WasiRTLEventSetEvent(start_arg^.DoneEvent); WasiRTLEventSetEvent(start_arg^.DoneEvent);
end; end;
{$pop}
procedure wasi_thread_start(tid: longint; start_arg: PWasmThread); assembler; nostackframe; procedure wasi_thread_start(tid: longint; start_arg: PWasmThread); assembler; nostackframe;
asm asm