From 3ed692a1575d4f4d878da5e292fefa75c797fb42 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 4 Apr 2020 17:07:54 +0000
Subject: [PATCH] + implemented tcgz80.a_jmp_flags

git-svn-id: branches/z80@44574 -
---
 compiler/z80/cgcpu.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas
index d4bca72ac1..4cd1c1fd1c 100644
--- a/compiler/z80/cgcpu.pas
+++ b/compiler/z80/cgcpu.pas
@@ -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;