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

+ support references with only index reg, and no base reg in thlcgwasm.prepare_stack_for_ref

Browse Source 
git-svn-id: branches/wasm@48179 -
This commit is contained in:
nickysn 2021-01-18 22:35:56 +00:00
parent c4e8f091ec
commit af41eee9d1
1 changed files with 6 additions and 0 deletions

6
compiler/wasm32/hlcgcpu.pas
View File

@ -998,6 +998,12 @@ implementation
if (ref.base=NR_EVAL_STACK_BASE) or (ref.base=NR_LOCAL_STACK_POINTER_REG) then
exit;
if (ref.base=NR_NO) and (ref.index<>NR_NO) and (ref.scalefactor<=1) then
begin
ref.base:=ref.index;
ref.index:=NR_NO;
end;
// setting up memory offset
if assigned(ref.symbol) and (ref.base=NR_NO) and (ref.index=NR_NO) then
begin