contrib/gdb-6.2.1/gdb/xcoffsolib.c

   1 /* Shared library support for RS/6000 (xcoff) object files, for GDB.
   2    Copyright 1991, 1992, 1995, 1996, 1999, 2000, 2001
   3    Free Software Foundation, Inc.
   4    Contributed by IBM Corporation.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 59 Temple Place - Suite 330,
  21    Boston, MA 02111-1307, USA.  */
  22
  23 #include "defs.h"
  24 #include "bfd.h"
  25 #include "xcoffsolib.h"
  26 #include "inferior.h"
  27 #include "gdbcmd.h"
  28 #include "symfile.h"
  29 #include "frame.h"
  30 #include "gdb_regex.h"
  31
  32
  33 /* If ADDR lies in a shared library, return its name.
  34    Note that returned name points to static data whose content is overwritten
  35    by each call.  */
  36
  37 char *
  38 xcoff_solib_address (CORE_ADDR addr)
  39 {
  40   static char *buffer = NULL;
  41   struct vmap *vp = vmap;
  42
  43   /* The first vmap entry is for the exec file.  */
  44
  45   if (vp == NULL)
  46     return NULL;
  47   for (vp = vp->nxt; vp; vp = vp->nxt)
  48     if (vp->tstart <= addr && addr < vp->tend)
  49       {
  50         xfree (buffer);
  51         buffer = xstrprintf ("%s%s%s%s",
  52                              vp->name,
  53                              *vp->member ? "(" : "",
  54                              vp->member,
  55                              *vp->member ? ")" : "");
  56         return buffer;
  57       }
  58   return NULL;
  59 }
  60
  61 static void solib_info (char *, int);
  62 static void sharedlibrary_command (char *pattern, int from_tty);
  63
  64 static void
  65 solib_info (char *args, int from_tty)
  66 {
  67   struct vmap *vp = vmap;
  68
  69   /* Check for new shared libraries loaded with load ().  */
  70   if (! ptid_equal (inferior_ptid, null_ptid))
  71     xcoff_relocate_symtab (PIDGET (inferior_ptid));
  72
  73   if (vp == NULL || vp->nxt == NULL)
  74     {
  75       printf_unfiltered ("No shared libraries loaded at this time.\n");
  76       return;
  77     }
  78
  79   /* Skip over the first vmap, it is the main program, always loaded.  */
  80   vp = vp->nxt;
  81
  82   printf_unfiltered ("\
  83 Text Range              Data Range              Syms    Shared Object Library\n");
  84
  85   for (; vp != NULL; vp = vp->nxt)
  86     {
  87       printf_unfiltered ("0x%s-0x%s     0x%s-0x%s       %s      %s%s%s%s\n",
  88                          paddr (vp->tstart),paddr (vp->tend),
  89                          paddr (vp->dstart), paddr (vp->dend),
  90                          vp->loaded ? "Yes" : "No ",
  91                          vp->name,
  92                          *vp->member ? "(" : "",
  93                          vp->member,
  94                          *vp->member ? ")" : "");
  95     }
  96 }
  97
  98 static void
  99 sharedlibrary_command (char *pattern, int from_tty)
 100 {
 101   dont_repeat ();
 102
 103   /* Check for new shared libraries loaded with load ().  */
 104   if (! ptid_equal (inferior_ptid, null_ptid))
 105     xcoff_relocate_symtab (PIDGET (inferior_ptid));
 106
 107   if (pattern)
 108     {
 109       char *re_err = re_comp (pattern);
 110
 111       if (re_err)
 112         error ("Invalid regexp: %s", re_err);
 113     }
 114
 115   /* Walk the list of currently loaded shared libraries, and read
 116      symbols for any that match the pattern --- or any whose symbols
 117      aren't already loaded, if no pattern was given.  */
 118   {
 119     int any_matches = 0;
 120     int loaded_any_symbols = 0;
 121     struct vmap *vp = vmap;
 122
 123     if (!vp)
 124       return;
 125
 126     /* skip over the first vmap, it is the main program, always loaded. */
 127     for (vp = vp->nxt; vp; vp = vp->nxt)
 128       if (! pattern
 129             || re_exec (vp->name)
 130             || (*vp->member && re_exec (vp->member)))
 131         {
 132           any_matches = 1;
 133
 134           if (vp->loaded)
 135             {
 136               if (from_tty)
 137                 printf_unfiltered ("Symbols already loaded for %s\n",
 138                                    vp->name);
 139             }
 140           else
 141             {
 142               if (vmap_add_symbols (vp))
 143                 loaded_any_symbols = 1;
 144             }
 145         }
 146
 147     if (from_tty && pattern && ! any_matches)
 148       printf_unfiltered
 149         ("No loaded shared libraries match the pattern `%s'.\n", pattern);
 150
 151     if (loaded_any_symbols)
 152       {
 153         /* Getting new symbols may change our opinion about what is
 154            frameless.  */
 155         reinit_frame_cache ();
 156       }
 157   }
 158 }
 159
 160 /* LOCAL FUNCTION
 161
 162    no_shared_libraries -- handle command to explicitly discard symbols
 163    from shared libraries.
 164
 165    DESCRIPTION
 166
 167    Implements the command "nosharedlibrary", which discards symbols
 168    that have been auto-loaded from shared libraries.  Symbols from
 169    shared libraries that were added by explicit request of the user
 170    are not discarded.  Also called from remote.c.  */
 171
 172 void
 173 no_shared_libraries (char *ignored, int from_tty)
 174 {
 175   /* FIXME */
 176 }
 177
 178 void
 179 _initialize_xcoffsolib (void)
 180 {
 181   add_com ("sharedlibrary", class_files, sharedlibrary_command,
 182            "Load shared object library symbols for files matching REGEXP.");
 183   add_info ("sharedlibrary", solib_info,
 184             "Status of loaded shared object libraries");
 185
 186   add_show_from_set
 187     (add_set_cmd ("auto-solib-add", class_support, var_boolean,
 188                   (char *) &auto_solib_add,
 189                   "Set autoloading of shared library symbols.\n\
 190 If \"on\", symbols from all shared object libraries will be loaded\n\
 191 automatically when the inferior begins execution, when the dynamic linker\n\
 192 informs gdb that a new library has been loaded, or when attaching to the\n\
 193 inferior.  Otherwise, symbols must be loaded manually, using `sharedlibrary'.",
 194                   &setlist),
 195      &showlist);
 196 }