1 /* Definitions for targets which report shared library events.
3 Copyright (C) 2007-2017 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
27 #include "solib-target.h"
29 /* Private data for each loaded library. */
30 struct lm_info_target
: public lm_info_base
34 VEC_free (CORE_ADDR
, this->segment_bases
);
35 VEC_free (CORE_ADDR
, this->section_bases
);
38 /* The library's name. The name is normally kept in the struct
39 so_list; it is only here during XML parsing. */
42 /* The target can either specify segment bases or section bases, not
45 /* The base addresses for each independently relocatable segment of
46 this shared library. */
47 VEC(CORE_ADDR
) *segment_bases
= NULL
;
49 /* The base addresses for each independently allocatable,
50 relocatable section of this shared library. */
51 VEC(CORE_ADDR
) *section_bases
= NULL
;
53 /* The cached offsets for each section of this shared library,
54 determined from SEGMENT_BASES, or SECTION_BASES. */
55 section_offsets
*offsets
= NULL
;
58 typedef lm_info_target
*lm_info_target_p
;
59 DEF_VEC_P(lm_info_target_p
);
61 #if !defined(HAVE_LIBEXPAT)
63 static VEC(lm_info_target_p
) *
64 solib_target_parse_libraries (const char *library
)
66 static int have_warned
;
71 warning (_("Can not parse XML library list; XML support was disabled "
78 #else /* HAVE_LIBEXPAT */
80 #include "xml-support.h"
82 /* Handle the start of a <segment> element. */
85 library_list_start_segment (struct gdb_xml_parser
*parser
,
86 const struct gdb_xml_element
*element
,
87 void *user_data
, VEC(gdb_xml_value_s
) *attributes
)
89 VEC(lm_info_target_p
) **list
= (VEC(lm_info_target_p
) **) user_data
;
90 lm_info_target
*last
= VEC_last (lm_info_target_p
, *list
);
92 = (ULONGEST
*) xml_find_attribute (attributes
, "address")->value
;
93 CORE_ADDR address
= (CORE_ADDR
) *address_p
;
95 if (last
->section_bases
!= NULL
)
96 gdb_xml_error (parser
,
97 _("Library list with both segments and sections"));
99 VEC_safe_push (CORE_ADDR
, last
->segment_bases
, address
);
103 library_list_start_section (struct gdb_xml_parser
*parser
,
104 const struct gdb_xml_element
*element
,
105 void *user_data
, VEC(gdb_xml_value_s
) *attributes
)
107 VEC(lm_info_target_p
) **list
= (VEC(lm_info_target_p
) **) user_data
;
108 lm_info_target
*last
= VEC_last (lm_info_target_p
, *list
);
110 = (ULONGEST
*) xml_find_attribute (attributes
, "address")->value
;
111 CORE_ADDR address
= (CORE_ADDR
) *address_p
;
113 if (last
->segment_bases
!= NULL
)
114 gdb_xml_error (parser
,
115 _("Library list with both segments and sections"));
117 VEC_safe_push (CORE_ADDR
, last
->section_bases
, address
);
120 /* Handle the start of a <library> element. */
123 library_list_start_library (struct gdb_xml_parser
*parser
,
124 const struct gdb_xml_element
*element
,
125 void *user_data
, VEC(gdb_xml_value_s
) *attributes
)
127 VEC(lm_info_target_p
) **list
= (VEC(lm_info_target_p
) **) user_data
;
128 lm_info_target
*item
= new lm_info_target
;
130 = (const char *) xml_find_attribute (attributes
, "name")->value
;
132 item
->name
= xstrdup (name
);
133 VEC_safe_push (lm_info_target_p
, *list
, item
);
137 library_list_end_library (struct gdb_xml_parser
*parser
,
138 const struct gdb_xml_element
*element
,
139 void *user_data
, const char *body_text
)
141 VEC(lm_info_target_p
) **list
= (VEC(lm_info_target_p
) **) user_data
;
142 lm_info_target
*lm_info
= VEC_last (lm_info_target_p
, *list
);
144 if (lm_info
->segment_bases
== NULL
145 && lm_info
->section_bases
== NULL
)
146 gdb_xml_error (parser
,
147 _("No segment or section bases defined"));
151 /* Handle the start of a <library-list> element. */
154 library_list_start_list (struct gdb_xml_parser
*parser
,
155 const struct gdb_xml_element
*element
,
156 void *user_data
, VEC(gdb_xml_value_s
) *attributes
)
158 struct gdb_xml_value
*version
= xml_find_attribute (attributes
, "version");
160 /* #FIXED attribute may be omitted, Expat returns NULL in such case. */
163 const char *string
= (const char *) version
->value
;
165 if (strcmp (string
, "1.0") != 0)
166 gdb_xml_error (parser
,
167 _("Library list has unsupported version \"%s\""),
172 /* Discard the constructed library list. */
175 solib_target_free_library_list (void *p
)
177 VEC(lm_info_target_p
) **result
= (VEC(lm_info_target_p
) **) p
;
178 lm_info_target
*info
;
181 for (ix
= 0; VEC_iterate (lm_info_target_p
, *result
, ix
, info
); ix
++)
184 VEC_free (lm_info_target_p
, *result
);
188 /* The allowed elements and attributes for an XML library list.
189 The root element is a <library-list>. */
191 static const struct gdb_xml_attribute segment_attributes
[] = {
192 { "address", GDB_XML_AF_NONE
, gdb_xml_parse_attr_ulongest
, NULL
},
193 { NULL
, GDB_XML_AF_NONE
, NULL
, NULL
}
196 static const struct gdb_xml_attribute section_attributes
[] = {
197 { "address", GDB_XML_AF_NONE
, gdb_xml_parse_attr_ulongest
, NULL
},
198 { NULL
, GDB_XML_AF_NONE
, NULL
, NULL
}
201 static const struct gdb_xml_element library_children
[] = {
202 { "segment", segment_attributes
, NULL
,
203 GDB_XML_EF_REPEATABLE
| GDB_XML_EF_OPTIONAL
,
204 library_list_start_segment
, NULL
},
205 { "section", section_attributes
, NULL
,
206 GDB_XML_EF_REPEATABLE
| GDB_XML_EF_OPTIONAL
,
207 library_list_start_section
, NULL
},
208 { NULL
, NULL
, NULL
, GDB_XML_EF_NONE
, NULL
, NULL
}
211 static const struct gdb_xml_attribute library_attributes
[] = {
212 { "name", GDB_XML_AF_NONE
, NULL
, NULL
},
213 { NULL
, GDB_XML_AF_NONE
, NULL
, NULL
}
216 static const struct gdb_xml_element library_list_children
[] = {
217 { "library", library_attributes
, library_children
,
218 GDB_XML_EF_REPEATABLE
| GDB_XML_EF_OPTIONAL
,
219 library_list_start_library
, library_list_end_library
},
220 { NULL
, NULL
, NULL
, GDB_XML_EF_NONE
, NULL
, NULL
}
223 static const struct gdb_xml_attribute library_list_attributes
[] = {
224 { "version", GDB_XML_AF_OPTIONAL
, NULL
, NULL
},
225 { NULL
, GDB_XML_AF_NONE
, NULL
, NULL
}
228 static const struct gdb_xml_element library_list_elements
[] = {
229 { "library-list", library_list_attributes
, library_list_children
,
230 GDB_XML_EF_NONE
, library_list_start_list
, NULL
},
231 { NULL
, NULL
, NULL
, GDB_XML_EF_NONE
, NULL
, NULL
}
234 static VEC(lm_info_target_p
) *
235 solib_target_parse_libraries (const char *library
)
237 VEC(lm_info_target_p
) *result
= NULL
;
238 struct cleanup
*back_to
= make_cleanup (solib_target_free_library_list
,
241 if (gdb_xml_parse_quick (_("target library list"), "library-list.dtd",
242 library_list_elements
, library
, &result
) == 0)
244 /* Parsed successfully, keep the result. */
245 discard_cleanups (back_to
);
249 do_cleanups (back_to
);
254 static struct so_list
*
255 solib_target_current_sos (void)
257 struct so_list
*new_solib
, *start
= NULL
, *last
= NULL
;
258 char *library_document
;
259 struct cleanup
*old_chain
;
260 VEC(lm_info_target_p
) *library_list
;
261 lm_info_target
*info
;
264 /* Fetch the list of shared libraries. */
265 library_document
= target_read_stralloc (¤t_target
,
266 TARGET_OBJECT_LIBRARIES
,
268 if (library_document
== NULL
)
271 /* solib_target_parse_libraries may throw, so we use a cleanup. */
272 old_chain
= make_cleanup (xfree
, library_document
);
274 /* Parse the list. */
275 library_list
= solib_target_parse_libraries (library_document
);
277 /* library_document string is not needed behind this point. */
278 do_cleanups (old_chain
);
280 if (library_list
== NULL
)
283 /* Build a struct so_list for each entry on the list. */
284 for (ix
= 0; VEC_iterate (lm_info_target_p
, library_list
, ix
, info
); ix
++)
286 new_solib
= XCNEW (struct so_list
);
287 strncpy (new_solib
->so_name
, info
->name
.c_str (),
288 SO_NAME_MAX_PATH_SIZE
- 1);
289 new_solib
->so_name
[SO_NAME_MAX_PATH_SIZE
- 1] = '\0';
290 strncpy (new_solib
->so_original_name
, info
->name
.c_str (),
291 SO_NAME_MAX_PATH_SIZE
- 1);
292 new_solib
->so_original_name
[SO_NAME_MAX_PATH_SIZE
- 1] = '\0';
293 new_solib
->lm_info
= info
;
295 /* We no longer need this copy of the name. */
298 /* Add it to the list. */
300 last
= start
= new_solib
;
303 last
->next
= new_solib
;
308 /* Free the library list, but not its members. */
309 VEC_free (lm_info_target_p
, library_list
);
315 solib_target_solib_create_inferior_hook (int from_tty
)
317 /* Nothing needed. */
321 solib_target_clear_solib (void)
323 /* Nothing needed. */
327 solib_target_free_so (struct so_list
*so
)
329 lm_info_target
*li
= (lm_info_target
*) so
->lm_info
;
331 gdb_assert (li
->name
.empty ());
337 solib_target_relocate_section_addresses (struct so_list
*so
,
338 struct target_section
*sec
)
341 lm_info_target
*li
= (lm_info_target
*) so
->lm_info
;
343 /* Build the offset table only once per object file. We can not do
344 it any earlier, since we need to open the file first. */
345 if (li
->offsets
== NULL
)
347 int num_sections
= gdb_bfd_count_sections (so
->abfd
);
350 = ((struct section_offsets
*)
351 xzalloc (SIZEOF_N_SECTION_OFFSETS (num_sections
)));
353 if (li
->section_bases
)
357 int num_section_bases
358 = VEC_length (CORE_ADDR
, li
->section_bases
);
359 int num_alloc_sections
= 0;
361 for (i
= 0, sect
= so
->abfd
->sections
;
363 i
++, sect
= sect
->next
)
364 if ((bfd_get_section_flags (so
->abfd
, sect
) & SEC_ALLOC
))
365 num_alloc_sections
++;
367 if (num_alloc_sections
!= num_section_bases
)
369 Could not relocate shared library \"%s\": wrong number of ALLOC sections"),
375 CORE_ADDR
*section_bases
;
377 section_bases
= VEC_address (CORE_ADDR
,
380 so
->addr_low
= ~(CORE_ADDR
) 0;
382 for (i
= 0, sect
= so
->abfd
->sections
;
384 i
++, sect
= sect
->next
)
386 if (!(bfd_get_section_flags (so
->abfd
, sect
) & SEC_ALLOC
))
388 if (bfd_section_size (so
->abfd
, sect
) > 0)
392 low
= section_bases
[i
];
393 high
= low
+ bfd_section_size (so
->abfd
, sect
) - 1;
395 if (low
< so
->addr_low
)
397 if (high
> so
->addr_high
)
398 so
->addr_high
= high
;
399 gdb_assert (so
->addr_low
<= so
->addr_high
);
402 li
->offsets
->offsets
[i
]
403 = section_bases
[bases_index
];
407 so
->addr_low
= so
->addr_high
= 0;
408 gdb_assert (so
->addr_low
<= so
->addr_high
);
411 else if (li
->segment_bases
)
413 struct symfile_segment_data
*data
;
415 data
= get_symfile_segment_data (so
->abfd
);
418 Could not relocate shared library \"%s\": no segments"), so
->so_name
);
424 CORE_ADDR
*segment_bases
;
426 num_bases
= VEC_length (CORE_ADDR
, li
->segment_bases
);
427 segment_bases
= VEC_address (CORE_ADDR
, li
->segment_bases
);
429 if (!symfile_map_offsets_to_segments (so
->abfd
, data
, li
->offsets
,
430 num_bases
, segment_bases
))
432 Could not relocate shared library \"%s\": bad offsets"), so
->so_name
);
434 /* Find the range of addresses to report for this library in
435 "info sharedlibrary". Report any consecutive segments
436 which were relocated as a single unit. */
437 gdb_assert (num_bases
> 0);
438 orig_delta
= segment_bases
[0] - data
->segment_bases
[0];
440 for (i
= 1; i
< data
->num_segments
; i
++)
442 /* If we have run out of offsets, assume all
443 remaining segments have the same offset. */
447 /* If this segment does not have the same offset, do
448 not include it in the library's range. */
449 if (segment_bases
[i
] - data
->segment_bases
[i
] != orig_delta
)
453 so
->addr_low
= segment_bases
[0];
454 so
->addr_high
= (data
->segment_bases
[i
- 1]
455 + data
->segment_sizes
[i
- 1]
457 gdb_assert (so
->addr_low
<= so
->addr_high
);
459 free_symfile_segment_data (data
);
464 offset
= li
->offsets
->offsets
[gdb_bfd_section_index
465 (sec
->the_bfd_section
->owner
,
466 sec
->the_bfd_section
)];
468 sec
->endaddr
+= offset
;
472 solib_target_open_symbol_file_object (void *from_ttyp
)
474 /* We can't locate the main symbol file based on the target's
475 knowledge; the user has to specify it. */
480 solib_target_in_dynsym_resolve_code (CORE_ADDR pc
)
482 /* We don't have a range of addresses for the dynamic linker; there
483 may not be one in the program's address space. So only report
484 PLT entries (which may be import stubs). */
485 return in_plt_section (pc
);
488 struct target_so_ops solib_target_so_ops
;
490 /* -Wmissing-prototypes */
491 extern initialize_file_ftype _initialize_solib_target
;
494 _initialize_solib_target (void)
496 solib_target_so_ops
.relocate_section_addresses
497 = solib_target_relocate_section_addresses
;
498 solib_target_so_ops
.free_so
= solib_target_free_so
;
499 solib_target_so_ops
.clear_solib
= solib_target_clear_solib
;
500 solib_target_so_ops
.solib_create_inferior_hook
501 = solib_target_solib_create_inferior_hook
;
502 solib_target_so_ops
.current_sos
= solib_target_current_sos
;
503 solib_target_so_ops
.open_symbol_file_object
504 = solib_target_open_symbol_file_object
;
505 solib_target_so_ops
.in_dynsym_resolve_code
506 = solib_target_in_dynsym_resolve_code
;
507 solib_target_so_ops
.bfd_open
= solib_bfd_open
;
509 /* Set current_target_so_ops to solib_target_so_ops if not already
511 if (current_target_so_ops
== 0)
512 current_target_so_ops
= &solib_target_so_ops
;