paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support loading a function result (on the evaluation stack) to a register in

Browse Source 
thlcgwasm.gen_load_cgpara_loc

git-svn-id: trunk@49449 -
This commit is contained in:
nickysn 2021-06-01 21:52:51 +00:00
parent c02b43fb93
commit 74bac86711
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/wasm32/hlcgcpu.pas
View File

@ -225,6 +225,8 @@ uses
twice. Returns how many stack slots have been consumed, disregarding
the "dup". }
function prepare_stack_for_ref(list: TAsmList; var ref: treference; dup: boolean): longint;
procedure gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean);override;
protected
{ return the load/store opcode to load/store from/to ref; if the result
has to be and'ed after a load to get the final value, that constant
@ -1061,6 +1063,20 @@ implementation
end;
end;
procedure thlcgwasm.gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean);
begin
{ support loading a function result (from the evaluation stack), to a register }
if assigned(para.location) and (not assigned(para.location^.next)) and
(para.location^.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
(para.location^.reference.index=NR_EVAL_STACK_BASE) and
(para.location^.reference.offset=0) and
(def_cgsize(para.location^.Def)=destloc.size) and
(destloc.loc=LOC_REGISTER) then
a_load_stack_loc(list,para.location^.Def,destloc)
else
inherited;
end;
procedure thlcgwasm.a_load_const_reg(list: TAsmList; tosize: tdef; a: tcgint; register: tregister);
begin
a_load_const_stack(list,tosize,a,def2regtyp(tosize));