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

+ added AtomicLoad() to the WebAssembly unit

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-25 19:05:28 +03:00
parent 0103964250
commit 219294c02b
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

@ -19,6 +19,15 @@ interface
procedure AtomicFence; inline;
function AtomicLoad(constref Mem: Int8): Int8; inline;
function AtomicLoad(constref Mem: UInt8): UInt8; inline;
function AtomicLoad(constref Mem: Int16): Int16; inline;
function AtomicLoad(constref Mem: UInt16): UInt16; inline;
function AtomicLoad(constref Mem: Int32): Int32; inline;
function AtomicLoad(constref Mem: UInt32): UInt32; inline;
function AtomicLoad(constref Mem: Int64): Int64; inline;
function AtomicLoad(constref Mem: UInt64): UInt64; inline;
function AtomicAdd(var Mem: Int8; Data: Int8): Int8; inline;
function AtomicAdd(var Mem: UInt8; Data: UInt8): UInt8; inline;
function AtomicAdd(var Mem: Int16; Data: Int16): Int16; inline;
@ -91,6 +100,46 @@ begin
fpc_wasm32_atomic_fence;
end;
function AtomicLoad(constref Mem: Int8): Int8; inline;
begin
AtomicLoad:=Int8(fpc_wasm32_i32_atomic_load8_u(@Mem));
end;
function AtomicLoad(constref Mem: UInt8): UInt8; inline;
begin
AtomicLoad:=UInt8(fpc_wasm32_i32_atomic_load8_u(@Mem));
end;
function AtomicLoad(constref Mem: Int16): Int16; inline;
begin
AtomicLoad:=Int16(fpc_wasm32_i32_atomic_load16_u(@Mem));
end;
function AtomicLoad(constref Mem: UInt16): UInt16; inline;
begin
AtomicLoad:=UInt16(fpc_wasm32_i32_atomic_load16_u(@Mem));
end;
function AtomicLoad(constref Mem: Int32): Int32; inline;
begin
AtomicLoad:=Int32(fpc_wasm32_i32_atomic_load(@Mem));
end;
function AtomicLoad(constref Mem: UInt32): UInt32; inline;
begin
AtomicLoad:=UInt32(fpc_wasm32_i32_atomic_load(@Mem));
end;
function AtomicLoad(constref Mem: Int64): Int64; inline;
begin
AtomicLoad:=Int64(fpc_wasm32_i64_atomic_load(@Mem));
end;
function AtomicLoad(constref Mem: UInt64): UInt64; inline;
begin
AtomicLoad:=UInt64(fpc_wasm32_i64_atomic_load(@Mem));
end;
function AtomicAdd(var Mem: Int8; Data: Int8): Int8; inline;
begin
AtomicAdd:=Int8(fpc_wasm32_i32_atomic_rmw8_add_u(@Mem,Byte(Data)));