paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented WebAssembly atomic load intrinsics

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-25 18:55:41 +03:00
parent 9274f17c52
commit 0103964250
2 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
compiler/wasm32/nwasminl.pas
View File

@ -52,6 +52,7 @@ interface
procedure second_unreachable;
procedure second_throw_fpcexception;
procedure second_atomic_fence;
procedure second_atomic_load(op: TAsmOp);
procedure second_atomic_rmw_x_y(op: TAsmOp);
procedure second_atomic_rmw_x_y_z(op: TAsmOp);
protected
@ -405,6 +406,21 @@ implementation
end;
procedure twasminlinenode.second_atomic_load(op: TAsmOp);
begin
secondpass(left);
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
thlcgwasm(hlcg).a_load_reg_stack(current_asmdata.CurrAsmList,left.resultdef,left.location.register);
current_asmdata.CurrAsmList.Concat(taicpu.op_const(op,0));
location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
location.register:=hlcg.getregisterfordef(current_asmdata.CurrAsmList,resultdef);
thlcgwasm(hlcg).a_load_stack_loc(current_asmdata.CurrAsmList,resultdef,location);
end;
procedure twasminlinenode.second_atomic_rmw_x_y(op: TAsmOp);
begin
secondpass(tcallparanode(tcallparanode(left).right).left);
@ -594,6 +610,21 @@ implementation
CheckParameters(2);
resultdef:=u32inttype;
end;
in_i32_atomic_load8_u,
in_i32_atomic_load16_u,
in_i32_atomic_load:
begin
CheckParameters(1);
resultdef:=u32inttype;
end;
in_i64_atomic_load8_u,
in_i64_atomic_load16_u,
in_i64_atomic_load32_u,
in_i64_atomic_load:
begin
CheckParameters(1);
resultdef:=u64inttype;
end;
else
Result:=inherited pass_typecheck_cpu;
end;
@ -664,7 +695,14 @@ implementation
in_wasm32_i64_atomic_rmw_cmpxchg,
in_wasm32_memory_atomic_wait32,
in_wasm32_memory_atomic_wait64,
in_wasm32_memory_atomic_notify:
in_wasm32_memory_atomic_notify,
in_i32_atomic_load8_u,
in_i32_atomic_load16_u,
in_i32_atomic_load,
in_i64_atomic_load8_u,
in_i64_atomic_load16_u,
in_i64_atomic_load32_u,
in_i64_atomic_load:
expectloc:=LOC_REGISTER;
else
Result:=inherited first_cpu;
@ -793,6 +831,20 @@ implementation
second_atomic_rmw_x_y_z(a_memory_atomic_wait64);
in_wasm32_memory_atomic_notify:
second_atomic_rmw_x_y(a_memory_atomic_notify);
in_i32_atomic_load8_u:
second_atomic_load(a_i32_atomic_load8_u);
in_i32_atomic_load16_u:
second_atomic_load(a_i32_atomic_load16_u);
in_i32_atomic_load:
second_atomic_load(a_i32_atomic_load);
in_i64_atomic_load8_u:
second_atomic_load(a_i64_atomic_load8_u);
in_i64_atomic_load16_u:
second_atomic_load(a_i64_atomic_load16_u);
in_i64_atomic_load32_u:
second_atomic_load(a_i64_atomic_load32_u);
in_i64_atomic_load:
second_atomic_load(a_i64_atomic_load);
else
inherited pass_generate_code_cpu;
end;

8
rtl/wasm32/cpuh.inc
View File

@ -85,3 +85,11 @@ function fpc_wasm32_memory_atomic_wait32(Dest: PLongWord; Expected: LongWord; Ti
function fpc_wasm32_memory_atomic_wait64(Dest: PQWord; Expected: QWord; Timeout: Int64): LongInt;[internproc:fpc_in_wasm32_memory_atomic_wait64];
function fpc_wasm32_memory_atomic_notify(Address: Pointer; Count: LongWord): LongWord;[internproc:fpc_in_wasm32_memory_atomic_notify];
function fpc_wasm32_i32_atomic_load8_u(Address: Pointer): LongWord;[internproc:fpc_in_i32_atomic_load8_u];
function fpc_wasm32_i32_atomic_load16_u(Address: Pointer): LongWord;[internproc:fpc_in_i32_atomic_load16_u];
function fpc_wasm32_i32_atomic_load(Address: Pointer): LongWord;[internproc:fpc_in_i32_atomic_load];
function fpc_wasm32_i64_atomic_load8_u(Address: Pointer): QWord;[internproc:fpc_in_i64_atomic_load8_u];
function fpc_wasm32_i64_atomic_load16_u(Address: Pointer): QWord;[internproc:fpc_in_i64_atomic_load16_u];
function fpc_wasm32_i64_atomic_load32_u(Address: Pointer): QWord;[internproc:fpc_in_i64_atomic_load32_u];
function fpc_wasm32_i64_atomic_load(Address: Pointer): QWord;[internproc:fpc_in_i64_atomic_load];