paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added AtomicNotify() to the WebAssembly unit

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-25 20:16:50 +03:00
parent 19cce3e42e
commit a916aa36d8
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/wasm32/webassembly.pp
View File

@ -115,6 +115,11 @@ function AtomicWait(constref Mem: UInt32; Compare: UInt32; TimeoutNanoseconds: I
function AtomicWait(constref Mem: Int64; Compare: Int64; TimeoutNanoseconds: Int64): Int32;
function AtomicWait(constref Mem: UInt64; Compare: UInt64; TimeoutNanoseconds: Int64): Int32;
function AtomicNotify(constref Mem: Int32; Count: UInt32): UInt32; inline;
function AtomicNotify(constref Mem: UInt32; Count: UInt32): UInt32; inline;
function AtomicNotify(constref Mem: Int64; Count: UInt32): UInt32; inline;
function AtomicNotify(constref Mem: UInt64; Count: UInt32): UInt32; inline;
implementation
{$I cpuh.inc}
@ -504,4 +509,24 @@ begin
AtomicWait:=fpc_wasm32_memory_atomic_wait64(@Mem,Compare,TimeoutNanoseconds);
end;
function AtomicNotify(constref Mem: Int32; Count: UInt32): UInt32; inline;
begin
AtomicNotify:=fpc_wasm32_memory_atomic_notify(@Mem,Count);
end;
function AtomicNotify(constref Mem: UInt32; Count: UInt32): UInt32; inline;
begin
AtomicNotify:=fpc_wasm32_memory_atomic_notify(@Mem,Count);
end;
function AtomicNotify(constref Mem: Int64; Count: UInt32): UInt32; inline;
begin
AtomicNotify:=fpc_wasm32_memory_atomic_notify(@Mem,Count);
end;
function AtomicNotify(constref Mem: UInt64; Count: UInt32): UInt32; inline;
begin
AtomicNotify:=fpc_wasm32_memory_atomic_notify(@Mem,Count);
end;
end.