[Ada] Implement stack unwinding for Linux on AArch64

2018-05-25  Doug Rupp  <rupp@adacore.com>

gcc/ada/

	* tracebak.c (aarch64-linux): Implement.

From-SVN: r260730

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 35fba035625ac15c93e860644fe7e46dbcfed83e..d1cf7a9b66eb9421ab1dd2580f33bf7b182eb1a2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-25  Doug Rupp  <rupp@adacore.com>
+
+       * tracebak.c (aarch64-linux): Implement.
+
 2018-05-25  Justin Squirek  <squirek@adacore.com>
 
        * sem_ch8.adb: Minor reformatting.

diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index fe63bc385d57422e3f748969140e625949195579..1f41810bbfbfeb7e1e1b1efa756d287110ec0adb 100644 (file)
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -516,6 +516,13 @@ struct layout
 #error Unhandled QNX architecture.
 #endif
 
+/*------------------- aarch64-linux ----------------------------------*/
+
+#elif (defined (__aarch64__) && defined (__linux__))
+
+#define USE_GCC_UNWINDER
+#define PC_ADJUST -4
+
 /*----------------------------- ia64 ---------------------------------*/
 
 #elif defined (__ia64__) && (defined (__linux__) || defined (__hpux__))