Browse Source

+ added AtomicNotify() to the WebAssembly unit

Nikolay Nikolov 3 years ago
parent
commit
a916aa36d8
1 changed files with 25 additions and 0 deletions
  1. 25 0
      rtl/wasm32/webassembly.pp

+ 25 - 0
rtl/wasm32/webassembly.pp

@@ -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.