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
37char *
38xcoff_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	xasprintf (&buffer, "%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
61static void solib_info (char *, int);
62static void sharedlibrary_command (char *pattern, int from_tty);
63
64static void
65solib_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 ("\
83Text 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
98static void
99sharedlibrary_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
172void
173no_shared_libraries (char *ignored, int from_tty)
174{
175  /* FIXME */
176}
177
178void
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\
190If \"on\", symbols from all shared object libraries will be loaded\n\
191automatically when the inferior begins execution, when the dynamic linker\n\
192informs gdb that a new library has been loaded, or when attaching to the\n\
193inferior.  Otherwise, symbols must be loaded manually, using `sharedlibrary'.",
194		  &setlist),
195     &showlist);
196}
197