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

+ more accurate stack tracking in thlcgwasm.a_loadaddr_ref_stack

Browse Source 
git-svn-id: branches/wasm@48281 -
This commit is contained in:
nickysn 2021-01-21 18:26:07 +00:00
parent 84e2299399
commit 187659ff02
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/wasm32/hlcgcpu.pas
View File

@ -405,22 +405,28 @@ implementation
tmpref.base:=NR_NO;
tmpref.index:=NR_NO;
list.Concat(taicpu.op_ref(a_i32_const, tmpref));
incstack(list, 1);
if ref.base<>NR_NO then
begin
list.Concat(taicpu.op_reg(a_get_local,ref.base));
incstack(list, 1);
list.Concat(taicpu.op_none(a_i32_add));
decstack(list, 1);
end;
if ref.index<>NR_NO then
begin
list.Concat(taicpu.op_reg(a_get_local,ref.index));
incstack(list, 1);
if ref.scalefactor>1 then
begin
list.Concat(taicpu.op_const(a_i32_const,ref.scalefactor));
incstack(list, 1);
list.Concat(taicpu.op_none(a_i32_mul));
decstack(list, 1);
end;
list.Concat(taicpu.op_none(a_i32_add));
decstack(list, 1);
end;
incstack(list, 1);
end;
procedure thlcgwasm.a_load_stack_loc(list: TAsmList; size: tdef; const loc: tlocation);