From bff3feae7b3f8d281ea8d61062b4b3daf0848742 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 23 Feb 2015 22:54:34 +0000
Subject: [PATCH]   + AArch64 support

git-svn-id: trunk@29948 -
---
 tests/tbs/tb0193.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/tbs/tb0193.pp b/tests/tbs/tb0193.pp
index 6097cef5b7..eac485b326 100644
--- a/tests/tbs/tb0193.pp
+++ b/tests/tbs/tb0193.pp
@@ -57,6 +57,12 @@ end;
  end;
 {$define implemented}
 {$endif cpumips}
+{$ifdef cpuaarch64}
+  adrp x0,stacksize@PAGE
+  ldr  x0,[x0,stacksize@PAGEOFF]
+end;
+{$define implemented}   
+{$endif cpuaarch64}
 {$ifndef implemented}
  {$error This test does not supported this CPU}
 end;