1*cf7f2e2dSJohn Marino /* Definitions for targets which report shared library events. 2*cf7f2e2dSJohn Marino 3*cf7f2e2dSJohn Marino Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4*cf7f2e2dSJohn Marino 5*cf7f2e2dSJohn Marino This file is part of GDB. 6*cf7f2e2dSJohn Marino 7*cf7f2e2dSJohn Marino This program is free software; you can redistribute it and/or modify 8*cf7f2e2dSJohn Marino it under the terms of the GNU General Public License as published by 9*cf7f2e2dSJohn Marino the Free Software Foundation; either version 3 of the License, or 10*cf7f2e2dSJohn Marino (at your option) any later version. 11*cf7f2e2dSJohn Marino 12*cf7f2e2dSJohn Marino This program is distributed in the hope that it will be useful, 13*cf7f2e2dSJohn Marino but WITHOUT ANY WARRANTY; without even the implied warranty of 14*cf7f2e2dSJohn Marino MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15*cf7f2e2dSJohn Marino GNU General Public License for more details. 16*cf7f2e2dSJohn Marino 17*cf7f2e2dSJohn Marino You should have received a copy of the GNU General Public License 18*cf7f2e2dSJohn Marino along with this program. If not, see <http://www.gnu.org/licenses/>. */ 19*cf7f2e2dSJohn Marino 20*cf7f2e2dSJohn Marino #include "defs.h" 21*cf7f2e2dSJohn Marino #include "objfiles.h" 22*cf7f2e2dSJohn Marino #include "solist.h" 23*cf7f2e2dSJohn Marino #include "symtab.h" 24*cf7f2e2dSJohn Marino #include "symfile.h" 25*cf7f2e2dSJohn Marino #include "target.h" 26*cf7f2e2dSJohn Marino #include "vec.h" 27*cf7f2e2dSJohn Marino #include "solib-target.h" 28*cf7f2e2dSJohn Marino 29*cf7f2e2dSJohn Marino #include "gdb_string.h" 30*cf7f2e2dSJohn Marino 31*cf7f2e2dSJohn Marino DEF_VEC_O(CORE_ADDR); 32*cf7f2e2dSJohn Marino 33*cf7f2e2dSJohn Marino /* Private data for each loaded library. */ 34*cf7f2e2dSJohn Marino struct lm_info 35*cf7f2e2dSJohn Marino { 36*cf7f2e2dSJohn Marino /* The library's name. The name is normally kept in the struct 37*cf7f2e2dSJohn Marino so_list; it is only here during XML parsing. */ 38*cf7f2e2dSJohn Marino char *name; 39*cf7f2e2dSJohn Marino 40*cf7f2e2dSJohn Marino /* The target can either specify segment bases or section bases, not 41*cf7f2e2dSJohn Marino both. */ 42*cf7f2e2dSJohn Marino 43*cf7f2e2dSJohn Marino /* The base addresses for each independently relocatable segment of 44*cf7f2e2dSJohn Marino this shared library. */ 45*cf7f2e2dSJohn Marino VEC(CORE_ADDR) *segment_bases; 46*cf7f2e2dSJohn Marino 47*cf7f2e2dSJohn Marino /* The base addresses for each independently allocatable, 48*cf7f2e2dSJohn Marino relocatable section of this shared library. */ 49*cf7f2e2dSJohn Marino VEC(CORE_ADDR) *section_bases; 50*cf7f2e2dSJohn Marino 51*cf7f2e2dSJohn Marino /* The cached offsets for each section of this shared library, 52*cf7f2e2dSJohn Marino determined from SEGMENT_BASES, or SECTION_BASES. */ 53*cf7f2e2dSJohn Marino struct section_offsets *offsets; 54*cf7f2e2dSJohn Marino }; 55*cf7f2e2dSJohn Marino 56*cf7f2e2dSJohn Marino typedef struct lm_info *lm_info_p; 57*cf7f2e2dSJohn Marino DEF_VEC_P(lm_info_p); 58*cf7f2e2dSJohn Marino 59*cf7f2e2dSJohn Marino #if !defined(HAVE_LIBEXPAT) 60*cf7f2e2dSJohn Marino 61*cf7f2e2dSJohn Marino static VEC(lm_info_p) * 62*cf7f2e2dSJohn Marino solib_target_parse_libraries (const char *library) 63*cf7f2e2dSJohn Marino { 64*cf7f2e2dSJohn Marino static int have_warned; 65*cf7f2e2dSJohn Marino 66*cf7f2e2dSJohn Marino if (!have_warned) 67*cf7f2e2dSJohn Marino { 68*cf7f2e2dSJohn Marino have_warned = 1; 69*cf7f2e2dSJohn Marino warning (_("Can not parse XML library list; XML support was disabled " 70*cf7f2e2dSJohn Marino "at compile time")); 71*cf7f2e2dSJohn Marino } 72*cf7f2e2dSJohn Marino 73*cf7f2e2dSJohn Marino return NULL; 74*cf7f2e2dSJohn Marino } 75*cf7f2e2dSJohn Marino 76*cf7f2e2dSJohn Marino #else /* HAVE_LIBEXPAT */ 77*cf7f2e2dSJohn Marino 78*cf7f2e2dSJohn Marino #include "xml-support.h" 79*cf7f2e2dSJohn Marino 80*cf7f2e2dSJohn Marino /* Handle the start of a <segment> element. */ 81*cf7f2e2dSJohn Marino 82*cf7f2e2dSJohn Marino static void 83*cf7f2e2dSJohn Marino library_list_start_segment (struct gdb_xml_parser *parser, 84*cf7f2e2dSJohn Marino const struct gdb_xml_element *element, 85*cf7f2e2dSJohn Marino void *user_data, VEC(gdb_xml_value_s) *attributes) 86*cf7f2e2dSJohn Marino { 87*cf7f2e2dSJohn Marino VEC(lm_info_p) **list = user_data; 88*cf7f2e2dSJohn Marino struct lm_info *last = VEC_last (lm_info_p, *list); 89*cf7f2e2dSJohn Marino ULONGEST *address_p = VEC_index (gdb_xml_value_s, attributes, 0)->value; 90*cf7f2e2dSJohn Marino CORE_ADDR address = (CORE_ADDR) *address_p; 91*cf7f2e2dSJohn Marino 92*cf7f2e2dSJohn Marino if (last->section_bases != NULL) 93*cf7f2e2dSJohn Marino gdb_xml_error (parser, 94*cf7f2e2dSJohn Marino _("Library list with both segments and sections")); 95*cf7f2e2dSJohn Marino 96*cf7f2e2dSJohn Marino VEC_safe_push (CORE_ADDR, last->segment_bases, &address); 97*cf7f2e2dSJohn Marino } 98*cf7f2e2dSJohn Marino 99*cf7f2e2dSJohn Marino static void 100*cf7f2e2dSJohn Marino library_list_start_section (struct gdb_xml_parser *parser, 101*cf7f2e2dSJohn Marino const struct gdb_xml_element *element, 102*cf7f2e2dSJohn Marino void *user_data, VEC(gdb_xml_value_s) *attributes) 103*cf7f2e2dSJohn Marino { 104*cf7f2e2dSJohn Marino VEC(lm_info_p) **list = user_data; 105*cf7f2e2dSJohn Marino struct lm_info *last = VEC_last (lm_info_p, *list); 106*cf7f2e2dSJohn Marino ULONGEST *address_p = VEC_index (gdb_xml_value_s, attributes, 0)->value; 107*cf7f2e2dSJohn Marino CORE_ADDR address = (CORE_ADDR) *address_p; 108*cf7f2e2dSJohn Marino 109*cf7f2e2dSJohn Marino if (last->segment_bases != NULL) 110*cf7f2e2dSJohn Marino gdb_xml_error (parser, 111*cf7f2e2dSJohn Marino _("Library list with both segments and sections")); 112*cf7f2e2dSJohn Marino 113*cf7f2e2dSJohn Marino VEC_safe_push (CORE_ADDR, last->section_bases, &address); 114*cf7f2e2dSJohn Marino } 115*cf7f2e2dSJohn Marino 116*cf7f2e2dSJohn Marino /* Handle the start of a <library> element. */ 117*cf7f2e2dSJohn Marino 118*cf7f2e2dSJohn Marino static void 119*cf7f2e2dSJohn Marino library_list_start_library (struct gdb_xml_parser *parser, 120*cf7f2e2dSJohn Marino const struct gdb_xml_element *element, 121*cf7f2e2dSJohn Marino void *user_data, VEC(gdb_xml_value_s) *attributes) 122*cf7f2e2dSJohn Marino { 123*cf7f2e2dSJohn Marino VEC(lm_info_p) **list = user_data; 124*cf7f2e2dSJohn Marino struct lm_info *item = XZALLOC (struct lm_info); 125*cf7f2e2dSJohn Marino const char *name = VEC_index (gdb_xml_value_s, attributes, 0)->value; 126*cf7f2e2dSJohn Marino 127*cf7f2e2dSJohn Marino item->name = xstrdup (name); 128*cf7f2e2dSJohn Marino VEC_safe_push (lm_info_p, *list, item); 129*cf7f2e2dSJohn Marino } 130*cf7f2e2dSJohn Marino 131*cf7f2e2dSJohn Marino static void 132*cf7f2e2dSJohn Marino library_list_end_library (struct gdb_xml_parser *parser, 133*cf7f2e2dSJohn Marino const struct gdb_xml_element *element, 134*cf7f2e2dSJohn Marino void *user_data, const char *body_text) 135*cf7f2e2dSJohn Marino { 136*cf7f2e2dSJohn Marino VEC(lm_info_p) **list = user_data; 137*cf7f2e2dSJohn Marino struct lm_info *lm_info = VEC_last (lm_info_p, *list); 138*cf7f2e2dSJohn Marino 139*cf7f2e2dSJohn Marino if (lm_info->segment_bases == NULL 140*cf7f2e2dSJohn Marino && lm_info->section_bases == NULL) 141*cf7f2e2dSJohn Marino gdb_xml_error (parser, 142*cf7f2e2dSJohn Marino _("No segment or section bases defined")); 143*cf7f2e2dSJohn Marino } 144*cf7f2e2dSJohn Marino 145*cf7f2e2dSJohn Marino 146*cf7f2e2dSJohn Marino /* Handle the start of a <library-list> element. */ 147*cf7f2e2dSJohn Marino 148*cf7f2e2dSJohn Marino static void 149*cf7f2e2dSJohn Marino library_list_start_list (struct gdb_xml_parser *parser, 150*cf7f2e2dSJohn Marino const struct gdb_xml_element *element, 151*cf7f2e2dSJohn Marino void *user_data, VEC(gdb_xml_value_s) *attributes) 152*cf7f2e2dSJohn Marino { 153*cf7f2e2dSJohn Marino char *version = VEC_index (gdb_xml_value_s, attributes, 0)->value; 154*cf7f2e2dSJohn Marino 155*cf7f2e2dSJohn Marino if (strcmp (version, "1.0") != 0) 156*cf7f2e2dSJohn Marino gdb_xml_error (parser, 157*cf7f2e2dSJohn Marino _("Library list has unsupported version \"%s\""), 158*cf7f2e2dSJohn Marino version); 159*cf7f2e2dSJohn Marino } 160*cf7f2e2dSJohn Marino 161*cf7f2e2dSJohn Marino /* Discard the constructed library list. */ 162*cf7f2e2dSJohn Marino 163*cf7f2e2dSJohn Marino static void 164*cf7f2e2dSJohn Marino solib_target_free_library_list (void *p) 165*cf7f2e2dSJohn Marino { 166*cf7f2e2dSJohn Marino VEC(lm_info_p) **result = p; 167*cf7f2e2dSJohn Marino struct lm_info *info; 168*cf7f2e2dSJohn Marino int ix; 169*cf7f2e2dSJohn Marino 170*cf7f2e2dSJohn Marino for (ix = 0; VEC_iterate (lm_info_p, *result, ix, info); ix++) 171*cf7f2e2dSJohn Marino { 172*cf7f2e2dSJohn Marino xfree (info->name); 173*cf7f2e2dSJohn Marino VEC_free (CORE_ADDR, info->segment_bases); 174*cf7f2e2dSJohn Marino VEC_free (CORE_ADDR, info->section_bases); 175*cf7f2e2dSJohn Marino xfree (info); 176*cf7f2e2dSJohn Marino } 177*cf7f2e2dSJohn Marino VEC_free (lm_info_p, *result); 178*cf7f2e2dSJohn Marino *result = NULL; 179*cf7f2e2dSJohn Marino } 180*cf7f2e2dSJohn Marino 181*cf7f2e2dSJohn Marino /* The allowed elements and attributes for an XML library list. 182*cf7f2e2dSJohn Marino The root element is a <library-list>. */ 183*cf7f2e2dSJohn Marino 184*cf7f2e2dSJohn Marino const struct gdb_xml_attribute segment_attributes[] = { 185*cf7f2e2dSJohn Marino { "address", GDB_XML_AF_NONE, gdb_xml_parse_attr_ulongest, NULL }, 186*cf7f2e2dSJohn Marino { NULL, GDB_XML_AF_NONE, NULL, NULL } 187*cf7f2e2dSJohn Marino }; 188*cf7f2e2dSJohn Marino 189*cf7f2e2dSJohn Marino const struct gdb_xml_attribute section_attributes[] = { 190*cf7f2e2dSJohn Marino { "address", GDB_XML_AF_NONE, gdb_xml_parse_attr_ulongest, NULL }, 191*cf7f2e2dSJohn Marino { NULL, GDB_XML_AF_NONE, NULL, NULL } 192*cf7f2e2dSJohn Marino }; 193*cf7f2e2dSJohn Marino 194*cf7f2e2dSJohn Marino const struct gdb_xml_element library_children[] = { 195*cf7f2e2dSJohn Marino { "segment", segment_attributes, NULL, 196*cf7f2e2dSJohn Marino GDB_XML_EF_REPEATABLE | GDB_XML_EF_OPTIONAL, 197*cf7f2e2dSJohn Marino library_list_start_segment, NULL }, 198*cf7f2e2dSJohn Marino { "section", section_attributes, NULL, 199*cf7f2e2dSJohn Marino GDB_XML_EF_REPEATABLE | GDB_XML_EF_OPTIONAL, 200*cf7f2e2dSJohn Marino library_list_start_section, NULL }, 201*cf7f2e2dSJohn Marino { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL } 202*cf7f2e2dSJohn Marino }; 203*cf7f2e2dSJohn Marino 204*cf7f2e2dSJohn Marino const struct gdb_xml_attribute library_attributes[] = { 205*cf7f2e2dSJohn Marino { "name", GDB_XML_AF_NONE, NULL, NULL }, 206*cf7f2e2dSJohn Marino { NULL, GDB_XML_AF_NONE, NULL, NULL } 207*cf7f2e2dSJohn Marino }; 208*cf7f2e2dSJohn Marino 209*cf7f2e2dSJohn Marino const struct gdb_xml_element library_list_children[] = { 210*cf7f2e2dSJohn Marino { "library", library_attributes, library_children, 211*cf7f2e2dSJohn Marino GDB_XML_EF_REPEATABLE | GDB_XML_EF_OPTIONAL, 212*cf7f2e2dSJohn Marino library_list_start_library, library_list_end_library }, 213*cf7f2e2dSJohn Marino { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL } 214*cf7f2e2dSJohn Marino }; 215*cf7f2e2dSJohn Marino 216*cf7f2e2dSJohn Marino const struct gdb_xml_attribute library_list_attributes[] = { 217*cf7f2e2dSJohn Marino { "version", GDB_XML_AF_NONE, NULL, NULL }, 218*cf7f2e2dSJohn Marino { NULL, GDB_XML_AF_NONE, NULL, NULL } 219*cf7f2e2dSJohn Marino }; 220*cf7f2e2dSJohn Marino 221*cf7f2e2dSJohn Marino const struct gdb_xml_element library_list_elements[] = { 222*cf7f2e2dSJohn Marino { "library-list", library_list_attributes, library_list_children, 223*cf7f2e2dSJohn Marino GDB_XML_EF_NONE, library_list_start_list, NULL }, 224*cf7f2e2dSJohn Marino { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL } 225*cf7f2e2dSJohn Marino }; 226*cf7f2e2dSJohn Marino 227*cf7f2e2dSJohn Marino static VEC(lm_info_p) * 228*cf7f2e2dSJohn Marino solib_target_parse_libraries (const char *library) 229*cf7f2e2dSJohn Marino { 230*cf7f2e2dSJohn Marino struct gdb_xml_parser *parser; 231*cf7f2e2dSJohn Marino VEC(lm_info_p) *result = NULL; 232*cf7f2e2dSJohn Marino struct cleanup *before_deleting_result, *back_to; 233*cf7f2e2dSJohn Marino 234*cf7f2e2dSJohn Marino back_to = make_cleanup (null_cleanup, NULL); 235*cf7f2e2dSJohn Marino parser = gdb_xml_create_parser_and_cleanup (_("target library list"), 236*cf7f2e2dSJohn Marino library_list_elements, &result); 237*cf7f2e2dSJohn Marino gdb_xml_use_dtd (parser, "library-list.dtd"); 238*cf7f2e2dSJohn Marino 239*cf7f2e2dSJohn Marino before_deleting_result = make_cleanup (solib_target_free_library_list, 240*cf7f2e2dSJohn Marino &result); 241*cf7f2e2dSJohn Marino 242*cf7f2e2dSJohn Marino if (gdb_xml_parse (parser, library) == 0) 243*cf7f2e2dSJohn Marino /* Parsed successfully, don't need to delete the result. */ 244*cf7f2e2dSJohn Marino discard_cleanups (before_deleting_result); 245*cf7f2e2dSJohn Marino 246*cf7f2e2dSJohn Marino do_cleanups (back_to); 247*cf7f2e2dSJohn Marino return result; 248*cf7f2e2dSJohn Marino } 249*cf7f2e2dSJohn Marino #endif 250*cf7f2e2dSJohn Marino 251*cf7f2e2dSJohn Marino static struct so_list * 252*cf7f2e2dSJohn Marino solib_target_current_sos (void) 253*cf7f2e2dSJohn Marino { 254*cf7f2e2dSJohn Marino struct so_list *new_solib, *start = NULL, *last = NULL; 255*cf7f2e2dSJohn Marino const char *library_document; 256*cf7f2e2dSJohn Marino VEC(lm_info_p) *library_list; 257*cf7f2e2dSJohn Marino struct lm_info *info; 258*cf7f2e2dSJohn Marino int ix; 259*cf7f2e2dSJohn Marino 260*cf7f2e2dSJohn Marino /* Fetch the list of shared libraries. */ 261*cf7f2e2dSJohn Marino library_document = target_read_stralloc (¤t_target, 262*cf7f2e2dSJohn Marino TARGET_OBJECT_LIBRARIES, 263*cf7f2e2dSJohn Marino NULL); 264*cf7f2e2dSJohn Marino if (library_document == NULL) 265*cf7f2e2dSJohn Marino return NULL; 266*cf7f2e2dSJohn Marino 267*cf7f2e2dSJohn Marino /* Parse the list. */ 268*cf7f2e2dSJohn Marino library_list = solib_target_parse_libraries (library_document); 269*cf7f2e2dSJohn Marino if (library_list == NULL) 270*cf7f2e2dSJohn Marino return NULL; 271*cf7f2e2dSJohn Marino 272*cf7f2e2dSJohn Marino /* Build a struct so_list for each entry on the list. */ 273*cf7f2e2dSJohn Marino for (ix = 0; VEC_iterate (lm_info_p, library_list, ix, info); ix++) 274*cf7f2e2dSJohn Marino { 275*cf7f2e2dSJohn Marino new_solib = XZALLOC (struct so_list); 276*cf7f2e2dSJohn Marino strncpy (new_solib->so_name, info->name, SO_NAME_MAX_PATH_SIZE - 1); 277*cf7f2e2dSJohn Marino new_solib->so_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0'; 278*cf7f2e2dSJohn Marino strncpy (new_solib->so_original_name, info->name, 279*cf7f2e2dSJohn Marino SO_NAME_MAX_PATH_SIZE - 1); 280*cf7f2e2dSJohn Marino new_solib->so_original_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0'; 281*cf7f2e2dSJohn Marino new_solib->lm_info = info; 282*cf7f2e2dSJohn Marino 283*cf7f2e2dSJohn Marino /* We no longer need this copy of the name. */ 284*cf7f2e2dSJohn Marino xfree (info->name); 285*cf7f2e2dSJohn Marino info->name = NULL; 286*cf7f2e2dSJohn Marino 287*cf7f2e2dSJohn Marino /* Add it to the list. */ 288*cf7f2e2dSJohn Marino if (!start) 289*cf7f2e2dSJohn Marino last = start = new_solib; 290*cf7f2e2dSJohn Marino else 291*cf7f2e2dSJohn Marino { 292*cf7f2e2dSJohn Marino last->next = new_solib; 293*cf7f2e2dSJohn Marino last = new_solib; 294*cf7f2e2dSJohn Marino } 295*cf7f2e2dSJohn Marino } 296*cf7f2e2dSJohn Marino 297*cf7f2e2dSJohn Marino /* Free the library list, but not its members. */ 298*cf7f2e2dSJohn Marino VEC_free (lm_info_p, library_list); 299*cf7f2e2dSJohn Marino 300*cf7f2e2dSJohn Marino return start; 301*cf7f2e2dSJohn Marino } 302*cf7f2e2dSJohn Marino 303*cf7f2e2dSJohn Marino static void 304*cf7f2e2dSJohn Marino solib_target_special_symbol_handling (void) 305*cf7f2e2dSJohn Marino { 306*cf7f2e2dSJohn Marino /* Nothing needed. */ 307*cf7f2e2dSJohn Marino } 308*cf7f2e2dSJohn Marino 309*cf7f2e2dSJohn Marino static void 310*cf7f2e2dSJohn Marino solib_target_solib_create_inferior_hook (int from_tty) 311*cf7f2e2dSJohn Marino { 312*cf7f2e2dSJohn Marino /* Nothing needed. */ 313*cf7f2e2dSJohn Marino } 314*cf7f2e2dSJohn Marino 315*cf7f2e2dSJohn Marino static void 316*cf7f2e2dSJohn Marino solib_target_clear_solib (void) 317*cf7f2e2dSJohn Marino { 318*cf7f2e2dSJohn Marino /* Nothing needed. */ 319*cf7f2e2dSJohn Marino } 320*cf7f2e2dSJohn Marino 321*cf7f2e2dSJohn Marino static void 322*cf7f2e2dSJohn Marino solib_target_free_so (struct so_list *so) 323*cf7f2e2dSJohn Marino { 324*cf7f2e2dSJohn Marino gdb_assert (so->lm_info->name == NULL); 325*cf7f2e2dSJohn Marino xfree (so->lm_info->offsets); 326*cf7f2e2dSJohn Marino VEC_free (CORE_ADDR, so->lm_info->segment_bases); 327*cf7f2e2dSJohn Marino xfree (so->lm_info); 328*cf7f2e2dSJohn Marino } 329*cf7f2e2dSJohn Marino 330*cf7f2e2dSJohn Marino static void 331*cf7f2e2dSJohn Marino solib_target_relocate_section_addresses (struct so_list *so, 332*cf7f2e2dSJohn Marino struct target_section *sec) 333*cf7f2e2dSJohn Marino { 334*cf7f2e2dSJohn Marino int flags = bfd_get_section_flags (sec->bfd, sec->the_bfd_section); 335*cf7f2e2dSJohn Marino CORE_ADDR offset; 336*cf7f2e2dSJohn Marino 337*cf7f2e2dSJohn Marino /* Build the offset table only once per object file. We can not do 338*cf7f2e2dSJohn Marino it any earlier, since we need to open the file first. */ 339*cf7f2e2dSJohn Marino if (so->lm_info->offsets == NULL) 340*cf7f2e2dSJohn Marino { 341*cf7f2e2dSJohn Marino int num_sections = bfd_count_sections (so->abfd); 342*cf7f2e2dSJohn Marino 343*cf7f2e2dSJohn Marino so->lm_info->offsets = xzalloc (SIZEOF_N_SECTION_OFFSETS (num_sections)); 344*cf7f2e2dSJohn Marino 345*cf7f2e2dSJohn Marino if (so->lm_info->section_bases) 346*cf7f2e2dSJohn Marino { 347*cf7f2e2dSJohn Marino int i; 348*cf7f2e2dSJohn Marino asection *sect; 349*cf7f2e2dSJohn Marino int num_section_bases 350*cf7f2e2dSJohn Marino = VEC_length (CORE_ADDR, so->lm_info->section_bases); 351*cf7f2e2dSJohn Marino int num_alloc_sections = 0; 352*cf7f2e2dSJohn Marino 353*cf7f2e2dSJohn Marino for (i = 0, sect = so->abfd->sections; 354*cf7f2e2dSJohn Marino sect != NULL; 355*cf7f2e2dSJohn Marino i++, sect = sect->next) 356*cf7f2e2dSJohn Marino if ((bfd_get_section_flags (so->abfd, sect) & SEC_ALLOC)) 357*cf7f2e2dSJohn Marino num_alloc_sections++; 358*cf7f2e2dSJohn Marino 359*cf7f2e2dSJohn Marino if (num_alloc_sections != num_section_bases) 360*cf7f2e2dSJohn Marino warning (_("\ 361*cf7f2e2dSJohn Marino Could not relocate shared library \"%s\": wrong number of ALLOC sections"), 362*cf7f2e2dSJohn Marino so->so_name); 363*cf7f2e2dSJohn Marino else 364*cf7f2e2dSJohn Marino { 365*cf7f2e2dSJohn Marino int bases_index = 0; 366*cf7f2e2dSJohn Marino int found_range = 0; 367*cf7f2e2dSJohn Marino CORE_ADDR *section_bases; 368*cf7f2e2dSJohn Marino 369*cf7f2e2dSJohn Marino section_bases = VEC_address (CORE_ADDR, 370*cf7f2e2dSJohn Marino so->lm_info->section_bases); 371*cf7f2e2dSJohn Marino 372*cf7f2e2dSJohn Marino so->addr_low = ~(CORE_ADDR) 0; 373*cf7f2e2dSJohn Marino so->addr_high = 0; 374*cf7f2e2dSJohn Marino for (i = 0, sect = so->abfd->sections; 375*cf7f2e2dSJohn Marino sect != NULL; 376*cf7f2e2dSJohn Marino i++, sect = sect->next) 377*cf7f2e2dSJohn Marino { 378*cf7f2e2dSJohn Marino if (!(bfd_get_section_flags (so->abfd, sect) & SEC_ALLOC)) 379*cf7f2e2dSJohn Marino continue; 380*cf7f2e2dSJohn Marino if (bfd_section_size (so->abfd, sect) > 0) 381*cf7f2e2dSJohn Marino { 382*cf7f2e2dSJohn Marino CORE_ADDR low, high; 383*cf7f2e2dSJohn Marino 384*cf7f2e2dSJohn Marino low = section_bases[i]; 385*cf7f2e2dSJohn Marino high = low + bfd_section_size (so->abfd, sect) - 1; 386*cf7f2e2dSJohn Marino 387*cf7f2e2dSJohn Marino if (low < so->addr_low) 388*cf7f2e2dSJohn Marino so->addr_low = low; 389*cf7f2e2dSJohn Marino if (high > so->addr_high) 390*cf7f2e2dSJohn Marino so->addr_high = high; 391*cf7f2e2dSJohn Marino gdb_assert (so->addr_low <= so->addr_high); 392*cf7f2e2dSJohn Marino found_range = 1; 393*cf7f2e2dSJohn Marino } 394*cf7f2e2dSJohn Marino so->lm_info->offsets->offsets[i] = section_bases[bases_index]; 395*cf7f2e2dSJohn Marino bases_index++; 396*cf7f2e2dSJohn Marino } 397*cf7f2e2dSJohn Marino if (!found_range) 398*cf7f2e2dSJohn Marino so->addr_low = so->addr_high = 0; 399*cf7f2e2dSJohn Marino gdb_assert (so->addr_low <= so->addr_high); 400*cf7f2e2dSJohn Marino } 401*cf7f2e2dSJohn Marino } 402*cf7f2e2dSJohn Marino else if (so->lm_info->segment_bases) 403*cf7f2e2dSJohn Marino { 404*cf7f2e2dSJohn Marino struct symfile_segment_data *data; 405*cf7f2e2dSJohn Marino 406*cf7f2e2dSJohn Marino data = get_symfile_segment_data (so->abfd); 407*cf7f2e2dSJohn Marino if (data == NULL) 408*cf7f2e2dSJohn Marino warning (_("\ 409*cf7f2e2dSJohn Marino Could not relocate shared library \"%s\": no segments"), so->so_name); 410*cf7f2e2dSJohn Marino else 411*cf7f2e2dSJohn Marino { 412*cf7f2e2dSJohn Marino ULONGEST orig_delta; 413*cf7f2e2dSJohn Marino int i; 414*cf7f2e2dSJohn Marino int num_bases; 415*cf7f2e2dSJohn Marino CORE_ADDR *segment_bases; 416*cf7f2e2dSJohn Marino 417*cf7f2e2dSJohn Marino num_bases = VEC_length (CORE_ADDR, so->lm_info->segment_bases); 418*cf7f2e2dSJohn Marino segment_bases = VEC_address (CORE_ADDR, 419*cf7f2e2dSJohn Marino so->lm_info->segment_bases); 420*cf7f2e2dSJohn Marino 421*cf7f2e2dSJohn Marino if (!symfile_map_offsets_to_segments (so->abfd, data, 422*cf7f2e2dSJohn Marino so->lm_info->offsets, 423*cf7f2e2dSJohn Marino num_bases, segment_bases)) 424*cf7f2e2dSJohn Marino warning (_("\ 425*cf7f2e2dSJohn Marino Could not relocate shared library \"%s\": bad offsets"), so->so_name); 426*cf7f2e2dSJohn Marino 427*cf7f2e2dSJohn Marino /* Find the range of addresses to report for this library in 428*cf7f2e2dSJohn Marino "info sharedlibrary". Report any consecutive segments 429*cf7f2e2dSJohn Marino which were relocated as a single unit. */ 430*cf7f2e2dSJohn Marino gdb_assert (num_bases > 0); 431*cf7f2e2dSJohn Marino orig_delta = segment_bases[0] - data->segment_bases[0]; 432*cf7f2e2dSJohn Marino 433*cf7f2e2dSJohn Marino for (i = 1; i < data->num_segments; i++) 434*cf7f2e2dSJohn Marino { 435*cf7f2e2dSJohn Marino /* If we have run out of offsets, assume all 436*cf7f2e2dSJohn Marino remaining segments have the same offset. */ 437*cf7f2e2dSJohn Marino if (i >= num_bases) 438*cf7f2e2dSJohn Marino continue; 439*cf7f2e2dSJohn Marino 440*cf7f2e2dSJohn Marino /* If this segment does not have the same offset, do 441*cf7f2e2dSJohn Marino not include it in the library's range. */ 442*cf7f2e2dSJohn Marino if (segment_bases[i] - data->segment_bases[i] != orig_delta) 443*cf7f2e2dSJohn Marino break; 444*cf7f2e2dSJohn Marino } 445*cf7f2e2dSJohn Marino 446*cf7f2e2dSJohn Marino so->addr_low = segment_bases[0]; 447*cf7f2e2dSJohn Marino so->addr_high = (data->segment_bases[i - 1] 448*cf7f2e2dSJohn Marino + data->segment_sizes[i - 1] 449*cf7f2e2dSJohn Marino + orig_delta); 450*cf7f2e2dSJohn Marino gdb_assert (so->addr_low <= so->addr_high); 451*cf7f2e2dSJohn Marino 452*cf7f2e2dSJohn Marino free_symfile_segment_data (data); 453*cf7f2e2dSJohn Marino } 454*cf7f2e2dSJohn Marino } 455*cf7f2e2dSJohn Marino } 456*cf7f2e2dSJohn Marino 457*cf7f2e2dSJohn Marino offset = so->lm_info->offsets->offsets[sec->the_bfd_section->index]; 458*cf7f2e2dSJohn Marino sec->addr += offset; 459*cf7f2e2dSJohn Marino sec->endaddr += offset; 460*cf7f2e2dSJohn Marino } 461*cf7f2e2dSJohn Marino 462*cf7f2e2dSJohn Marino static int 463*cf7f2e2dSJohn Marino solib_target_open_symbol_file_object (void *from_ttyp) 464*cf7f2e2dSJohn Marino { 465*cf7f2e2dSJohn Marino /* We can't locate the main symbol file based on the target's 466*cf7f2e2dSJohn Marino knowledge; the user has to specify it. */ 467*cf7f2e2dSJohn Marino return 0; 468*cf7f2e2dSJohn Marino } 469*cf7f2e2dSJohn Marino 470*cf7f2e2dSJohn Marino static int 471*cf7f2e2dSJohn Marino solib_target_in_dynsym_resolve_code (CORE_ADDR pc) 472*cf7f2e2dSJohn Marino { 473*cf7f2e2dSJohn Marino /* We don't have a range of addresses for the dynamic linker; there 474*cf7f2e2dSJohn Marino may not be one in the program's address space. So only report 475*cf7f2e2dSJohn Marino PLT entries (which may be import stubs). */ 476*cf7f2e2dSJohn Marino return in_plt_section (pc, NULL); 477*cf7f2e2dSJohn Marino } 478*cf7f2e2dSJohn Marino 479*cf7f2e2dSJohn Marino struct target_so_ops solib_target_so_ops; 480*cf7f2e2dSJohn Marino 481*cf7f2e2dSJohn Marino extern initialize_file_ftype _initialize_solib_target; /* -Wmissing-prototypes */ 482*cf7f2e2dSJohn Marino 483*cf7f2e2dSJohn Marino void 484*cf7f2e2dSJohn Marino _initialize_solib_target (void) 485*cf7f2e2dSJohn Marino { 486*cf7f2e2dSJohn Marino solib_target_so_ops.relocate_section_addresses 487*cf7f2e2dSJohn Marino = solib_target_relocate_section_addresses; 488*cf7f2e2dSJohn Marino solib_target_so_ops.free_so = solib_target_free_so; 489*cf7f2e2dSJohn Marino solib_target_so_ops.clear_solib = solib_target_clear_solib; 490*cf7f2e2dSJohn Marino solib_target_so_ops.solib_create_inferior_hook 491*cf7f2e2dSJohn Marino = solib_target_solib_create_inferior_hook; 492*cf7f2e2dSJohn Marino solib_target_so_ops.special_symbol_handling 493*cf7f2e2dSJohn Marino = solib_target_special_symbol_handling; 494*cf7f2e2dSJohn Marino solib_target_so_ops.current_sos = solib_target_current_sos; 495*cf7f2e2dSJohn Marino solib_target_so_ops.open_symbol_file_object 496*cf7f2e2dSJohn Marino = solib_target_open_symbol_file_object; 497*cf7f2e2dSJohn Marino solib_target_so_ops.in_dynsym_resolve_code 498*cf7f2e2dSJohn Marino = solib_target_in_dynsym_resolve_code; 499*cf7f2e2dSJohn Marino solib_target_so_ops.bfd_open = solib_bfd_open; 500*cf7f2e2dSJohn Marino 501*cf7f2e2dSJohn Marino /* Set current_target_so_ops to solib_target_so_ops if not already 502*cf7f2e2dSJohn Marino set. */ 503*cf7f2e2dSJohn Marino if (current_target_so_ops == 0) 504*cf7f2e2dSJohn Marino current_target_so_ops = &solib_target_so_ops; 505*cf7f2e2dSJohn Marino } 506