* inftarg.c (child_thread_alive): New function to see if a

[deliverable/binutils-gdb.git] / gdb / somsolib.c

diff --git a/gdb/somsolib.c b/gdb/somsolib.c
index 91b0e0ccc09d1160697269e80110cc74b1c02332..8b5fc52b232d8b9258205da6fea44359ebd55da9 100644 (file)
--- a/gdb/somsolib.c
+++ b/gdb/somsolib.c
@@ -33,12 +33,10 @@ and by Cygnus Support.  */
 #include "symfile.h"
 #include "objfiles.h"
 #include "inferior.h"
+#include "gdb-stabs.h"
 
 /* TODO:
 
-   * Access to static (file scoped) variables in shared libraries
-   still doesn't work.
-
    * Most of this code should work for hp300 shared libraries.  Does
    anyone care enough to weed out any SOM-isms.
 
@@ -115,7 +113,13 @@ som_solib_add (arg_string, from_tty, target)
   asection *shlib_info;
   int status;
   unsigned int dld_flags;
-  char buf[4];
+  char buf[4], *re_err;
+
+  /* First validate our arguments.  */
+  if ((re_err = re_comp (arg_string ? arg_string : ".")) != NULL)
+    {
+      error ("Invalid regexp: %s", re_err);
+    }
 
   /* If we're debugging a core file, or have attached to a running
      process, then som_solib_create_inferior_hook will not have been
@@ -214,14 +218,7 @@ som_solib_add (arg_string, from_tty, target)
   addr = extract_unsigned_integer (buf, 4);
 
   /* Now that we have a pointer to the dynamic library list, walk
-     through it and add the symbols for each library.
-
-     Skip the first entry since it's our executable.  */
-  status = target_read_memory (addr + 36, buf, 4);
-  if (status != 0)
-    goto err;
-
-  addr = extract_unsigned_integer (buf, 4);
+     through it and add the symbols for each library.  */
 
   so_list_tail = so_list_head;
   /* Find the end of the list of shared objects.  */
@@ -234,6 +231,7 @@ som_solib_add (arg_string, from_tty, target)
       unsigned int name_len;
       char *name;
       struct so_list *new_so;
+      struct so_list *so_list = so_list_head;
       struct section_table *p;
 
       if (addr == 0)
@@ -261,6 +259,25 @@ som_solib_add (arg_string, from_tty, target)
       if (status != 0)
        goto err;
 
+      /* See if we've already loaded something with this name.  */
+      while (so_list)
+       {
+         if (!strcmp (so_list->som_solib.name, name))
+           break;
+         so_list = so_list->next;
+       }
+
+      /* We've already loaded this one or it's the main program, skip it.  */
+      if (so_list || !strcmp (name, symfile_objfile->name))
+       {
+         status = target_read_memory (addr + 36, buf, 4);
+         if (status != 0)
+           goto err;
+
+         addr = (CORE_ADDR) extract_unsigned_integer (buf, 4);
+         continue;
+       }
+
       name = obsavestring (name, name_len - 1,
                           &symfile_objfile->symbol_obstack);
 
@@ -584,8 +601,11 @@ som_solib_section_offsets (objfile, offsets)
          asection *private_section;
 
          /* The text offset is easy.  */
-         ANOFFSET (offsets, 0) = (so_list->som_solib.text_addr
-                                  - so_list->som_solib.text_link_addr);
+         ANOFFSET (offsets, SECT_OFF_TEXT)
+           = (so_list->som_solib.text_addr
+              - so_list->som_solib.text_link_addr);
+         ANOFFSET (offsets, SECT_OFF_RODATA)
+           = ANOFFSET (offsets, SECT_OFF_TEXT);
 
          /* We should look at presumed_dp in the SOM header, but
             that's not easily available.  This should be OK though.  */
@@ -594,11 +614,14 @@ som_solib_section_offsets (objfile, offsets)
          if (!private_section)
            {
              warning ("Unable to find $PRIVATE$ in shared library!");
-             ANOFFSET (offsets, 1) = 0;
+             ANOFFSET (offsets, SECT_OFF_DATA) = 0;
+             ANOFFSET (offsets, SECT_OFF_BSS) = 0;
              return 1;
            }
-         ANOFFSET (offsets, 1) = (so_list->som_solib.data_start
-                                  - private_section->vma);
+         ANOFFSET (offsets, SECT_OFF_DATA)
+           = (so_list->som_solib.data_start - private_section->vma);
+         ANOFFSET (offsets, SECT_OFF_BSS)
+           = ANOFFSET (offsets, SECT_OFF_DATA);
          return 1;
        }
       so_list = so_list->next;
@@ -653,9 +676,20 @@ som_sharedlibrary_info_command (ignore, from_tty)
     }
 }
 
+static void
+som_solib_sharedlibrary_command (args, from_tty)
+     char *args;
+     int from_tty;
+{
+  dont_repeat ();
+  som_solib_add (args, from_tty, (struct target_ops *) 0);
+}
+
 void
 _initialize_som_solib ()
 {
+  add_com ("sharedlibrary", class_files, som_solib_sharedlibrary_command,
+           "Load shared object library symbols for files matching REGEXP.");
   add_info ("sharedlibrary", som_sharedlibrary_info_command,
            "Status of loaded shared object libraries.");
 }