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

+ implemented tcgz80.a_jmp_flags

Browse Source 
git-svn-id: branches/z80@44574 -
This commit is contained in:
nickysn 2020-04-04 17:07:54 +00:00
parent ff655543ed
commit 3ed692a157
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/z80/cgcpu.pas
View File

@ -1382,8 +1382,7 @@ unit cgcpu;
var
ai : taicpu;
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_jmp_flags')));
// ai:=setcondition(taicpu.op_sym(A_BRxx,l),flags_to_cond(f));
ai:=taicpu.op_cond_sym(A_JP,flags_to_cond(f),l);
ai.is_jmp:=true;
list.concat(ai);
end;