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

+ added intrinsic (for RTL internal use) that emits the WebAssembly atomic.fence instruction

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-13 22:46:27 +03:00
parent ddab39dbdc
commit 1d70437017
4 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/wasm32/ccpuinnr.inc
View File

@ -17,5 +17,6 @@
in_wasm32_unreachable = in_cpu_first+2, in_wasm32_unreachable = in_cpu_first+2,
in_wasm32_throw_fpcexception = in_cpu_first+3, in_wasm32_throw_fpcexception = in_cpu_first+3,
in_wasm32_memory_copy = in_cpu_first+4, in_wasm32_memory_copy = in_cpu_first+4,
in_wasm32_memory_fill = in_cpu_first+5 in_wasm32_memory_fill = in_cpu_first+5,
in_wasm32_atomic_fence = in_cpu_first+6

18
compiler/wasm32/nwasminl.pas
View File

@ -51,6 +51,7 @@ interface
procedure second_memory_copy; procedure second_memory_copy;
procedure second_unreachable; procedure second_unreachable;
procedure second_throw_fpcexception; procedure second_throw_fpcexception;
procedure second_atomic_fence;
protected protected
function first_sqr_real: tnode; override; function first_sqr_real: tnode; override;
public public
@ -396,6 +397,13 @@ implementation
end; end;
procedure twasminlinenode.second_atomic_fence;
begin
location_reset(location,LOC_VOID,OS_NO);
current_asmdata.CurrAsmList.Concat(taicpu.op_none(a_atomic_fence));
end;
function twasminlinenode.first_sqr_real: tnode; function twasminlinenode.first_sqr_real: tnode;
begin begin
expectloc:=LOC_FPUREGISTER; expectloc:=LOC_FPUREGISTER;
@ -437,6 +445,11 @@ implementation
CheckParameters(3); CheckParameters(3);
resultdef:=voidtype; resultdef:=voidtype;
end; end;
in_wasm32_atomic_fence:
begin
CheckParameters(0);
resultdef:=voidtype;
end;
else else
Result:=inherited pass_typecheck_cpu; Result:=inherited pass_typecheck_cpu;
end; end;
@ -453,7 +466,8 @@ implementation
in_wasm32_memory_fill, in_wasm32_memory_fill,
in_wasm32_memory_copy, in_wasm32_memory_copy,
in_wasm32_unreachable, in_wasm32_unreachable,
in_wasm32_throw_fpcexception: in_wasm32_throw_fpcexception,
in_wasm32_atomic_fence:
expectloc:=LOC_VOID; expectloc:=LOC_VOID;
else else
Result:=inherited first_cpu; Result:=inherited first_cpu;
@ -476,6 +490,8 @@ implementation
second_unreachable; second_unreachable;
in_wasm32_throw_fpcexception: in_wasm32_throw_fpcexception:
second_throw_fpcexception; second_throw_fpcexception;
in_wasm32_atomic_fence:
second_atomic_fence;
else else
inherited pass_generate_code_cpu; inherited pass_generate_code_cpu;
end; end;

1
rtl/wasm32/cpuh.inc
View File

@ -23,3 +23,4 @@ procedure fpc_wasm32_unreachable;[internproc:fpc_in_wasm32_unreachable];
procedure fpc_wasm32_throw_fpcexception;[internproc:fpc_in_wasm32_throw_fpcexception]; procedure fpc_wasm32_throw_fpcexception;[internproc:fpc_in_wasm32_throw_fpcexception];
procedure fpc_wasm32_memory_fill(d,val,n: longword);[internproc:fpc_in_wasm32_memory_fill]; procedure fpc_wasm32_memory_fill(d,val,n: longword);[internproc:fpc_in_wasm32_memory_fill];
procedure fpc_wasm32_memory_copy(d,s,n: longword);[internproc:fpc_in_wasm32_memory_copy]; procedure fpc_wasm32_memory_copy(d,s,n: longword);[internproc:fpc_in_wasm32_memory_copy];
procedure fpc_wasm32_atomic_fence;[internproc:fpc_in_wasm32_atomic_fence];

1
rtl/wasm32/cpuinnr.inc
View File

@ -18,3 +18,4 @@
fpc_in_wasm32_throw_fpcexception = fpc_in_cpu_first+3; fpc_in_wasm32_throw_fpcexception = fpc_in_cpu_first+3;
fpc_in_wasm32_memory_copy = fpc_in_cpu_first+4; fpc_in_wasm32_memory_copy = fpc_in_cpu_first+4;
fpc_in_wasm32_memory_fill = fpc_in_cpu_first+5; fpc_in_wasm32_memory_fill = fpc_in_cpu_first+5;
fpc_in_wasm32_atomic_fence = fpc_in_cpu_first+6;