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

* fixed thlcgwasm.a_load_ref_ref for NR_EVAL_STACK_BASE source references

Browse Source 
git-svn-id: branches/wasm@47921 -
This commit is contained in:
nickysn 2020-12-31 08:11:55 +00:00
parent 361594bafd
commit 46a09bd8e4
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/wasm32/hlcgcpu.pas
View File

@ -1139,16 +1139,21 @@ implementation
extra_dslots: longint;
tmpsref, tmpdref: treference;
begin
tmpsref:=sref;
tmpdref:=dref;
{ make sure the destination reference is on top, since in the end the
order has to be "destref, value" -> first create "destref, sourceref" }
extra_dslots:=prepare_stack_for_ref(list,tmpdref,false);
extra_sslots:=prepare_stack_for_ref(list,tmpsref,false);
a_load_ref_stack(list,fromsize,tmpsref,extra_sslots);
if def2regtyp(fromsize)=R_INTREGISTER then
resize_stack_int_val(list,fromsize,tosize,assigned(tmpdref.symbol));
a_load_stack_ref(list,tosize,tmpdref,extra_dslots);
if sref.base<>NR_EVAL_STACK_BASE then
begin
tmpsref:=sref;
tmpdref:=dref;
{ make sure the destination reference is on top, since in the end the
order has to be "destref, value" -> first create "destref, sourceref" }
extra_dslots:=prepare_stack_for_ref(list,tmpdref,false);
extra_sslots:=prepare_stack_for_ref(list,tmpsref,false);
a_load_ref_stack(list,fromsize,tmpsref,extra_sslots);
if def2regtyp(fromsize)=R_INTREGISTER then
resize_stack_int_val(list,fromsize,tosize,assigned(tmpdref.symbol));
a_load_stack_ref(list,tosize,tmpdref,extra_dslots);
end
else
inherited;
end;
procedure thlcgwasm.a_loadaddr_ref_reg(list: TAsmList; fromsize, tosize: tdef; const ref: treference; r: tregister);