1 /* Shared library support for RS/6000 (xcoff) object files, for GDB.
2 Copyright (C) 1991, 1992, 1995, 1996, 1999, 2000, 2001, 2007, 2008, 2009,
3 2010 Free Software Foundation, Inc.
4 Contributed by IBM Corporation.
6 This file is part of GDB.
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 3 of the License, or
11 (at your option) any later version.
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.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "xcoffsolib.h"
28 #include "gdb_regex.h"
31 /* If ADDR lies in a shared library, return its name.
32 Note that returned name points to static data whose content is overwritten
36 xcoff_solib_address (CORE_ADDR addr
)
38 static char *buffer
= NULL
;
39 struct vmap
*vp
= vmap
;
41 /* The first vmap entry is for the exec file. */
45 for (vp
= vp
->nxt
; vp
; vp
= vp
->nxt
)
46 if (vp
->tstart
<= addr
&& addr
< vp
->tend
)
49 buffer
= xstrprintf ("%s%s%s%s",
51 *vp
->member
? "(" : "",
53 *vp
->member
? ")" : "");
59 static void solib_info (char *, int);
60 static void sharedlibrary_command (char *pattern
, int from_tty
);
63 solib_info (char *args
, int from_tty
)
65 int addr_size
= gdbarch_addr_bit (target_gdbarch
) / 8;
66 struct vmap
*vp
= vmap
;
68 /* Check for new shared libraries loaded with load (). */
69 if (! ptid_equal (inferior_ptid
, null_ptid
))
70 xcoff_relocate_symtab (PIDGET (inferior_ptid
));
72 if (vp
== NULL
|| vp
->nxt
== NULL
)
74 printf_unfiltered ("No shared libraries loaded at this time.\n");
78 /* Skip over the first vmap, it is the main program, always loaded. */
82 Text Range Data Range Syms Shared Object Library\n");
84 for (; vp
!= NULL
; vp
= vp
->nxt
)
86 printf_unfiltered ("0x%s-0x%s 0x%s-0x%s %s %s%s%s%s\n",
87 phex (vp
->tstart
, addr_size
),
88 phex (vp
->tend
, addr_size
),
89 phex (vp
->dstart
, addr_size
),
90 phex (vp
->dend
, addr_size
),
91 vp
->loaded
? "Yes" : "No ",
93 *vp
->member
? "(" : "",
95 *vp
->member
? ")" : "");
100 sharedlibrary_command (char *pattern
, int from_tty
)
104 /* Check for new shared libraries loaded with load (). */
105 if (! ptid_equal (inferior_ptid
, null_ptid
))
106 xcoff_relocate_symtab (PIDGET (inferior_ptid
));
110 char *re_err
= re_comp (pattern
);
113 error (_("Invalid regexp: %s"), re_err
);
116 /* Walk the list of currently loaded shared libraries, and read
117 symbols for any that match the pattern --- or any whose symbols
118 aren't already loaded, if no pattern was given. */
121 int loaded_any_symbols
= 0;
122 struct vmap
*vp
= vmap
;
127 /* skip over the first vmap, it is the main program, always loaded. */
128 for (vp
= vp
->nxt
; vp
; vp
= vp
->nxt
)
130 || re_exec (vp
->name
)
131 || (*vp
->member
&& re_exec (vp
->member
)))
138 printf_unfiltered ("Symbols already loaded for %s\n",
143 if (vmap_add_symbols (vp
))
144 loaded_any_symbols
= 1;
148 if (from_tty
&& pattern
&& ! any_matches
)
150 ("No loaded shared libraries match the pattern `%s'.\n", pattern
);
152 if (loaded_any_symbols
)
154 /* Getting new symbols may change our opinion about what is
156 reinit_frame_cache ();
162 _initialize_xcoffsolib (void)
164 add_com ("sharedlibrary", class_files
, sharedlibrary_command
,
165 _("Load shared object library symbols for files matching REGEXP."));
166 add_info ("sharedlibrary", solib_info
,
167 _("Status of loaded shared object libraries"));
169 add_setshow_boolean_cmd ("auto-solib-add", class_support
,
170 &auto_solib_add
, _("\
171 Set autoloading of shared library symbols."), _("\
172 Show autoloading of shared library symbols."), _("\
173 If \"on\", symbols from all shared object libraries will be loaded\n\
174 automatically when the inferior begins execution, when the dynamic linker\n\
175 informs gdb that a new library has been loaded, or when attaching to the\n\
176 inferior. Otherwise, symbols must be loaded manually, using `sharedlibrary'."),
178 NULL
, /* FIXME: i18n: */
179 &setlist
, &showlist
);
This page took 0.032552 seconds and 4 git commands to generate.