From: Eric Botcazou <ebotcazou@adacore.com>
Date: Fri, 25 Nov 2022 22:11:27 +0000 (+0100)
Subject: ada: Add PIE support to backtraces on Linux
X-Git-Tag: basepoints/gcc-14~2848
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f2b30a724e6bf7ff8e591b176967d596cee7648e;p=thirdparty%2Fgcc.git

ada: Add PIE support to backtraces on Linux

gcc/ada/

	* adaint.c [Linux]: Include <link.h>.
	(__gnat_get_executable_load_address) [Linux]: Enable.
---

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 199dbe0e4052..d2604ca9b774 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -3524,6 +3524,8 @@ __gnat_cpu_set (int cpu, size_t count ATTRIBUTE_UNUSED, cpu_set_t *set)
 
 #if defined (__APPLE__)
 #include <mach-o/dyld.h>
+#elif defined (__linux__)
+#include <link.h>
 #endif
 
 const void *
@@ -3532,10 +3534,8 @@ __gnat_get_executable_load_address (void)
 #if defined (__APPLE__)
   return _dyld_get_image_header (0);
 
-#elif 0 && defined (__linux__)
-  /* Currently disabled as it needs at least -ldl.  */
+#elif defined (__linux__)
   struct link_map *map = _r_debug.r_map;
-
   return (const void *)map->l_addr;
 
 #elif defined (_WIN32)