Explorar o código

Added correction to AllocRegBetween

J. Gareth "Curious Kit" Moreton %!s(int64=3) %!d(string=hai) anos
pai
achega
6b26fa0f9a
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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