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

m68k: also allow TST from before Sxx instructions with explicit .b size to be optimized away

Browse Source
This commit is contained in:
Karoly Balogh 2024-05-25 00:00:22 +03:00
parent 11246aa5b4
commit d9c786fee6
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/m68k/aoptcpu.pas
View File

@ -231,7 +231,7 @@ unit aoptcpu;
MatchInstruction(next,A_TST,[taicpu(p).opsize]) and MatchInstruction(next,A_TST,[taicpu(p).opsize]) and
MatchOperand(taicpu(p).oper[1]^,taicpu(next).oper[0]^) and MatchOperand(taicpu(p).oper[1]^,taicpu(next).oper[0]^) and
GetNextInstruction(next,next2) and GetNextInstruction(next,next2) and
MatchInstruction(next2,[A_BXX,A_SXX],[S_NO]) and MatchInstruction(next2,[A_BXX,A_SXX],[S_NO,S_B]) and
(taicpu(next2).condition in [C_NE,C_EQ,C_PL,C_MI]) then (taicpu(next2).condition in [C_NE,C_EQ,C_PL,C_MI]) then
begin begin
opstr:=opname(p); opstr:=opname(p);