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

--- Merging r30110 into '.':

Browse Source 
U    compiler/mips/aoptcpu.pas

git-svn-id: branches/fixes_3_0@32666 -
This commit is contained in:
Jonas Maebe 2015-12-14 12:53:53 +00:00
parent e0ca083cce
commit cb6fd57009
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/aoptcpu.pas
View File

@ -310,7 +310,9 @@ unit aoptcpu;
function TCpuAsmOptimizer.TryRemoveMovToRefIndex(var p: tai; next: taicpu): boolean;
begin
result:=(next.oper[1]^.typ=top_ref) and
result:=(next.ops>1) and
(next.oper[1]^.typ=top_ref) and
(next.oper[1]^.ref^.refaddr<>addr_full) and
(next.oper[1]^.ref^.base=taicpu(p).oper[0]^.reg) and
(not RegModifiedBetween(taicpu(p).oper[1]^.reg,p,next)) and
Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next)));