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

+ handle all constant address (regardless of whether they are relative to a symbol or not) in thlcgwasm.a_loadaddr_ref_reg

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

2
compiler/wasm32/hlcgcpu.pas
View File

@ -1158,7 +1158,7 @@ implementation
(ref.base=NR_LOCAL_STACK_POINTER_REG) or (ref.index=NR_LOCAL_STACK_POINTER_REG) then (ref.base=NR_LOCAL_STACK_POINTER_REG) or (ref.index=NR_LOCAL_STACK_POINTER_REG) then
internalerror(2021010101); internalerror(2021010101);
if assigned(ref.symbol) and (ref.base=NR_NO) and (ref.index=NR_NO) then if (ref.base=NR_NO) and (ref.index=NR_NO) then
begin begin
// pushing address on stack // pushing address on stack
list.Concat(taicpu.op_ref(a_i32_const, ref)); list.Concat(taicpu.op_ref(a_i32_const, ref));