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

* patch by Nico Erfurth: adds a check for SM_ASR to also support removal of unnecessary sign extension before STRH.

Browse Source 
git-svn-id: trunk@21446 -
This commit is contained in:
florian 2012-05-31 20:24:48 +00:00
parent af7bb6faab
commit 3ae5fc8c04
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/aoptcpu.pas
View File

@ -374,7 +374,7 @@ Implementation
} }
if (taicpu(p).oper[2]^.shifterop^.shiftmode=SM_LSL) and if (taicpu(p).oper[2]^.shifterop^.shiftmode=SM_LSL) and
(taicpu(p).oper[2]^.shifterop^.shiftimm=16) and (taicpu(p).oper[2]^.shifterop^.shiftimm=16) and
(taicpu(hp1).oper[2]^.shifterop^.shiftmode=SM_LSR) and (taicpu(hp1).oper[2]^.shifterop^.shiftmode in [SM_LSR,SM_ASR]) and
(taicpu(hp1).oper[2]^.shifterop^.shiftimm=16) and (taicpu(hp1).oper[2]^.shifterop^.shiftimm=16) and
getnextinstruction(hp1,hp2) and getnextinstruction(hp1,hp2) and
MatchInstruction(hp2, A_STR, [taicpu(p).condition], [PF_H]) and MatchInstruction(hp2, A_STR, [taicpu(p).condition], [PF_H]) and