From 6abd7a7cf3a18a3dbec036f83313857a67dc8ce5 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 24 Sep 2006 16:59:36 +0000
Subject: [PATCH]   * Revert oldlasttemp stuff

git-svn-id: trunk@4717 -
---
 compiler/rgobj.pas | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index ba0ddcc65d..f01d066494 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -1701,8 +1701,6 @@ unit rgobj;
         spill_temps : ^Tspill_temp_list;
         supreg : tsuperregister;
         templist : TAsmList;
-        oldlasttemp:longint;
-
       begin
         spill_registers:=false;
         live_registers.clear;
@@ -1712,7 +1710,6 @@ unit rgobj;
         supregset_reset(regs_to_spill_set,false,$ffff);
         { Allocate temps and insert in front of the list }
         templist:=TAsmList.create;
-        oldlasttemp:=tg.lasttemp;
         {Safe: this procedure is only called if there are spilled nodes.}
         with spillednodes do
           for i:=0 to length-1 do
@@ -1768,7 +1765,7 @@ unit rgobj;
                 with Taicpu(p) do
                   begin
                     aktfilepos:=fileinfo;
-                    if instr_spill_register(list,taicpu(p),regs_to_spill_set,spill_temps^,oldlasttemp) then
+                    if instr_spill_register(list,taicpu(p),regs_to_spill_set,spill_temps^) then
                       spill_registers:=true;
                   end;
             end;
@@ -1810,8 +1807,7 @@ unit rgobj;
     function trgobj.instr_spill_register(list:TAsmList;
                                          instr:taicpu;
                                          const r:Tsuperregisterset;
-                                         const spilltemplist:Tspill_temp_list;
-                                         oldlasttemp:longint): boolean;
+                                         const spilltemplist:Tspill_temp_list): boolean;
       var
         counter, regindex: longint;
         regs: tspillregsinfo;
@@ -2063,13 +2059,10 @@ unit rgobj;
               top_ref:
                 begin
                   if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
-                    with ref^ do
-                      begin
-                        if (base=NR_STACK_POINTER_REG) and (offset>=oldlasttemp) then
-                          inc(offset,tg.lasttemp-oldlasttemp);
-                        tryreplacereg(base);
-                        tryreplacereg(index);
-                      end;
+                    begin
+                      tryreplacereg(ref^.base);
+                      tryreplacereg(ref^.index);
+                    end;
                 end;
 {$ifdef ARM}
               top_shifterop: