瀏覽代碼

Added correction to AllocRegBetween

J. Gareth "Curious Kit" Moreton 4 年之前
父節點
當前提交
6b26fa0f9a
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/aoptobj.pas

+ 1 - 0
compiler/aoptobj.pas

@@ -1410,6 +1410,7 @@ Unit AoptObj;
             hp := tai_regalloc.alloc(reg,nil);
             insertllItem(p1.previous,p1,hp);
             IncludeRegInUsedRegs(reg,initialusedregs);
+            lastRemovedWasDealloc := True; { If no tai_regallocs are found at all, treat as if the last one was a deallocation }
           end;
         while assigned(p1) and
               (p1 <> p2) do