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

* use cg.a_jmp_flags in TZ80AddNode.second_cmp

Browse Source 
git-svn-id: branches/z80@44984 -
This commit is contained in:
nickysn 2020-04-22 01:20:54 +00:00
parent fec0f346f1
commit 8a3847e1b2
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/z80/nz80add.pas
View File

@ -207,7 +207,6 @@ interface
i : longint;
opdef: tdef;
opsize: TCgSize;
ai: taicpu;
l: TAsmLabel;
begin
unsigned:=not(is_signed(left.resultdef)) or
@ -303,9 +302,7 @@ interface
internalerror(2020040402);
end;
current_asmdata.getjumplabel(l);
ai:=taicpu.op_cond_sym(A_JP,C_PO,l);
ai.is_jmp:=true;
current_asmdata.CurrAsmList.concat(ai);
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_PO,l);
current_asmdata.CurrAsmList.Concat(taicpu.op_reg_const(A_XOR,NR_A,$80));
cg.a_label(current_asmdata.CurrAsmList,l);
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_A);