paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed issue #26965. The peephole optimization didn't move a potential register deallocation to after the ldr instruction causing mov's to be removed.

Browse Source 
git-svn-id: trunk@28977 -
This commit is contained in:
Jeppe Johansen 2014-11-03 18:33:32 +00:00
parent fd97b53016
commit d3e91bb60c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/aoptcpu.pas
View File

@ -563,6 +563,7 @@ Implementation
TmpUsedRegs: TAllUsedRegs; TmpUsedRegs: TAllUsedRegs;
tempop: tasmop; tempop: tasmop;
oldreg: tregister; oldreg: tregister;
dealloc: tai_regalloc;
function IsPowerOf2(const value: DWord): boolean; inline; function IsPowerOf2(const value: DWord): boolean; inline;
begin begin
@ -1250,6 +1251,13 @@ Implementation
if taicpu(hp1).oper[1]^.ref^.index = taicpu(p).oper[0]^.reg then if taicpu(hp1).oper[1]^.ref^.index = taicpu(p).oper[0]^.reg then
taicpu(hp1).oper[1]^.ref^.index := taicpu(p).oper[1]^.reg; taicpu(hp1).oper[1]^.ref^.index := taicpu(p).oper[1]^.reg;
dealloc:=FindRegDeAlloc(taicpu(p).oper[1]^.reg, taicpu(p.Next));
if Assigned(dealloc) then
begin
asml.remove(dealloc);
asml.InsertAfter(dealloc,hp1);
end;
GetNextInstruction(p, hp1); GetNextInstruction(p, hp1);
asml.remove(p); asml.remove(p);
p.free; p.free;