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

* a64: Fix where hp1's was assumed to be an instruction and not actually checked

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-05-15 17:01:35 +01:00 committed by Pierre Muller
parent 41704feab4
commit 27db63969a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aarch64/aoptcpu.pas
View File

@ -532,6 +532,8 @@ Implementation
else if GetNextInstruction(p, hp1) and
(taicpu(p).ops=2) and
{ Faster to get it out of the way than go through MatchInstruction }
(hp1.typ=ait_instruction) and
(taicpu(hp1).ops=3) and
MatchInstruction(hp1,[A_ADD,A_SUB],[taicpu(p).condition], [PF_None,PF_S]) and
(getsubreg(taicpu(p).oper[0]^.reg)=R_SUBD) and