[ia64-hpux] inferior function call support

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

diff --git a/gdb/xcoffsolib.c b/gdb/xcoffsolib.c
index 3876a426239e5fb787842779fe2940340fa0e3a1..0915439e3a54ffab1931bceb0d11c7b8c1a90fd2 100644 (file)
--- a/gdb/xcoffsolib.c
+++ b/gdb/xcoffsolib.c
@@ -1,12 +1,13 @@
 /* Shared library support for RS/6000 (xcoff) object files, for GDB.
 /* Shared library support for RS/6000 (xcoff) object files, for GDB.

-   Copyright 1991, 1992 Free Software Foundation.
+   Copyright (C) 1991, 1992, 1995, 1996, 1999, 2000, 2001, 2007, 2008, 2009,
+   2010, 2011 Free Software Foundation, Inc.

    Contributed by IBM Corporation.
 
    This file is part of GDB.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    Contributed by IBM Corporation.
 
    This file is part of GDB.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by

-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or

    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,


@@ -15,9 +16,7 @@
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License

-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

 
 #include "defs.h"
 #include "bfd.h"
 
 #include "defs.h"
 #include "bfd.h"


@@ -29,29 +28,32 @@
 #include "gdb_regex.h"
 
 
 #include "gdb_regex.h"
 
 

-/* Return the module name of a given text address. Note that returned buffer
-   is not persistent. */
+/* If ADDR lies in a shared library, return its name.
+   Note that returned name points to static data whose content is overwritten
+   by each call.  */

 
 char *
 
 char *

-pc_load_segment_name (CORE_ADDR addr)
+xcoff_solib_address (CORE_ADDR addr)

 {
 {

-  static char buffer[BUFSIZ];
+  static char *buffer = NULL;

   struct vmap *vp = vmap;
 
   struct vmap *vp = vmap;
 

-  buffer[0] = buffer[1] = '\0';
-  for (; vp; vp = vp->nxt)
+  /* The first vmap entry is for the exec file.  */
+
+  if (vp == NULL)
+    return NULL;
+  for (vp = vp->nxt; vp; vp = vp->nxt)

     if (vp->tstart <= addr && addr < vp->tend)
       {
     if (vp->tstart <= addr && addr < vp->tend)
       {

-       if (*vp->member)
-         {
-           buffer[0] = '(';
-           strcat (&buffer[1], vp->member);
-           strcat (buffer, ")");
-         }
-       strcat (buffer, vp->name);
+       xfree (buffer);
+       buffer = xstrprintf ("%s%s%s%s",
+                            vp->name,
+                            *vp->member ? "(" : "",
+                            vp->member,
+                            *vp->member ? ")" : "");

        return buffer;
       }
        return buffer;
       }

-  return "(unknown load module)";
+  return NULL;

 }
 
 static void solib_info (char *, int);
 }
 
 static void solib_info (char *, int);


@@ -60,11 +62,12 @@ static void sharedlibrary_command (char *pattern, int from_tty);
 static void
 solib_info (char *args, int from_tty)
 {
 static void
 solib_info (char *args, int from_tty)
 {

+  int addr_size = gdbarch_addr_bit (target_gdbarch) / 8;

   struct vmap *vp = vmap;
 
   /* Check for new shared libraries loaded with load ().  */
   struct vmap *vp = vmap;
 
   /* Check for new shared libraries loaded with load ().  */

-  if (inferior_pid)
-    xcoff_relocate_symtab (inferior_pid);
+  if (! ptid_equal (inferior_ptid, null_ptid))
+    xcoff_relocate_symtab (PIDGET (inferior_ptid));

 
   if (vp == NULL || vp->nxt == NULL)
     {
 
   if (vp == NULL || vp->nxt == NULL)
     {


@@ -75,19 +78,21 @@ solib_info (char *args, int from_tty)
   /* Skip over the first vmap, it is the main program, always loaded.  */
   vp = vp->nxt;
 
   /* Skip over the first vmap, it is the main program, always loaded.  */
   vp = vp->nxt;
 

-  printf_unfiltered ("\
-Text Range             Data Range              Syms    Shared Object Library\n");
+  printf_unfiltered ("Text Range               Data Range              "
+                    "Syms      Shared Object Library\n");

 
   for (; vp != NULL; vp = vp->nxt)
     {
       printf_unfiltered ("0x%s-0x%s    0x%s-0x%s       %s      %s%s%s%s\n",
 
   for (; vp != NULL; vp = vp->nxt)
     {
       printf_unfiltered ("0x%s-0x%s    0x%s-0x%s       %s      %s%s%s%s\n",

-                        paddr (vp->tstart),paddr (vp->tend),
-                        paddr (vp->dstart), paddr (vp->dend),
+                        phex (vp->tstart, addr_size),
+                        phex (vp->tend, addr_size),
+                        phex (vp->dstart, addr_size),
+                        phex (vp->dend, addr_size),

                         vp->loaded ? "Yes" : "No ",
                         vp->loaded ? "Yes" : "No ",

+                        vp->name,

                         *vp->member ? "(" : "",
                         vp->member,
                         *vp->member ? "(" : "",
                         vp->member,

-                        *vp->member ? ") " : "",
-                        vp->name);
+                        *vp->member ? ")" : "");

     }
 }
 
     }
 }
 


@@ -97,15 +102,15 @@ sharedlibrary_command (char *pattern, int from_tty)
   dont_repeat ();
 
   /* Check for new shared libraries loaded with load ().  */
   dont_repeat ();
 
   /* Check for new shared libraries loaded with load ().  */

-  if (inferior_pid)
-    xcoff_relocate_symtab (inferior_pid);
+  if (! ptid_equal (inferior_ptid, null_ptid))
+    xcoff_relocate_symtab (PIDGET (inferior_ptid));

 
   if (pattern)
     {
       char *re_err = re_comp (pattern);
 
       if (re_err)
 
   if (pattern)
     {
       char *re_err = re_comp (pattern);
 
       if (re_err)

-       error ("Invalid regexp: %s", re_err);
+       error (_("Invalid regexp: %s"), re_err);

     }
 
   /* Walk the list of currently loaded shared libraries, and read
     }
 
   /* Walk the list of currently loaded shared libraries, and read


@@ -119,7 +124,7 @@ sharedlibrary_command (char *pattern, int from_tty)
     if (!vp)
       return;
 
     if (!vp)
       return;
 

-    /* skip over the first vmap, it is the main program, always loaded. */
+    /* skip over the first vmap, it is the main program, always loaded.  */

     for (vp = vp->nxt; vp; vp = vp->nxt)
       if (! pattern
            || re_exec (vp->name)
     for (vp = vp->nxt; vp; vp = vp->nxt)
       if (! pattern
            || re_exec (vp->name)


@@ -154,21 +159,23 @@ sharedlibrary_command (char *pattern, int from_tty)
 }
 
 void
 }
 
 void

-_initialize_solib (void)
+_initialize_xcoffsolib (void)

 {
   add_com ("sharedlibrary", class_files, sharedlibrary_command,
 {
   add_com ("sharedlibrary", class_files, sharedlibrary_command,

-          "Load shared object library symbols for files matching REGEXP.");
+          _("Load shared object library symbols for files matching REGEXP."));

   add_info ("sharedlibrary", solib_info,
   add_info ("sharedlibrary", solib_info,

-           "Status of loaded shared object libraries");
-
-  add_show_from_set
-    (add_set_cmd ("auto-solib-add", class_support, var_zinteger,
-                 (char *) &auto_solib_add,
-                 "Set autoloading of shared library symbols.\n\
-If nonzero, symbols from all shared object libraries will be loaded\n\
-automatically when the inferior begins execution or when the dynamic linker\n\
-informs gdb that a new library has been loaded.  Otherwise, symbols\n\
-must be loaded manually, using `sharedlibrary'.",
-                 &setlist),
-     &showlist);
+           _("Status of loaded shared object libraries"));
+
+  add_setshow_boolean_cmd ("auto-solib-add", class_support,
+                          &auto_solib_add, _("\
+Set autoloading of shared library symbols."), _("\
+Show autoloading of shared library symbols."), _("\
+If \"on\", symbols from all shared object libraries will be loaded\n\
+automatically when the inferior begins execution, when the dynamic linker\n\
+informs gdb that a new library has been loaded, or when attaching to the\n\
+inferior.  Otherwise, symbols must be loaded manually, using \
+`sharedlibrary'."),
+                          NULL,
+                          NULL, /* FIXME: i18n: */
+                          &setlist, &showlist);

 }
 }