paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-16 18:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed IsJumpToLabelUncond for the Z80

Browse Source 
git-svn-id: trunk@45397 -
This commit is contained in:
nickysn 2020-05-17 11:35:42 +00:00
parent e928f402fc
commit b54d9cfecb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptobj.pas
View File

@ -1562,9 +1562,9 @@ Unit AoptObj;
{$else avr} {$else avr}
result:=(hp.opcode=aopt_uncondjmp) and result:=(hp.opcode=aopt_uncondjmp) and
{$endif avr} {$endif avr}
{$if defined(arm) or defined(aarch64)} {$if defined(arm) or defined(aarch64) or defined(z80)}
(hp.condition=c_None) and (hp.condition=c_None) and
{$endif arm or aarch64} {$endif arm or aarch64 or z80}
(hp.ops>0) and (hp.ops>0) and
{$if defined(riscv32) or defined(riscv64)} {$if defined(riscv32) or defined(riscv64)}
(hp.oper[0]^.reg=NR_X0) and (hp.oper[0]^.reg=NR_X0) and