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

* optimization Move removed 4 fixed

Browse Source 
git-svn-id: trunk@43493 -
This commit is contained in:
florian 2019-11-16 14:04:02 +00:00
parent a5479bd91b
commit a969097a80
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/mips/aoptcpu.pas
View File

@ -25,7 +25,7 @@ unit aoptcpu;
{$i fpcdefs.inc} {$i fpcdefs.inc}
{ $define DEBUG_AOPTCPU} {$define DEBUG_AOPTCPU}
Interface Interface
@ -340,6 +340,7 @@ unit aoptcpu;
Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next))); Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next)));
if result then if result then
begin begin
AllocRegBetween(taicpu(p).oper[1]^.reg,p,next,UsedRegs);
next.oper[1]^.ref^.base:=taicpu(p).oper[1]^.reg; next.oper[1]^.ref^.base:=taicpu(p).oper[1]^.reg;
DebugMsg('Peephole: Move removed 4',p); DebugMsg('Peephole: Move removed 4',p);
asml.remove(p); asml.remove(p);