paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 13:28:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Only perform OpCp2Op optimization when the first Op is ANDI and comparison is against 0.

Browse Source
This commit is contained in:
ccrause 2023-03-09 07:33:24 +02:00
parent 77f53ebde3
commit f83a8f0f8f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/aoptcpu.pas
View File

@ -1284,10 +1284,10 @@ Implementation
begin
{
change
<op> reg,x,y
<op> reg,x
cp reg,r1
into
<op>s reg,x,y
<op>s reg,x
}
{ 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 }
@ -1307,13 +1307,13 @@ Implementation
(taicpu(p).opcode = A_ANDI) and
(taicpu(p).oper[1]^.typ=top_const) and
(taicpu(hp1).oper[1]^.typ=top_const) and
(taicpu(p).oper[1]^.val=taicpu(hp1).oper[1]^.val))) and
(taicpu(hp1).oper[1]^.val=0))) and
GetNextInstruction(hp1, hp2) and
{ be careful here, following instructions could use other flags
however after a jump fpc never depends on the value of flags }
{ All above instructions set Z and N according to the following
Z := result = 0;
N := result[31];
N := result[7];
EQ = Z=1; NE = Z=0;
MI = N=1; PL = N=0; }
MatchInstruction(hp2, A_BRxx) and