Browse Source

* WebAssembly: also handle dup=true in thlcgwasm.prepare_stack_for_ref for absolute address refs

Nikolay Nikolov 6 months ago
parent
commit
6ce57a1625
1 changed files with 5 additions and 0 deletions
  1. 5 0
      compiler/wasm32/hlcgcpu.pas

+ 5 - 0
compiler/wasm32/hlcgcpu.pas

@@ -1322,6 +1322,11 @@ implementation
           { no symbol, no index, just fixed address, e.g. var a: longint absolute 5; }
           list.Concat(taicpu.op_const(a_i32_const,0));
           incstack(list,1);
+          if dup then
+            begin
+              list.Concat(taicpu.op_const(a_i32_const,0));
+              incstack(list,1);
+            end;
           result:=1;
         end;
     end;