paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 22:17:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make use of GetNextInstructionUsingReg

Browse Source 
git-svn-id: trunk@22186 -
This commit is contained in:
florian 2012-08-22 19:51:40 +00:00
parent f3f5be2af1
commit c0425c48fd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/aoptcpu.pas
View File

@ -286,6 +286,8 @@ Implementation
(taicpu(movp).oper[0]^.reg<>NR_PC) and (taicpu(movp).oper[0]^.reg<>NR_PC) and
{ don't mess with moves to lr } { don't mess with moves to lr }
(taicpu(movp).oper[0]^.reg<>NR_R14) and (taicpu(movp).oper[0]^.reg<>NR_R14) and
{ the destination register of the mov might not be used beween p and movp }
not(RegUsedBetween(taicpu(movp).oper[0]^.reg,p,movp)) and
{There is a special requirement for MUL and MLA, oper[0] and oper[1] are not allowed to be the same} {There is a special requirement for MUL and MLA, oper[0] and oper[1] are not allowed to be the same}
not ( not (
(taicpu(p).opcode in [A_MLA, A_MUL]) and (taicpu(p).opcode in [A_MLA, A_MUL]) and
@ -488,7 +490,7 @@ Implementation
* ldr+mov have the same conditions * ldr+mov have the same conditions
* mov does not set flags * mov does not set flags
} }
if (taicpu(p).oppostfix<>PF_D) and GetNextInstruction(p, hp1) then if (taicpu(p).oppostfix<>PF_D) and GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
RemoveSuperfluousMove(p, hp1, 'LdrMov2Ldr'); RemoveSuperfluousMove(p, hp1, 'LdrMov2Ldr');
end; end;
A_MOV: A_MOV:
@ -865,7 +867,7 @@ Implementation
In the future this might be handled in RedundantMovProcess when it uses RegisterTracking In the future this might be handled in RedundantMovProcess when it uses RegisterTracking
} }
if (taicpu(p).opcode = A_MOV) and if (taicpu(p).opcode = A_MOV) and
GetNextInstruction(p, hp1) then GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
RemoveSuperfluousMove(p, hp1, 'MovMov2Mov'); RemoveSuperfluousMove(p, hp1, 'MovMov2Mov');
end; end;
A_ADD, A_ADD,
@ -910,7 +912,7 @@ Implementation
to to
add reg2, ... add reg2, ...
} }
if GetNextInstruction(p, hp1) then if GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
RemoveSuperfluousMove(p, hp1, 'DataMov2Data'); RemoveSuperfluousMove(p, hp1, 'DataMov2Data');
end; end;
A_CMP: A_CMP: