From 7395058cf3375880db19a614bb92d7de51537f5b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 14 May 2015 14:42:03 +0000
Subject: [PATCH]   * recognise tb(n)z as branch opcode (patch by Edmund
 Grimley Evans)

git-svn-id: trunk@30846 -
---
 compiler/aarch64/cpubase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/aarch64/cpubase.pas b/compiler/aarch64/cpubase.pas
index 84d78fdb36..7b3afd309f 100644
--- a/compiler/aarch64/cpubase.pas
+++ b/compiler/aarch64/cpubase.pas
@@ -429,7 +429,7 @@ unit cpubase;
 
     function is_calljmp(o:tasmop):boolean;{$ifdef USEINLINE}inline;{$endif USEINLINE}
       begin
-        is_calljmp:=o in [A_B,A_BL,A_BLR,A_RET,A_CBNZ,A_CBZ];
+        is_calljmp:=o in [A_B,A_BL,A_BLR,A_RET,A_CBNZ,A_CBZ,A_TBNZ,A_TBZ];
       end;