Testsuite: Fix ambiguous "break" due to libinproctrace
[deliverable/binutils-gdb.git] / gdb / symfile-debug.c
CommitLineData
8fb8eb5c
DE
1/* Debug logging for the symbol file functions for the GNU debugger, GDB.
2
e2882c85 3 Copyright (C) 2013-2018 Free Software Foundation, Inc.
8fb8eb5c
DE
4
5 Contributed by Cygnus Support, using pieces from other GDB modules.
6
7 This file is part of GDB.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21
22/* Note: Be careful with functions that can throw errors.
23 We want to see a logging message regardless of whether an error was thrown.
24 This typically means printing a message before calling the real function
25 and then if the function returns a result printing a message after it
26 returns. */
27
28#include "defs.h"
29#include "gdbcmd.h"
30#include "objfiles.h"
31#include "observer.h"
32#include "source.h"
33#include "symtab.h"
34#include "symfile.h"
35
36/* We need to save a pointer to the real symbol functions.
37 Plus, the debug versions are malloc'd because we have to NULL out the
38 ones that are NULL in the real copy. */
39
40struct debug_sym_fns_data
41{
42 const struct sym_fns *real_sf;
43 struct sym_fns debug_sf;
44};
45
46/* We need to record a pointer to the real set of functions for each
47 objfile. */
48static const struct objfile_data *symfile_debug_objfile_data_key;
49
50/* If non-zero all calls to the symfile functions are logged. */
51static int debug_symfile = 0;
52
53/* Return non-zero if symfile debug logging is installed. */
54
55static int
56symfile_debug_installed (struct objfile *objfile)
57{
58 return (objfile->sf != NULL
59 && objfile_data (objfile, symfile_debug_objfile_data_key) != NULL);
60}
61
8fb8eb5c
DE
62/* Utility return the name to print for SYMTAB. */
63
64static const char *
65debug_symtab_name (struct symtab *symtab)
66{
67 return symtab_to_filename_for_display (symtab);
68}
69\f
70/* Debugging version of struct quick_symbol_functions. */
71
72static int
73debug_qf_has_symbols (struct objfile *objfile)
74{
19ba03f4
SM
75 const struct debug_sym_fns_data *debug_data
76 = ((const struct debug_sym_fns_data *)
77 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
78 int retval;
79
80 retval = debug_data->real_sf->qf->has_symbols (objfile);
81
82 fprintf_filtered (gdb_stdlog, "qf->has_symbols (%s) = %d\n",
cc485e62 83 objfile_debug_name (objfile), retval);
8fb8eb5c
DE
84
85 return retval;
86}
87
88static struct symtab *
89debug_qf_find_last_source_symtab (struct objfile *objfile)
90{
19ba03f4
SM
91 const struct debug_sym_fns_data *debug_data
92 = ((const struct debug_sym_fns_data *)
93 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
94 struct symtab *retval;
95
96 fprintf_filtered (gdb_stdlog, "qf->find_last_source_symtab (%s)\n",
cc485e62 97 objfile_debug_name (objfile));
8fb8eb5c
DE
98
99 retval = debug_data->real_sf->qf->find_last_source_symtab (objfile);
100
101 fprintf_filtered (gdb_stdlog, "qf->find_last_source_symtab (...) = %s\n",
102 retval ? debug_symtab_name (retval) : "NULL");
103
104 return retval;
105}
106
107static void
108debug_qf_forget_cached_source_info (struct objfile *objfile)
109{
19ba03f4
SM
110 const struct debug_sym_fns_data *debug_data
111 = ((const struct debug_sym_fns_data *)
112 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
113
114 fprintf_filtered (gdb_stdlog, "qf->forget_cached_source_info (%s)\n",
cc485e62 115 objfile_debug_name (objfile));
8fb8eb5c
DE
116
117 debug_data->real_sf->qf->forget_cached_source_info (objfile);
118}
119
14bc53a8
PA
120static bool
121debug_qf_map_symtabs_matching_filename
122 (struct objfile *objfile, const char *name, const char *real_path,
123 gdb::function_view<bool (symtab *)> callback)
8fb8eb5c 124{
19ba03f4
SM
125 const struct debug_sym_fns_data *debug_data
126 = ((const struct debug_sym_fns_data *)
127 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
128
129 fprintf_filtered (gdb_stdlog,
14bc53a8 130 "qf->map_symtabs_matching_filename (%s, \"%s\", \"%s\", %s)\n",
cc485e62 131 objfile_debug_name (objfile), name,
8fb8eb5c 132 real_path ? real_path : NULL,
14bc53a8 133 host_address_to_string (&callback));
8fb8eb5c 134
14bc53a8
PA
135 bool retval = (debug_data->real_sf->qf->map_symtabs_matching_filename
136 (objfile, name, real_path, callback));
8fb8eb5c
DE
137
138 fprintf_filtered (gdb_stdlog,
139 "qf->map_symtabs_matching_filename (...) = %d\n",
140 retval);
141
142 return retval;
143}
144
43f3e411 145static struct compunit_symtab *
8fb8eb5c
DE
146debug_qf_lookup_symbol (struct objfile *objfile, int kind, const char *name,
147 domain_enum domain)
148{
19ba03f4
SM
149 const struct debug_sym_fns_data *debug_data
150 = ((const struct debug_sym_fns_data *)
151 objfile_data (objfile, symfile_debug_objfile_data_key));
43f3e411 152 struct compunit_symtab *retval;
8fb8eb5c
DE
153
154 fprintf_filtered (gdb_stdlog,
155 "qf->lookup_symbol (%s, %d, \"%s\", %s)\n",
cc485e62 156 objfile_debug_name (objfile), kind, name,
8fb8eb5c
DE
157 domain_name (domain));
158
159 retval = debug_data->real_sf->qf->lookup_symbol (objfile, kind, name,
160 domain);
161
162 fprintf_filtered (gdb_stdlog, "qf->lookup_symbol (...) = %s\n",
43f3e411
DE
163 retval
164 ? debug_symtab_name (compunit_primary_filetab (retval))
165 : "NULL");
8fb8eb5c
DE
166
167 return retval;
168}
169
170static void
171debug_qf_print_stats (struct objfile *objfile)
172{
19ba03f4
SM
173 const struct debug_sym_fns_data *debug_data
174 = ((const struct debug_sym_fns_data *)
175 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
176
177 fprintf_filtered (gdb_stdlog, "qf->print_stats (%s)\n",
cc485e62 178 objfile_debug_name (objfile));
8fb8eb5c
DE
179
180 debug_data->real_sf->qf->print_stats (objfile);
181}
182
183static void
184debug_qf_dump (struct objfile *objfile)
185{
19ba03f4
SM
186 const struct debug_sym_fns_data *debug_data
187 = ((const struct debug_sym_fns_data *)
188 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
189
190 fprintf_filtered (gdb_stdlog, "qf->dump (%s)\n",
cc485e62 191 objfile_debug_name (objfile));
8fb8eb5c
DE
192
193 debug_data->real_sf->qf->dump (objfile);
194}
195
196static void
197debug_qf_relocate (struct objfile *objfile,
198 const struct section_offsets *new_offsets,
199 const struct section_offsets *delta)
200{
19ba03f4
SM
201 const struct debug_sym_fns_data *debug_data
202 = ((const struct debug_sym_fns_data *)
203 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
204
205 fprintf_filtered (gdb_stdlog, "qf->relocate (%s, %s, %s)\n",
cc485e62 206 objfile_debug_name (objfile),
8fb8eb5c
DE
207 host_address_to_string (new_offsets),
208 host_address_to_string (delta));
209
210 debug_data->real_sf->qf->relocate (objfile, new_offsets, delta);
211}
212
213static void
214debug_qf_expand_symtabs_for_function (struct objfile *objfile,
215 const char *func_name)
216{
19ba03f4
SM
217 const struct debug_sym_fns_data *debug_data
218 = ((const struct debug_sym_fns_data *)
219 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
220
221 fprintf_filtered (gdb_stdlog,
222 "qf->expand_symtabs_for_function (%s, \"%s\")\n",
cc485e62 223 objfile_debug_name (objfile), func_name);
8fb8eb5c
DE
224
225 debug_data->real_sf->qf->expand_symtabs_for_function (objfile, func_name);
226}
227
228static void
229debug_qf_expand_all_symtabs (struct objfile *objfile)
230{
19ba03f4
SM
231 const struct debug_sym_fns_data *debug_data
232 = ((const struct debug_sym_fns_data *)
233 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
234
235 fprintf_filtered (gdb_stdlog, "qf->expand_all_symtabs (%s)\n",
cc485e62 236 objfile_debug_name (objfile));
8fb8eb5c
DE
237
238 debug_data->real_sf->qf->expand_all_symtabs (objfile);
239}
240
241static void
242debug_qf_expand_symtabs_with_fullname (struct objfile *objfile,
243 const char *fullname)
244{
19ba03f4
SM
245 const struct debug_sym_fns_data *debug_data
246 = ((const struct debug_sym_fns_data *)
247 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
248
249 fprintf_filtered (gdb_stdlog,
250 "qf->expand_symtabs_with_fullname (%s, \"%s\")\n",
cc485e62 251 objfile_debug_name (objfile), fullname);
8fb8eb5c
DE
252
253 debug_data->real_sf->qf->expand_symtabs_with_fullname (objfile, fullname);
254}
255
256static void
257debug_qf_map_matching_symbols (struct objfile *objfile,
fe978cb0 258 const char *name, domain_enum domain,
8fb8eb5c
DE
259 int global,
260 int (*callback) (struct block *,
261 struct symbol *, void *),
262 void *data,
b5ec771e 263 symbol_name_match_type match,
8fb8eb5c
DE
264 symbol_compare_ftype *ordered_compare)
265{
19ba03f4
SM
266 const struct debug_sym_fns_data *debug_data
267 = ((const struct debug_sym_fns_data *)
268 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
269
270 fprintf_filtered (gdb_stdlog,
271 "qf->map_matching_symbols (%s, \"%s\", %s, %d, %s, %s, %s, %s)\n",
cc485e62 272 objfile_debug_name (objfile), name,
fe978cb0 273 domain_name (domain), global,
8fb8eb5c
DE
274 host_address_to_string (callback),
275 host_address_to_string (data),
b5ec771e 276 plongest ((LONGEST) match),
8fb8eb5c
DE
277 host_address_to_string (ordered_compare));
278
279 debug_data->real_sf->qf->map_matching_symbols (objfile, name,
fe978cb0 280 domain, global,
8fb8eb5c
DE
281 callback, data,
282 match,
283 ordered_compare);
284}
285
286static void
e86b67d3
JB
287debug_qf_expand_symtabs_matching
288 (struct objfile *objfile,
14bc53a8 289 gdb::function_view<expand_symtabs_file_matcher_ftype> file_matcher,
b5ec771e 290 const lookup_name_info &lookup_name,
14bc53a8
PA
291 gdb::function_view<expand_symtabs_symbol_matcher_ftype> symbol_matcher,
292 gdb::function_view<expand_symtabs_exp_notify_ftype> expansion_notify,
293 enum search_domain kind)
8fb8eb5c 294{
19ba03f4
SM
295 const struct debug_sym_fns_data *debug_data
296 = ((const struct debug_sym_fns_data *)
297 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
298
299 fprintf_filtered (gdb_stdlog,
14bc53a8 300 "qf->expand_symtabs_matching (%s, %s, %s, %s, %s)\n",
cc485e62 301 objfile_debug_name (objfile),
14bc53a8
PA
302 host_address_to_string (&file_matcher),
303 host_address_to_string (&symbol_matcher),
304 host_address_to_string (&expansion_notify),
305 search_domain_name (kind));
8fb8eb5c
DE
306
307 debug_data->real_sf->qf->expand_symtabs_matching (objfile,
308 file_matcher,
b5ec771e 309 lookup_name,
3f03e7b1 310 symbol_matcher,
276d885b 311 expansion_notify,
14bc53a8 312 kind);
8fb8eb5c
DE
313}
314
43f3e411
DE
315static struct compunit_symtab *
316debug_qf_find_pc_sect_compunit_symtab (struct objfile *objfile,
317 struct bound_minimal_symbol msymbol,
318 CORE_ADDR pc,
319 struct obj_section *section,
320 int warn_if_readin)
8fb8eb5c 321{
19ba03f4
SM
322 const struct debug_sym_fns_data *debug_data
323 = ((const struct debug_sym_fns_data *)
324 objfile_data (objfile, symfile_debug_objfile_data_key));
43f3e411 325 struct compunit_symtab *retval;
8fb8eb5c
DE
326
327 fprintf_filtered (gdb_stdlog,
43f3e411 328 "qf->find_pc_sect_compunit_symtab (%s, %s, %s, %s, %d)\n",
cc485e62 329 objfile_debug_name (objfile),
77e371c0 330 host_address_to_string (msymbol.minsym),
8fb8eb5c
DE
331 hex_string (pc),
332 host_address_to_string (section),
333 warn_if_readin);
334
43f3e411
DE
335 retval
336 = debug_data->real_sf->qf->find_pc_sect_compunit_symtab (objfile, msymbol,
337 pc, section,
338 warn_if_readin);
8fb8eb5c 339
43f3e411
DE
340 fprintf_filtered (gdb_stdlog,
341 "qf->find_pc_sect_compunit_symtab (...) = %s\n",
342 retval
343 ? debug_symtab_name (compunit_primary_filetab (retval))
344 : "NULL");
8fb8eb5c
DE
345
346 return retval;
347}
348
349static void
350debug_qf_map_symbol_filenames (struct objfile *objfile,
351 symbol_filename_ftype *fun, void *data,
352 int need_fullname)
353{
19ba03f4
SM
354 const struct debug_sym_fns_data *debug_data
355 = ((const struct debug_sym_fns_data *)
356 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
357 fprintf_filtered (gdb_stdlog,
358 "qf->map_symbol_filenames (%s, %s, %s, %d)\n",
cc485e62 359 objfile_debug_name (objfile),
8fb8eb5c
DE
360 host_address_to_string (fun),
361 host_address_to_string (data),
362 need_fullname);
363
364 debug_data->real_sf->qf->map_symbol_filenames (objfile, fun, data,
365 need_fullname);
366}
367
71a3c369
TT
368static struct compunit_symtab *
369debug_qf_find_compunit_symtab_by_address (struct objfile *objfile,
370 CORE_ADDR address)
371{
372 const struct debug_sym_fns_data *debug_data
373 = ((const struct debug_sym_fns_data *)
374 objfile_data (objfile, symfile_debug_objfile_data_key));
375 fprintf_filtered (gdb_stdlog,
376 "qf->find_compunit_symtab_by_address (%s, %s)\n",
377 objfile_debug_name (objfile),
378 hex_string (address));
379
380 struct compunit_symtab *result = NULL;
381 if (debug_data->real_sf->qf->map_symbol_filenames != NULL)
382 result
383 = debug_data->real_sf->qf->find_compunit_symtab_by_address (objfile,
384 address);
385
386 fprintf_filtered (gdb_stdlog,
387 "qf->find_compunit_symtab_by_address (...) = %s\n",
388 result
389 ? debug_symtab_name (compunit_primary_filetab (result))
390 : "NULL");
391
392 return result;
393}
394
8fb8eb5c
DE
395static const struct quick_symbol_functions debug_sym_quick_functions =
396{
397 debug_qf_has_symbols,
398 debug_qf_find_last_source_symtab,
399 debug_qf_forget_cached_source_info,
400 debug_qf_map_symtabs_matching_filename,
401 debug_qf_lookup_symbol,
402 debug_qf_print_stats,
403 debug_qf_dump,
404 debug_qf_relocate,
405 debug_qf_expand_symtabs_for_function,
406 debug_qf_expand_all_symtabs,
407 debug_qf_expand_symtabs_with_fullname,
408 debug_qf_map_matching_symbols,
409 debug_qf_expand_symtabs_matching,
43f3e411 410 debug_qf_find_pc_sect_compunit_symtab,
71a3c369 411 debug_qf_find_compunit_symtab_by_address,
8fb8eb5c
DE
412 debug_qf_map_symbol_filenames
413};
414\f
415/* Debugging version of struct sym_probe_fns. */
416
aaa63a31 417static const std::vector<probe *> &
8fb8eb5c
DE
418debug_sym_get_probes (struct objfile *objfile)
419{
19ba03f4
SM
420 const struct debug_sym_fns_data *debug_data
421 = ((const struct debug_sym_fns_data *)
422 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c 423
aaa63a31
SM
424 const std::vector<probe *> &retval
425 = debug_data->real_sf->sym_probe_fns->sym_get_probes (objfile);
8fb8eb5c
DE
426
427 fprintf_filtered (gdb_stdlog,
428 "probes->sym_get_probes (%s) = %s\n",
cc485e62 429 objfile_debug_name (objfile),
aaa63a31 430 host_address_to_string (retval.data ()));
8fb8eb5c
DE
431
432 return retval;
433}
434
8fb8eb5c
DE
435static const struct sym_probe_fns debug_sym_probe_fns =
436{
437 debug_sym_get_probes,
8fb8eb5c
DE
438};
439\f
440/* Debugging version of struct sym_fns. */
441
442static void
443debug_sym_new_init (struct objfile *objfile)
444{
19ba03f4
SM
445 const struct debug_sym_fns_data *debug_data
446 = ((const struct debug_sym_fns_data *)
447 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
448
449 fprintf_filtered (gdb_stdlog, "sf->sym_new_init (%s)\n",
cc485e62 450 objfile_debug_name (objfile));
8fb8eb5c
DE
451
452 debug_data->real_sf->sym_new_init (objfile);
453}
454
455static void
456debug_sym_init (struct objfile *objfile)
457{
19ba03f4
SM
458 const struct debug_sym_fns_data *debug_data
459 = ((const struct debug_sym_fns_data *)
460 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
461
462 fprintf_filtered (gdb_stdlog, "sf->sym_init (%s)\n",
cc485e62 463 objfile_debug_name (objfile));
8fb8eb5c
DE
464
465 debug_data->real_sf->sym_init (objfile);
466}
467
468static void
b15cc25c 469debug_sym_read (struct objfile *objfile, symfile_add_flags symfile_flags)
8fb8eb5c 470{
19ba03f4
SM
471 const struct debug_sym_fns_data *debug_data
472 = ((const struct debug_sym_fns_data *)
473 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
474
475 fprintf_filtered (gdb_stdlog, "sf->sym_read (%s, 0x%x)\n",
b15cc25c 476 objfile_debug_name (objfile), (unsigned) symfile_flags);
8fb8eb5c
DE
477
478 debug_data->real_sf->sym_read (objfile, symfile_flags);
479}
480
481static void
482debug_sym_read_psymbols (struct objfile *objfile)
483{
19ba03f4
SM
484 const struct debug_sym_fns_data *debug_data
485 = ((const struct debug_sym_fns_data *)
486 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
487
488 fprintf_filtered (gdb_stdlog, "sf->sym_read_psymbols (%s)\n",
cc485e62 489 objfile_debug_name (objfile));
8fb8eb5c
DE
490
491 debug_data->real_sf->sym_read_psymbols (objfile);
492}
493
494static void
495debug_sym_finish (struct objfile *objfile)
496{
19ba03f4
SM
497 const struct debug_sym_fns_data *debug_data
498 = ((const struct debug_sym_fns_data *)
499 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
500
501 fprintf_filtered (gdb_stdlog, "sf->sym_finish (%s)\n",
cc485e62 502 objfile_debug_name (objfile));
8fb8eb5c
DE
503
504 debug_data->real_sf->sym_finish (objfile);
505}
506
507static void
508debug_sym_offsets (struct objfile *objfile,
37e136b1 509 const section_addr_info &info)
8fb8eb5c 510{
19ba03f4
SM
511 const struct debug_sym_fns_data *debug_data
512 = ((const struct debug_sym_fns_data *)
513 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
514
515 fprintf_filtered (gdb_stdlog, "sf->sym_offsets (%s, %s)\n",
cc485e62 516 objfile_debug_name (objfile),
37e136b1 517 host_address_to_string (&info));
8fb8eb5c
DE
518
519 debug_data->real_sf->sym_offsets (objfile, info);
520}
521
522static struct symfile_segment_data *
523debug_sym_segments (bfd *abfd)
524{
525 /* This API function is annoying, it doesn't take a "this" pointer.
526 Fortunately it is only used in one place where we (re-)lookup the
527 sym_fns table to use. Thus we will never be called. */
528 gdb_assert_not_reached ("debug_sym_segments called");
529}
530
531static void
532debug_sym_read_linetable (struct objfile *objfile)
533{
19ba03f4
SM
534 const struct debug_sym_fns_data *debug_data
535 = ((const struct debug_sym_fns_data *)
536 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
537
538 fprintf_filtered (gdb_stdlog, "sf->sym_read_linetable (%s)\n",
cc485e62 539 objfile_debug_name (objfile));
8fb8eb5c
DE
540
541 debug_data->real_sf->sym_read_linetable (objfile);
542}
543
544static bfd_byte *
545debug_sym_relocate (struct objfile *objfile, asection *sectp, bfd_byte *buf)
546{
19ba03f4
SM
547 const struct debug_sym_fns_data *debug_data
548 = ((const struct debug_sym_fns_data *)
549 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
550 bfd_byte *retval;
551
552 retval = debug_data->real_sf->sym_relocate (objfile, sectp, buf);
553
554 fprintf_filtered (gdb_stdlog,
555 "sf->sym_relocate (%s, %s, %s) = %s\n",
cc485e62 556 objfile_debug_name (objfile),
8fb8eb5c
DE
557 host_address_to_string (sectp),
558 host_address_to_string (buf),
559 host_address_to_string (retval));
560
561 return retval;
562}
563
564/* Template of debugging version of struct sym_fns.
565 A copy is made, with sym_flavour updated, and a pointer to the real table
566 installed in real_sf, and then a pointer to the copy is installed in the
567 objfile. */
568
569static const struct sym_fns debug_sym_fns =
570{
571 debug_sym_new_init,
572 debug_sym_init,
573 debug_sym_read,
574 debug_sym_read_psymbols,
575 debug_sym_finish,
576 debug_sym_offsets,
577 debug_sym_segments,
578 debug_sym_read_linetable,
579 debug_sym_relocate,
580 &debug_sym_probe_fns,
581 &debug_sym_quick_functions
582};
583\f
584/* Free the copy of sym_fns recorded in the registry. */
585
586static void
587symfile_debug_free_objfile (struct objfile *objfile, void *datum)
588{
589 xfree (datum);
590}
591
592/* Install the debugging versions of the symfile functions for OBJFILE.
593 Do not call this if the debug versions are already installed. */
594
595static void
596install_symfile_debug_logging (struct objfile *objfile)
597{
598 const struct sym_fns *real_sf;
599 struct debug_sym_fns_data *debug_data;
600
601 /* The debug versions should not already be installed. */
602 gdb_assert (!symfile_debug_installed (objfile));
603
604 real_sf = objfile->sf;
605
606 /* Alas we have to preserve NULL entries in REAL_SF. */
41bf6aca 607 debug_data = XCNEW (struct debug_sym_fns_data);
8fb8eb5c
DE
608
609#define COPY_SF_PTR(from, to, name, func) \
610 do { \
611 if ((from)->name) \
612 (to)->debug_sf.name = func; \
613 } while (0)
614
615 COPY_SF_PTR (real_sf, debug_data, sym_new_init, debug_sym_new_init);
616 COPY_SF_PTR (real_sf, debug_data, sym_init, debug_sym_init);
617 COPY_SF_PTR (real_sf, debug_data, sym_read, debug_sym_read);
618 COPY_SF_PTR (real_sf, debug_data, sym_read_psymbols,
619 debug_sym_read_psymbols);
620 COPY_SF_PTR (real_sf, debug_data, sym_finish, debug_sym_finish);
621 COPY_SF_PTR (real_sf, debug_data, sym_offsets, debug_sym_offsets);
622 COPY_SF_PTR (real_sf, debug_data, sym_segments, debug_sym_segments);
623 COPY_SF_PTR (real_sf, debug_data, sym_read_linetable,
624 debug_sym_read_linetable);
625 COPY_SF_PTR (real_sf, debug_data, sym_relocate, debug_sym_relocate);
626 if (real_sf->sym_probe_fns)
627 debug_data->debug_sf.sym_probe_fns = &debug_sym_probe_fns;
628 debug_data->debug_sf.qf = &debug_sym_quick_functions;
629
630#undef COPY_SF_PTR
631
632 debug_data->real_sf = real_sf;
633 set_objfile_data (objfile, symfile_debug_objfile_data_key, debug_data);
634 objfile->sf = &debug_data->debug_sf;
635}
636
637/* Uninstall the debugging versions of the symfile functions for OBJFILE.
638 Do not call this if the debug versions are not installed. */
639
640static void
641uninstall_symfile_debug_logging (struct objfile *objfile)
642{
643 struct debug_sym_fns_data *debug_data;
644
645 /* The debug versions should be currently installed. */
646 gdb_assert (symfile_debug_installed (objfile));
647
19ba03f4
SM
648 debug_data = ((struct debug_sym_fns_data *)
649 objfile_data (objfile, symfile_debug_objfile_data_key));
8fb8eb5c
DE
650
651 objfile->sf = debug_data->real_sf;
652 xfree (debug_data);
653 set_objfile_data (objfile, symfile_debug_objfile_data_key, NULL);
654}
655
656/* Call this function to set OBJFILE->SF.
657 Do not set OBJFILE->SF directly. */
658
659void
660objfile_set_sym_fns (struct objfile *objfile, const struct sym_fns *sf)
661{
662 if (symfile_debug_installed (objfile))
663 {
664 gdb_assert (debug_symfile);
665 /* Remove the current one, and reinstall a new one later. */
666 uninstall_symfile_debug_logging (objfile);
667 }
668
669 /* Assume debug logging is disabled. */
670 objfile->sf = sf;
671
672 /* Turn debug logging on if enabled. */
673 if (debug_symfile)
674 install_symfile_debug_logging (objfile);
675}
676
677static void
eb4c3f4a 678set_debug_symfile (const char *args, int from_tty, struct cmd_list_element *c)
8fb8eb5c
DE
679{
680 struct program_space *pspace;
681 struct objfile *objfile;
682
683 ALL_PSPACES (pspace)
684 ALL_PSPACE_OBJFILES (pspace, objfile)
685 {
686 if (debug_symfile)
687 {
688 if (!symfile_debug_installed (objfile))
689 install_symfile_debug_logging (objfile);
690 }
691 else
692 {
693 if (symfile_debug_installed (objfile))
694 uninstall_symfile_debug_logging (objfile);
695 }
696 }
697}
698
699static void
700show_debug_symfile (struct ui_file *file, int from_tty,
701 struct cmd_list_element *c, const char *value)
702{
703 fprintf_filtered (file, _("Symfile debugging is %s.\n"), value);
704}
705
8fb8eb5c
DE
706void
707_initialize_symfile_debug (void)
708{
709 symfile_debug_objfile_data_key
710 = register_objfile_data_with_cleanup (NULL, symfile_debug_free_objfile);
711
712 add_setshow_boolean_cmd ("symfile", no_class, &debug_symfile, _("\
713Set debugging of the symfile functions."), _("\
714Show debugging of the symfile functions."), _("\
715When enabled, all calls to the symfile functions are logged."),
716 set_debug_symfile, show_debug_symfile,
717 &setdebuglist, &showdebuglist);
718
719 /* Note: We don't need a new-objfile observer because debug logging
720 will be installed when objfile init'n calls objfile_set_sym_fns. */
721}
This page took 0.625287 seconds and 4 git commands to generate.