From 9ba4b38f6ac6d80130808943f20011ab8855695d Mon Sep 17 00:00:00 2001
From: Doug Rupp <rupp@adacore.com>
Date: Fri, 6 May 2022 15:28:49 -0700
Subject: [PATCH] [Ada] arm-qnx-7.1: unwind goes wrong after regs restore

Bump the pc +3 total for Thumb mode, the same calculation that as is
done for arm-linux.

gcc/ada/

	* init.c (__gnat_adjust_context_for_raise) [QNX][__thumb2__]: Bump
	the pc an extra byte.
---
 gcc/ada/init.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 7322a54a4da3..cfae740d64dc 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -2579,7 +2579,17 @@ __gnat_adjust_context_for_raise (int signo ATTRIBUTE_UNUSED,
   uintptr_t *pc_addr;
   mcontext_t *mcontext = &((ucontext_t *) sc)->uc_mcontext;
   pc_addr = (uintptr_t *)&mcontext->cpu.gpr [ARM_REG_PC];
+
+  /* ARM Bump has to be an even number because of odd/even architecture.  */
   *pc_addr += 2;
+#ifdef __thumb2__
+  /* For thumb, the return address must have the low order bit set, otherwise
+     the unwinder will reset to "arm" mode upon return.  As long as the
+     compilation unit containing the landing pad is compiled with the same
+     mode (arm vs thumb) as the signaling compilation unit, this works.  */
+  if (mcontext->cpu.spsr & ARM_CPSR_T)
+    *pc_addr += 1;
+#endif
 }
 #endif /* ARMEL */
 
-- 
GitLab