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

* allocregbetween has to update the "initialregs" parameter, because it

Browse Source 
can remove regallocs for the allocated register and reinstert them
    before already processed instructions, thereby preventing the
    peephole optimizer from ever seeing the allocation for this register
    (mantis #13612)

git-svn-id: trunk@13085 -
This commit is contained in:
Jonas Maebe 2009-05-02 22:26:24 +00:00
parent 445c842db3
commit 9344484ea7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/i386/daopt386.pas
View File

@ -199,7 +199,7 @@ procedure RemoveLastDeallocForFuncRes(asmL: TAsmList; p: tai);
function regLoadedWithNewValue(supreg: tsuperregister; canDependOnPrevValue: boolean;
hp: tai): boolean;
procedure UpdateUsedRegs(var UsedRegs: TRegSet; p: tai);
procedure AllocRegBetween(asml: TAsmList; reg: tregister; p1, p2: tai; const initialusedregs: tregset);
procedure AllocRegBetween(asml: TAsmList; reg: tregister; p1, p2: tai; var initialusedregs: tregset);
function FindRegDealloc(supreg: tsuperregister; p: tai): boolean;
function InstructionsEquivalent(p1, p2: tai; var RegInfo: toptreginfo): Boolean;
@ -1166,7 +1166,7 @@ begin
end;
procedure AllocRegBetween(asml: TAsmList; reg: tregister; p1, p2: tai; const initialusedregs: tregset);
procedure AllocRegBetween(asml: TAsmList; reg: tregister; p1, p2: tai; var initialusedregs: tregset);
{ allocates register reg between (and including) instructions p1 and p2 }
{ the type of p1 and p2 must not be in SkipInstr }
{ note that this routine is both called from the peephole optimizer }
@ -1208,6 +1208,7 @@ begin
begin
hp := tai_regalloc.alloc(reg,nil);
insertllItem(asmL,p1.previous,p1,hp);
include(initialusedregs,supreg);
end;
while assigned(p1) and
(p1 <> p2) do