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

+ implemented int(real) for WebAssembly via the f32.trunc and f64.trunc instructions

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-29 04:19:10 +03:00
parent 8822be8a1f
commit d84a7d1bde
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/wasm32/nwasminl.pas
View File

@ -35,8 +35,10 @@ interface
twasminlinenode = class(tcginlinenode)
private
function first_abs_real:tnode;override;
function first_int_real:tnode;override;
function first_sqrt_real:tnode;override;
procedure second_abs_real;override;
procedure second_int_real;override;
procedure second_sqrt_real;override;
procedure second_high; override;
procedure second_memory_size;
@ -75,6 +77,13 @@ implementation
end;
function twasminlinenode.first_int_real: tnode;
begin
expectloc:=LOC_FPUREGISTER;
result:=nil;
end;
function twasminlinenode.first_sqrt_real: tnode;
begin
expectloc:=LOC_FPUREGISTER;
@ -104,6 +113,28 @@ implementation
end;
procedure twasminlinenode.second_int_real;
begin
secondpass(left);
hlcg.location_force_fpureg(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
thlcgwasm(hlcg).a_load_loc_stack(current_asmdata.CurrAsmList,left.resultdef,left.location);
case left.location.size of
OS_F32:
current_asmdata.CurrAsmList.Concat(taicpu.op_none(a_f32_trunc));
OS_F64:
current_asmdata.CurrAsmList.Concat(taicpu.op_none(a_f64_trunc));
else
internalerror(2021092903);
end;
location_reset(location,LOC_FPUREGISTER,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_sqrt_real;
begin
secondpass(left);