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

+ added AtomicExchange() to the WebAssembly unit

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-24 15:24:25 +03:00
parent 362cabe684
commit 9ba01e7aee
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
rtl/wasm32/webassembly.pp
View File

@ -64,6 +64,15 @@ function AtomicXor(var Mem: UInt32; Data: UInt32): UInt32; inline;
function AtomicXor(var Mem: Int64; Data: Int64): Int64; inline;
function AtomicXor(var Mem: UInt64; Data: UInt64): UInt64; inline;
function AtomicExchange(var Mem: Int8; Data: Int8): Int8; inline;
function AtomicExchange(var Mem: UInt8; Data: UInt8): UInt8; inline;
function AtomicExchange(var Mem: Int16; Data: Int16): Int16; inline;
function AtomicExchange(var Mem: UInt16; Data: UInt16): UInt16; inline;
function AtomicExchange(var Mem: Int32; Data: Int32): Int32; inline;
function AtomicExchange(var Mem: UInt32; Data: UInt32): UInt32; inline;
function AtomicExchange(var Mem: Int64; Data: Int64): Int64; inline;
function AtomicExchange(var Mem: UInt64; Data: UInt64): UInt64; inline;
implementation
{$I cpuh.inc}
@ -273,4 +282,44 @@ begin
AtomicXor:=fpc_wasm32_i64_atomic_rmw_xor(@Mem,Data);
end;
function AtomicExchange(var Mem: Int8; Data: Int8): Int8; inline;
begin
AtomicExchange:=Int8(fpc_wasm32_i32_atomic_rmw8_xchg_u(@Mem,Byte(Data)));
end;
function AtomicExchange(var Mem: UInt8; Data: UInt8): UInt8; inline;
begin
AtomicExchange:=UInt8(fpc_wasm32_i32_atomic_rmw8_xchg_u(@Mem,Data));
end;
function AtomicExchange(var Mem: Int16; Data: Int16): Int16; inline;
begin
AtomicExchange:=Int16(fpc_wasm32_i32_atomic_rmw16_xchg_u(@Mem,Word(Data)));
end;
function AtomicExchange(var Mem: UInt16; Data: UInt16): UInt16; inline;
begin
AtomicExchange:=UInt16(fpc_wasm32_i32_atomic_rmw16_xchg_u(@Mem,Data));
end;
function AtomicExchange(var Mem: Int32; Data: Int32): Int32; inline;
begin
AtomicExchange:=Int32(fpc_wasm32_i32_atomic_rmw_xchg(@Mem,LongWord(Data)));
end;
function AtomicExchange(var Mem: UInt32; Data: UInt32): UInt32; inline;
begin
AtomicExchange:=fpc_wasm32_i32_atomic_rmw_xchg(@Mem,Data);
end;
function AtomicExchange(var Mem: Int64; Data: Int64): Int64; inline;
begin
AtomicExchange:=Int64(fpc_wasm32_i64_atomic_rmw_xchg(@Mem,QWord(Data)));
end;
function AtomicExchange(var Mem: UInt64; Data: UInt64): UInt64; inline;
begin
AtomicExchange:=fpc_wasm32_i64_atomic_rmw_xchg(@Mem,Data);
end;
end.