From 621cccba3f8b0cd2757feda171e66e3820b55c2c Mon Sep 17 00:00:00 2001
From: Patrick Bernardi <bernardi@adacore.com>
Date: Fri, 12 Nov 2021 20:01:20 -0500
Subject: [PATCH] [Ada] RTEMS: add traceback support for AArch64

gcc/ada/

	* tracebak.c: Add AArch64 RTEMS support.
---
 gcc/ada/tracebak.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 4f1699f..8fa5608 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -551,6 +551,18 @@ is_return_from(void *symbol_addr, void *ret_addr)
 #error Unhandled QNX architecture.
 #endif
 
+/*---------------------------- RTEMS ---------------------------------*/
+
+#elif defined (__rtems__)
+
+#define USE_GCC_UNWINDER
+
+#if defined (__aarch64__)
+#define PC_ADJUST -4
+#else
+#error Unhandled RTEMS architecture.
+#endif
+
 /*------------------- aarch64-linux ----------------------------------*/
 
 #elif (defined (__aarch64__) && defined (__linux__))
-- 
2.7.4