paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:26:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* generate jumpless code for the IN node for WebAssembly. TODO: this needs to be

Browse Source 
refactored, so the WebAssembly-specific code generation code goes in the wasm
  in node descendant class.

git-svn-id: branches/wasm@48178 -
This commit is contained in:
nickysn 2021-01-18 22:32:35 +00:00
parent c8e130d525
commit c4e8f091ec
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ncgset.pas
View File

@ -96,6 +96,9 @@ implementation
symconst,symdef,symsym,defutil, symconst,symdef,symsym,defutil,
pass_2,tgobj, pass_2,tgobj,
nbas,ncon,ncgflw, nbas,ncon,ncgflw,
{$ifdef WASM}
hlcgcpu,aasmcpu,
{$endif WASM}
ncgutil,hlcgobj; ncgutil,hlcgobj;
@ -491,6 +494,18 @@ implementation
((tenumdef(left.resultdef).min < aint(tsetdef(right.resultdef).setbase)) or ((tenumdef(left.resultdef).min < aint(tsetdef(right.resultdef).setbase)) or
(tenumdef(left.resultdef).max > aint(tsetdef(right.resultdef).setmax)))) then (tenumdef(left.resultdef).max > aint(tsetdef(right.resultdef).setmax)))) then
begin begin
{$ifdef WASM}
needslabel := True;
thlcgwasm(hlcg).a_cmp_const_reg_stack(current_asmdata.CurrAsmList, opdef, OC_A, tsetdef(right.resultdef).setmax-tsetdef(right.resultdef).setbase, pleftreg);
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_if));
thlcgwasm(hlcg).incblock;
thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
hlcg.a_load_const_reg(current_asmdata.CurrAsmList, uopdef, 0, location.register);
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_else));
{$else WASM}
current_asmdata.getjumplabel(l); current_asmdata.getjumplabel(l);
current_asmdata.getjumplabel(l2); current_asmdata.getjumplabel(l2);
needslabel := True; needslabel := True;
@ -501,13 +516,21 @@ implementation
hlcg.a_jmp_always(current_asmdata.CurrAsmList, l2); hlcg.a_jmp_always(current_asmdata.CurrAsmList, l2);
hlcg.a_label(current_asmdata.CurrAsmList, l); hlcg.a_label(current_asmdata.CurrAsmList, l);
{$endif WASM}
end; end;
hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList,opdef,right.resultdef,uopdef, hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList,opdef,right.resultdef,uopdef,
pleftreg,right.location,location.register); pleftreg,right.location,location.register);
if needslabel then if needslabel then
hlcg.a_label(current_asmdata.CurrAsmList, l2); begin
{$ifdef WASM}
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_if));
thlcgwasm(hlcg).decblock;
{$else WASM}
hlcg.a_label(current_asmdata.CurrAsmList, l2);
{$endif WASM}
end
end; end;
{$ifndef cpuhighleveltarget} {$ifndef cpuhighleveltarget}
location.size := def_cgsize(resultdef); location.size := def_cgsize(resultdef);