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

* refactored Bl2B condition code to make it more readable

Browse Source 
git-svn-id: trunk@23464 -
This commit is contained in:
florian 2013-01-20 15:38:38 +00:00
parent 7184306a4c
commit 9d76168b57
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/arm/aoptcpu.pas
View File

@ -1600,27 +1600,19 @@ Implementation
MatchInstruction(hp1, A_SUB, [C_None], [PF_NONE]) and
(taicpu(hp1).oper[0]^.typ = top_reg) and
(taicpu(hp1).oper[0]^.reg = NR_STACK_POINTER_REG) and
(taicpu(hp1).oper[1]^.typ = top_reg) and
(taicpu(hp1).oper[1]^.reg = NR_STACK_POINTER_REG) and
MatchOperand(taicpu(hp1).oper[0]^,taicpu(hp1).oper[1]^) and
(taicpu(hp1).oper[2]^.typ = top_const) and
MatchInstruction(hp3, A_ADD, [C_None], [PF_NONE]) and
(taicpu(hp3).oper[0]^.typ = top_reg) and
(taicpu(hp3).oper[0]^.reg = NR_STACK_POINTER_REG) and
(taicpu(hp3).oper[1]^.typ = top_reg) and
(taicpu(hp3).oper[1]^.reg = NR_STACK_POINTER_REG) and
(taicpu(hp3).oper[2]^.typ = top_const) and
(taicpu(hp1).oper[2]^.val = taicpu(hp3).oper[2]^.val) and
MatchOperand(taicpu(hp1).oper[0]^,taicpu(hp3).oper[0]^) and
MatchOperand(taicpu(hp1).oper[0]^,taicpu(hp3).oper[1]^) and
MatchOperand(taicpu(hp1).oper[2]^,taicpu(hp3).oper[2]^) and
MatchInstruction(hp2, [A_BL,A_BLX], [C_None], [PF_NONE]) and
(taicpu(hp2).oper[0]^.typ = top_ref) and
MatchInstruction(hp4, A_LDM, [C_None], [PF_FD]) and
(taicpu(hp4).oper[0]^.typ = top_ref) and
(taicpu(hp4).oper[0]^.ref^.index=NR_STACK_POINTER_REG) and
(taicpu(hp4).oper[0]^.ref^.base=NR_NO) and
(taicpu(hp4).oper[0]^.ref^.offset=0) and
(taicpu(hp4).oper[0]^.ref^.addressmode=AM_PREINDEXED) and
MatchOperand(taicpu(p).oper[0]^,taicpu(hp4).oper[0]^) and
(taicpu(hp4).oper[1]^.typ = top_regset) and
(taicpu(hp4).oper[1]^.regset^ = [RS_R15]) then
begin