paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 23:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Revert oldlasttemp stuff

Browse Source 
git-svn-id: trunk@4717 -
This commit is contained in:
daniel 2006-09-24 16:59:36 +00:00
parent 710f374346
commit 6abd7a7cf3
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/rgobj.pas
View File

@ -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: