[gcc r13-4359] ada: Add PIE support to backtraces on Linux

[gcc r13-4359] ada: Add PIE support to backtraces on Linux

[Marc Poulhi?s]

https://gcc.gnu.org/g:f2b30a724e6bf7ff8e591b176967d596cee7648e

commit r13-4359-gf2b30a724e6bf7ff8e591b176967d596cee7648e
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Fri Nov 25 23:11:27 2022 +0100

    ada: Add PIE support to backtraces on Linux
    
    gcc/ada/
    
            * adaint.c [Linux]: Include <link.h>.
            (__gnat_get_executable_load_address) [Linux]: Enable.

Diff:
---
 gcc/ada/adaint.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 199dbe0e405..d2604ca9b77 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)