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

* optimize also str/ldrb/h/d

Browse Source 
git-svn-id: trunk@22219 -
This commit is contained in:
florian 2012-08-23 21:03:44 +00:00
parent 1b3e03d72d
commit 9d20a73986
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/aoptcpu.pas
View File

@ -979,8 +979,8 @@ Implementation
begin
hp1:=p;
while GetNextInstructionUsingReg(hp1, hp1, taicpu(p).oper[0]^.reg) and
(MatchInstruction(hp1, A_LDR, [taicpu(p).condition], [PF_None]) or
MatchInstruction(hp1, A_STR, [taicpu(p).condition], [PF_None])) and
(MatchInstruction(hp1, A_LDR, [taicpu(p).condition], []) or
MatchInstruction(hp1, A_STR, [taicpu(p).condition], [])) and
(taicpu(hp1).oper[1]^.ref^.base=taicpu(p).oper[0]^.reg) and
(taicpu(hp1).oper[1]^.ref^.index=NR_NO) and
(taicpu(hp1).oper[1]^.ref^.addressmode=AM_OFFSET) and