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

* Allow host environmentto get main and self thread IDs. Needed for inter-thread messaging in browser

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-07 16:42:44 +01:00
parent 44282acecb
commit 0b3d059458
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wasi/systhrd.inc
View File

@ -118,6 +118,12 @@ begin
GetSelfThread:=GlobalCurrentThread;
end;
Function GetMainThread : TThreadID;
begin
Result:=PWasmThread(@MainThread);
end;
Function GetThreadState(aThread : TThreadID) : TThreadState;
begin
@ -459,7 +465,7 @@ asm
i32.atomic.store8
end;
exports wasi_thread_start;
exports wasi_thread_start, GetSelfThread, GetMainThread;
Function wasi_thread_spawn(start_arg: PWasmThread) : LongInt; external 'wasi' name 'thread-spawn';