paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 08:18:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* checked and updated valid opcode for OpCmp2OpS optimization

Browse Source 
git-svn-id: trunk@22203 -
This commit is contained in:
florian 2012-08-23 08:55:03 +00:00
parent 70009e8ed1
commit 935985d0c0
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/aoptcpu.pas
View File

@ -360,10 +360,8 @@ Implementation
}
{ this optimization can applied only to the currently enabled operations because
the other operations do not update all flags and FPC does not track flag usage }
if ((taicpu(p).opcode in [A_ADC,A_ADD,A_SUB,A_MUL,A_MVN,A_MOV,A_ORR,A_EOR,A_AND]) or
{ those two values are > 255 so check separately }
(taicpu(p).opcode=A_UDIV) or
(taicpu(p).opcode=A_SDIV)
if ((taicpu(p).opcode in [A_ADC,A_ADD,A_BIC,A_SUB,A_MUL,A_MVN,A_MOV,
A_ORR,A_EOR,A_AND,A_RSB,A_RSC,A_SBC,A_UMULL,A_UMULAL])
) and
(taicpu(p).oppostfix = PF_None) and
(taicpu(p).condition = C_None) and
@ -377,7 +375,7 @@ Implementation
{ be careful here, following instructions could use other flags
however after a jump fpc never depends on the value of flags }
(taicpu(hp2).opcode = A_B) and
(((taicpu(p).opcode in [A_ADC,A_ADD,A_SUB]) and
(((taicpu(p).opcode in [A_ADC,A_ADD,A_SBC,A_SUB]) and
(taicpu(hp2).condition in [C_EQ,C_NE,C_MI,C_PL])) or
(taicpu(hp2).condition in [C_EQ,C_NE])) and
assigned(FindRegDealloc(NR_DEFAULTFLAGS,tai(hp2.Next))) then