Przeglądaj źródła

* use NR_LOCAL_STACK_POINTER_REG in ttgwasm.localVarToRef

git-svn-id: branches/wasm@47777 -
nickysn 4 lat temu
rodzic
commit
fd690e8ba1
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compiler/wasm32/tgcpu.pas

+ 1 - 1
compiler/wasm32/tgcpu.pas

@@ -397,7 +397,7 @@ unit tgcpu;
 
     procedure ttgwasm.localVarToRef(idx: integer; size: integer; out ref: treference);
       begin
-        reference_reset_base(ref, current_procinfo.framepointer,idx,ctempposinvalid,size,[]);
+        reference_reset_base(ref,NR_LOCAL_STACK_POINTER_REG,idx,ctempposinvalid,size,[]);
         ref.islocal := true;
         updateFirstTemp;
       end;