From d88da03e7da8bb0ee227a558db7f18a6cfa83942 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 26 May 2020 19:52:27 +0000
Subject: [PATCH] * z80: use the JRJP pseudo instruction to generate shorter
 code (it is   translated to JR wherever possible, otherwise to JP)

git-svn-id: trunk@45510 -
---
 compiler/z80/cgcpu.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas
index 6258c94a21..eeb899e013 100644
--- a/compiler/z80/cgcpu.pas
+++ b/compiler/z80/cgcpu.pas
@@ -1879,7 +1879,7 @@ unit cgcpu;
       var
         ai : taicpu;
       begin
-        ai:=taicpu.op_sym(A_JP,current_asmdata.RefAsmSymbol(s,AT_FUNCTION));
+        ai:=taicpu.op_sym(A_JRJP,current_asmdata.RefAsmSymbol(s,AT_FUNCTION));
         ai.is_jmp:=true;
         list.concat(ai);
       end;
@@ -1889,7 +1889,7 @@ unit cgcpu;
       var
         ai : taicpu;
       begin
-        ai:=taicpu.op_sym(A_JP,l);
+        ai:=taicpu.op_sym(A_JRJP,l);
         ai.is_jmp:=true;
         list.concat(ai);
       end;
@@ -1899,7 +1899,7 @@ unit cgcpu;
       var
         ai : taicpu;
       begin
-        ai:=taicpu.op_cond_sym(A_JP,flags_to_cond(f),l);
+        ai:=taicpu.op_cond_sym(A_JRJP,flags_to_cond(f),l);
         ai.is_jmp:=true;
         list.concat(ai);
       end;