Ver Fonte

* don't crash if we have to spill a register of the last instruction in an
asmlist

git-svn-id: trunk@30402 -

Jonas Maebe há 10 anos atrás
pai
commit
197e5194b9
1 ficheiros alterados com 2 adições e 0 exclusões
  1. 2 0
      compiler/rgobj.pas

+ 2 - 0
compiler/rgobj.pas

@@ -2331,6 +2331,8 @@ unit rgobj;
             end;
             end;
 
 
         { store the spilled registers }
         { store the spilled registers }
+        if not assigned(instr.next) then
+          list.concat(tai_marker.Create(mark_Position));
         storepos:=tai(instr.next);
         storepos:=tai(instr.next);
         for counter := 0 to pred(regs.reginfocount) do
         for counter := 0 to pred(regs.reginfocount) do
           with regs.reginfo[counter] do
           with regs.reginfo[counter] do