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

Avoid generation of invalid 'cb(n)z sp,label' instruction

Browse Source
This commit is contained in:
Pierre Muller 2023-01-02 18:22:49 +00:00
parent cfbdf90ab0
commit cd8aa3f0e0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/aarch64/aoptcpu.pas
View File

@ -996,6 +996,7 @@ Implementation
cb(n)z reg0,label
}
if MatchOpType(taicpu(p),top_reg,top_const) and
(taicpu(p).oper[0]^.reg<>NR_SP) and
(taicpu(p).oper[1]^.val=0) and
GetNextInstruction(p,hp1) and
MatchInstruction(hp1,A_B,[PF_None]) and