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

* fixed thlcgwasm.a_load_loc_stack for LOC_REFERENCE

Browse Source 
git-svn-id: branches/wasm@47971 -
This commit is contained in:
nickysn 2021-01-02 13:39:16 +00:00
parent a5fafea8d1
commit 0e23b9288c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/hlcgcpu.pas
View File

@ -437,6 +437,7 @@ implementation
procedure thlcgwasm.a_load_loc_stack(list: TAsmList;size: tdef;const loc: tlocation);
var
tmpref: treference;
extra_slots: LongInt;
begin
case loc.loc of
LOC_REGISTER,LOC_CREGISTER,
@ -445,7 +446,8 @@ implementation
LOC_REFERENCE,LOC_CREFERENCE:
begin
tmpref:=loc.reference;
a_load_ref_stack(list,size,loc.reference,prepare_stack_for_ref(list,tmpref,false));
extra_slots:=prepare_stack_for_ref(list,tmpref,false);
a_load_ref_stack(list,size,tmpref,extra_slots);
end;
LOC_CONSTANT:
a_load_const_stack(list,size,loc.value,def2regtyp(size));