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

* wasm base and index reference access fixes

Browse Source 
git-svn-id: branches/wasm@47177 -
This commit is contained in:
nickysn 2020-10-24 17:28:43 +00:00
parent d15e9717e3
commit 64b2d8ef85
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/wasm32/agllvmmc.pas
View File

@ -197,7 +197,7 @@ implementation
begin
// local symbol -> stack slot, stored in offset
result:='';
if ref.base<>NR_STACK_POINTER_REG then
if (ref.base<>NR_STACK_POINTER_REG) and (ref.base<>NR_NO) then
result:=std_regname(ref.base);
if ref.index<>NR_NO then
if result<>'' then

13
compiler/wasm32/hlcgcpu.pas
View File

@ -1044,14 +1044,16 @@ implementation
if (ref.base=NR_EVAL_STACK_BASE) or (ref.islocal) then
exit;
// setting up memory offset
if assigned(ref.symbol) then
begin
Writeln(ref.symbol.name, ' ', std_Regname(ref.base), ' ', std_regname(ref.index));
end;
// setting up memory offset
if assigned(ref.symbol) and (ref.base=NR_NO) and (ref.index=NR_NO) then
begin
list.Concat(taicpu.op_const(a_i32_const,0));
incstack(list,1);
result:=1;
if (ref.base<>NR_NO) or (ref.index<>NR_NO) then
internalerror(2020102401);
end
else if ref.index <> NR_NO then // array access
begin
@ -1059,6 +1061,10 @@ implementation
list.Concat(taicpu.op_reg(a_get_local, ref.base));
list.Concat(taicpu.op_reg(a_get_local, ref.index));
list.Concat(taicpu.op_none(a_i32_add));
ref.base:=NR_NO;
ref.index:=NR_NO;
incstack(list,1);
result:=1;
end
else if (ref.base<>NR_NO) then
begin
@ -1075,6 +1081,7 @@ implementation
end;
{ field name/type encoded in symbol, no index/offset }
result:=1;
ref.base:=NR_NO;
end
else // if (ref.base = NR_FRAME_POINTER_REG) then
begin