From 883ca793d954435ee899cfb4eee004813da923a9 Mon Sep 17 00:00:00 2001
From: Blady <blady.net@orange.fr>
Date: Fri, 2 Dec 2022 22:17:01 +0100
Subject: [PATCH] Ensure that address randomization is not active for
 backtracking in debug mode for macOS / OSX / Darwin.

---
 shared.gpr.in | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/shared.gpr.in b/shared.gpr.in
index 274c808eeb..5951eb60fa 100644
--- a/shared.gpr.in
+++ b/shared.gpr.in
@@ -93,6 +93,19 @@ project Shared is
             null;
       end case;
 
+      case Build is
+         when "Debug" =>
+            case OS is
+               when "osx" =>
+                  --  This ensure that address randomization is not active for backtracking
+                  for Switches ("Ada") use Linker'Switches ("ada") & ("-Wl,-no_pie");
+               when others =>
+                  null;
+           end case;
+         when others =>
+            null;
+      end case;
+
       case Enable_LTO is
          when "true" =>
             case OS is