paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 03:41:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use MatchInstruction in OpCmp2OpS

Browse Source 
MatchInstruction keeps the code a bit more readable and compact.

git-svn-id: trunk@22226 -
This commit is contained in:
masta 2012-08-23 23:08:26 +00:00
parent 9ad6285fe2
commit 012da673a8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/aoptcpu.pas
View File

@ -386,16 +386,14 @@ Implementation
(taicpu(p).oper[0]^.reg = taicpu(hp1).oper[0]^.reg) and
(taicpu(hp1).oper[1]^.val = 0) and
GetNextInstruction(hp1, hp2) and
(tai(hp2).typ = ait_instruction) and
{ 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
{ All above instructions set Z and N according to the following
Z := result = 0;
N := result[31];
EQ = Z=1; NE = Z=0;
MI = N=1; PL = N=0; }
(taicpu(hp2).condition in [C_EQ,C_NE,C_MI,C_PL]) and
MatchInstruction(hp2, A_B, [C_EQ,C_NE,C_MI,C_PL], []) and
assigned(FindRegDealloc(NR_DEFAULTFLAGS,tai(hp2.Next))) then
begin
DebugMsg('Peephole OpCmp2OpS done', p);