2005-01-17 Kelley Cook <kcook@gcc.gnu.org>

[deliverable/binutils-gdb.git] / gdb / solib-pa64.c

diff --git a/gdb/solib-pa64.c b/gdb/solib-pa64.c
index 9f541049538518ab0bfb5aa06da34e011f1fb1c0..f18c992301b1748e904f16f4f26c7668c5e6558e 100644 (file)
--- a/gdb/solib-pa64.c
+++ b/gdb/solib-pa64.c
@@ -31,9 +31,6 @@
    same functionality in all their libraries!  */
 
 #include "defs.h"
-#include <dlfcn.h>
-#include <elf.h>
-#include <elf_hp.h>
 #include "symtab.h"
 #include "bfd.h"
 #include "symfile.h"
@@ -51,6 +48,11 @@
 /* If we are building for a SOM-only target, then we don't need this.  */
 #ifndef PA_SOM_ONLY
 
+/* FIXME: kettenis/20041213: These includes should be eliminated.  */
+#include <dlfcn.h>
+#include <elf.h>
+#include <elf_hp.h>
+
 struct lm_info {
   struct load_module_desc desc;
   CORE_ADDR desc_addr;
@@ -79,6 +81,23 @@ static void
 pa64_relocate_section_addresses (struct so_list *so,
                                 struct section_table *sec)
 {
+  asection *asec = sec->the_bfd_section;
+  CORE_ADDR load_offset;
+
+  /* Relocate all the sections based on where they got loaded.  */
+
+  load_offset = bfd_section_vma (so->abfd, asec) - asec->filepos;
+
+  if (asec->flags & SEC_CODE)
+    {
+      sec->addr += so->lm_info->desc.text_base - load_offset;
+      sec->endaddr += so->lm_info->desc.text_base - load_offset;
+    }
+  else if (asec->flags & SEC_DATA)
+    {
+      sec->addr += so->lm_info->desc.data_base - load_offset;
+      sec->endaddr += so->lm_info->desc.data_base - load_offset;
+    }
 }
 
 static void
@@ -438,13 +457,16 @@ pa64_current_sos (void)
             "breakpoint in a shared library will not work until you rerun "
             "the program.\n");
 
-  for (dll_index = 1; ; dll_index++)
+  for (dll_index = -1; ; dll_index++)
     {
       struct load_module_desc dll_desc;
       char *dll_path;
       struct so_list *new;
       struct cleanup *old_chain;
 
+      if (dll_index == 0)
+        continue;
+
       /* Read in the load module descriptor.  */
       if (dlgetmodinfo (dll_index, &dll_desc, sizeof (dll_desc),
                        pa64_target_read_memory, 0, dld_cache.load_map)
@@ -456,9 +478,6 @@ pa64_current_sos (void)
                            pa64_target_read_memory,
                            0, dld_cache.load_map);
 
-      if (dll_path == NULL)
-        dll_path = "";
-
       new = (struct so_list *) xmalloc (sizeof (struct so_list));
       memset (new, 0, sizeof (struct so_list));
       new->lm_info = (struct lm_info *) xmalloc (sizeof (struct lm_info));
@@ -564,9 +583,9 @@ pa64_solib_get_got_by_pc (CORE_ADDR addr)
          && ((so_list->lm_info->desc.text_base
               + so_list->lm_info->desc.text_size)
              > addr))
-       {
+        {
          got_value = so_list->lm_info->desc.linkage_ptr;
-         break;
+         break;
        }
       so_list = so_list->next;
     }
@@ -582,9 +601,7 @@ pa64_solib_thread_start_addr (struct so_list *so)
 
 
 /* Return the address of the handle of the shared library in which ADDR
-   belongs.  If ADDR isn't in any known shared library, return zero. 
-
-   This function is used in hppa_fix_call_dummy in hppa-tdep.c.  */
+   belongs.  If ADDR isn't in any known shared library, return zero.  */
 
 static CORE_ADDR
 pa64_solib_get_solib_by_pc (CORE_ADDR addr)
@@ -607,6 +624,22 @@ pa64_solib_get_solib_by_pc (CORE_ADDR addr)
   return retval;
 }
 
+/* pa64 libraries do not seem to set the section offsets in a standard (i.e. 
+   SVr4) way; the text section offset stored in the file doesn't correspond
+   to the place where the library is actually loaded into memory.  Instead,
+   we rely on the dll descriptor to tell us where things were loaded.  */
+static CORE_ADDR
+pa64_solib_get_text_base (struct objfile *objfile)
+{
+  struct so_list *so;
+
+  for (so = master_so_list (); so; so = so->next)
+    if (so->objfile == objfile)
+      return so->lm_info->desc.text_base;
+  
+  return 0;
+}
+
 static struct target_so_ops pa64_so_ops;
 
 extern initialize_file_ftype _initialize_pa64_solib; /* -Wmissing-prototypes */
@@ -633,6 +666,7 @@ void pa64_solib_select (struct gdbarch_tdep *tdep)
   tdep->solib_thread_start_addr = pa64_solib_thread_start_addr;
   tdep->solib_get_got_by_pc = pa64_solib_get_got_by_pc;
   tdep->solib_get_solib_by_pc = pa64_solib_get_solib_by_pc;
+  tdep->solib_get_text_base = pa64_solib_get_text_base;
 }
 
 #else /* PA_SOM_ONLY */