paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disabled preindex/postindexed peephole optimizations for Thumb and Thumb2

Browse Source 
git-svn-id: trunk@25156 -
This commit is contained in:
Jeppe Johansen 2013-07-21 14:21:16 +00:00
parent 0977d76f42
commit fdcc68cfd7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/aoptcpu.pas
View File

@ -420,7 +420,8 @@ Implementation
var
hp1: tai;
begin
if (p.ops=3) and
if (current_settings.cputype in cpu_arm) and
(p.ops=3) and
MatchOperand(p.oper[0]^, p.oper[1]^.reg) and
GetNextInstructionUsingReg(p, hp1, p.oper[0]^.reg) and
(not RegModifiedBetween(p.oper[0]^.reg, p, hp1)) and
@ -499,7 +500,7 @@ Implementation
{ don't apply the optimization if the (new) index register is loaded }
(p.oper[0]^.reg<>taicpu(hp1).oper[2]^.reg) and
not(RegModifiedBetween(taicpu(hp1).oper[2]^.reg,p,hp1)) and
not(current_settings.cputype in cpu_thumb) then
(current_settings.cputype in cpu_arm) then
begin
DebugMsg('Peephole Str/LdrAdd/Sub2Str/Ldr Postindex done', p);
p.oper[1]^.ref^.addressmode:=AM_POSTINDEXED;