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

+ WebAssembly threads: initialize the ThreadId threadvar for the main thread

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-18 11:41:04 +03:00
parent 13fbc876e0
commit 02867fe918
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

@ -132,6 +132,7 @@ begin
GlobalIsMainThread:=1;
GlobalIsWorkerThread:=0;
GlobalCurrentThread:=@MainThread;
ThreadId:=@MainThread;
{$IFDEF FPC_WASM_MAIN_THREAD_CAN_WAIT}
GlobalIsThreadBlockable:=1;
{$ELSE FPC_WASM_MAIN_THREAD_CAN_WAIT}