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

* MIPS peephole: check that operand is present before accessing its fields, also check that it's not a branch target. Mantis #27608.

Browse Source 
git-svn-id: trunk@30110 -
This commit is contained in:
sergei 2015-03-06 00:04:06 +00:00
parent a41ff9ac9e
commit a709a9b637
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; function TCpuAsmOptimizer.TryRemoveMovToRefIndex(var p: tai; next: taicpu): boolean;
begin 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 (next.oper[1]^.ref^.base=taicpu(p).oper[0]^.reg) and
(not RegModifiedBetween(taicpu(p).oper[1]^.reg,p,next)) and (not RegModifiedBetween(taicpu(p).oper[1]^.reg,p,next)) and
Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next))); Assigned(FindRegDealloc(taicpu(p).oper[0]^.reg,tai(next.next)));