Procházet zdrojové kódy

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

Nikolay Nikolov před 7 měsíci
rodič
revize
6ce57a1625
1 změnil soubory, kde provedl 5 přidání a 0 odebrání
  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;