]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gdb/xcoffsolib.c
Copyright updates for 2007.
[thirdparty/binutils-gdb.git] / gdb / xcoffsolib.c
1 /* Shared library support for RS/6000 (xcoff) object files, for GDB.
2 Copyright (C) 1991, 1992, 1995, 1996, 1999, 2000, 2001, 2007
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., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, 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 void
161 _initialize_xcoffsolib (void)
162 {
163 add_com ("sharedlibrary", class_files, sharedlibrary_command,
164 _("Load shared object library symbols for files matching REGEXP."));
165 add_info ("sharedlibrary", solib_info,
166 _("Status of loaded shared object libraries"));
167
168 add_setshow_boolean_cmd ("auto-solib-add", class_support,
169 &auto_solib_add, _("\
170 Set autoloading of shared library symbols."), _("\
171 Show autoloading of shared library symbols."), _("\
172 If \"on\", symbols from all shared object libraries will be loaded\n\
173 automatically when the inferior begins execution, when the dynamic linker\n\
174 informs gdb that a new library has been loaded, or when attaching to the\n\
175 inferior. Otherwise, symbols must be loaded manually, using `sharedlibrary'."),
176 NULL,
177 NULL, /* FIXME: i18n: */
178 &setlist, &showlist);
179 }