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

+ handle any base and no index in the second if case in thlcgwasm.a_loadaddr_ref_reg

Browse Source 
git-svn-id: branches/wasm@47944 -
This commit is contained in:
nickysn 2021-01-02 05:52:19 +00:00
parent 2084fede95
commit e4f4f25c44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/hlcgcpu.pas
View File

@ -1166,9 +1166,9 @@ implementation
// reading back to the register
a_load_stack_reg(list, tosize, r);
end
else if (ref.base=NR_LOCAL_FRAME_POINTER_REG) and (ref.index=NR_NO) and not assigned(ref.symbol) then
else if (ref.base<>NR_NO) and (ref.index=NR_NO) and not assigned(ref.symbol) then
begin
list.Concat(taicpu.op_reg(a_get_local,NR_LOCAL_FRAME_POINTER_REG));
list.Concat(taicpu.op_reg(a_get_local,ref.base));
list.Concat(taicpu.op_const(a_i32_const, ref.offset));
// todo: index?
list.Concat(taicpu.op_none(a_i32_add));