Преглед на файлове

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

Nikolay Nikolov преди 7 месеца
родител
ревизия
6ce57a1625
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  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;