1 /* Do various things to symbol tables (other than lookup), for GDB.
3 Copyright (C) 1986-2023 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/>. */
24 #include "filenames.h"
27 #include "breakpoint.h"
29 #include "gdbsupport/gdb_obstack.h"
33 #include "gdbsupport/gdb_regex.h"
35 #include "dictionary.h"
36 #include "typeprint.h"
39 #include "readline/tilde.h"
40 #include <cli/cli-style.h>
41 #include "gdbsupport/buildargv.h"
43 /* Prototypes for local functions */
45 static int block_depth (const struct block
*);
47 static void print_symbol (struct gdbarch
*gdbarch
, struct symbol
*symbol
,
48 int depth
, ui_file
*outfile
);
52 print_objfile_statistics (void)
54 int i
, linetables
, blockvectors
;
56 for (struct program_space
*pspace
: program_spaces
)
57 for (objfile
*objfile
: pspace
->objfiles ())
60 gdb_printf (_("Statistics for '%s':\n"), objfile_name (objfile
));
61 if (OBJSTAT (objfile
, n_stabs
) > 0)
62 gdb_printf (_(" Number of \"stab\" symbols read: %d\n"),
63 OBJSTAT (objfile
, n_stabs
));
64 if (objfile
->per_bfd
->n_minsyms
> 0)
65 gdb_printf (_(" Number of \"minimal\" symbols read: %d\n"),
66 objfile
->per_bfd
->n_minsyms
);
67 if (OBJSTAT (objfile
, n_syms
) > 0)
68 gdb_printf (_(" Number of \"full\" symbols read: %d\n"),
69 OBJSTAT (objfile
, n_syms
));
70 if (OBJSTAT (objfile
, n_types
) > 0)
71 gdb_printf (_(" Number of \"types\" defined: %d\n"),
72 OBJSTAT (objfile
, n_types
));
75 for (compunit_symtab
*cu
: objfile
->compunits ())
77 for (symtab
*s
: cu
->filetabs ())
80 if (s
->linetable () != NULL
)
84 blockvectors
= std::distance (objfile
->compunits ().begin (),
85 objfile
->compunits ().end ());
86 gdb_printf (_(" Number of symbol tables: %d\n"), i
);
87 gdb_printf (_(" Number of symbol tables with line tables: %d\n"),
89 gdb_printf (_(" Number of symbol tables with blockvectors: %d\n"),
92 objfile
->print_stats (false);
94 if (OBJSTAT (objfile
, sz_strtab
) > 0)
95 gdb_printf (_(" Space used by string tables: %d\n"),
96 OBJSTAT (objfile
, sz_strtab
));
97 gdb_printf (_(" Total memory used for objfile obstack: %s\n"),
98 pulongest (obstack_memory_used (&objfile
100 gdb_printf (_(" Total memory used for BFD obstack: %s\n"),
101 pulongest (obstack_memory_used (&objfile
->per_bfd
102 ->storage_obstack
)));
104 gdb_printf (_(" Total memory used for string cache: %d\n"),
105 objfile
->per_bfd
->string_cache
.memory_used ());
106 gdb_printf (_("Byte cache statistics for '%s':\n"),
107 objfile_name (objfile
));
108 objfile
->per_bfd
->string_cache
.print_statistics ("string cache");
109 objfile
->print_stats (true);
114 dump_objfile (struct objfile
*objfile
)
116 gdb_printf ("\nObject file %s: ", objfile_name (objfile
));
117 gdb_printf ("Objfile at %s, bfd at %s, %d minsyms\n\n",
118 host_address_to_string (objfile
),
119 host_address_to_string (objfile
->obfd
.get ()),
120 objfile
->per_bfd
->minimal_symbol_count
);
124 if (objfile
->compunit_symtabs
!= NULL
)
126 gdb_printf ("Symtabs:\n");
127 for (compunit_symtab
*cu
: objfile
->compunits ())
129 for (symtab
*symtab
: cu
->filetabs ())
131 gdb_printf ("%s at %s",
132 symtab_to_filename_for_display (symtab
),
133 host_address_to_string (symtab
));
134 if (symtab
->compunit ()->objfile () != objfile
)
135 gdb_printf (", NOT ON CHAIN!");
143 /* Print minimal symbols from this objfile. */
146 dump_msymbols (struct objfile
*objfile
, struct ui_file
*outfile
)
148 struct gdbarch
*gdbarch
= objfile
->arch ();
152 gdb_printf (outfile
, "\nObject file %s:\n\n", objfile_name (objfile
));
153 if (objfile
->per_bfd
->minimal_symbol_count
== 0)
155 gdb_printf (outfile
, "No minimal symbols found.\n");
159 for (minimal_symbol
*msymbol
: objfile
->msymbols ())
161 struct obj_section
*section
= msymbol
->obj_section (objfile
);
163 switch (msymbol
->type ())
171 case mst_text_gnu_ifunc
:
172 case mst_data_gnu_ifunc
:
175 case mst_solib_trampoline
:
200 gdb_printf (outfile
, "[%2d] %c ", index
, ms_type
);
202 /* Use the relocated address as shown in the symbol here -- do
203 not try to respect copy relocations. */
204 CORE_ADDR addr
= (CORE_ADDR (msymbol
->unrelocated_address ())
205 + objfile
->section_offsets
[msymbol
->section_index ()]);
206 gdb_puts (paddress (gdbarch
, addr
), outfile
);
207 gdb_printf (outfile
, " %s", msymbol
->linkage_name ());
210 if (section
->the_bfd_section
!= NULL
)
211 gdb_printf (outfile
, " section %s",
212 bfd_section_name (section
->the_bfd_section
));
214 gdb_printf (outfile
, " spurious section %ld",
215 (long) (section
- objfile
->sections_start
));
217 if (msymbol
->demangled_name () != NULL
)
219 gdb_printf (outfile
, " %s", msymbol
->demangled_name ());
221 if (msymbol
->filename
)
222 gdb_printf (outfile
, " %s", msymbol
->filename
);
223 gdb_puts ("\n", outfile
);
226 if (objfile
->per_bfd
->minimal_symbol_count
!= index
)
228 warning (_("internal error: minimal symbol count %d != %d"),
229 objfile
->per_bfd
->minimal_symbol_count
, index
);
231 gdb_printf (outfile
, "\n");
235 dump_symtab_1 (struct symtab
*symtab
, struct ui_file
*outfile
)
237 struct objfile
*objfile
= symtab
->compunit ()->objfile ();
238 struct gdbarch
*gdbarch
= objfile
->arch ();
239 struct mdict_iterator miter
;
240 const struct linetable
*l
;
244 gdb_printf (outfile
, "\nSymtab for file %s at %s\n",
245 symtab_to_filename_for_display (symtab
),
246 host_address_to_string (symtab
));
248 if (symtab
->compunit ()->dirname () != NULL
)
249 gdb_printf (outfile
, "Compilation directory is %s\n",
250 symtab
->compunit ()->dirname ());
251 gdb_printf (outfile
, "Read from object file %s (%s)\n",
252 objfile_name (objfile
),
253 host_address_to_string (objfile
));
254 gdb_printf (outfile
, "Language: %s\n",
255 language_str (symtab
->language ()));
257 /* First print the line table. */
258 l
= symtab
->linetable ();
261 gdb_printf (outfile
, "\nLine table:\n\n");
263 for (int i
= 0; i
< len
; i
++)
265 gdb_printf (outfile
, " line %d at ", l
->item
[i
].line
);
266 gdb_puts (paddress (gdbarch
, l
->item
[i
].pc (objfile
)), outfile
);
267 if (l
->item
[i
].is_stmt
)
268 gdb_printf (outfile
, "\t(stmt)");
269 gdb_printf (outfile
, "\n");
272 /* Now print the block info, but only for compunit symtabs since we will
273 print lots of duplicate info otherwise. */
274 if (is_main_symtab_of_compunit_symtab (symtab
))
276 gdb_printf (outfile
, "\nBlockvector:\n\n");
277 const blockvector
*bv
= symtab
->compunit ()->blockvector ();
278 for (int i
= 0; i
< bv
->num_blocks (); i
++)
280 const block
*b
= bv
->block (i
);
281 depth
= block_depth (b
) * 2;
282 gdb_printf (outfile
, "%*sblock #%03d, object at %s",
284 host_address_to_string (b
));
285 if (b
->superblock ())
286 gdb_printf (outfile
, " under %s",
287 host_address_to_string (b
->superblock ()));
288 /* drow/2002-07-10: We could save the total symbols count
289 even if we're using a hashtable, but nothing else but this message
291 gdb_printf (outfile
, ", %d syms/buckets in ",
292 mdict_size (b
->multidict ()));
293 gdb_puts (paddress (gdbarch
, b
->start ()), outfile
);
294 gdb_printf (outfile
, "..");
295 gdb_puts (paddress (gdbarch
, b
->end ()), outfile
);
298 gdb_printf (outfile
, ", function %s",
299 b
->function ()->linkage_name ());
300 if (b
->function ()->demangled_name () != NULL
)
302 gdb_printf (outfile
, ", %s",
303 b
->function ()->demangled_name ());
306 gdb_printf (outfile
, "\n");
307 /* Now print each symbol in this block (in no particular order, if
308 we're using a hashtable). Note that we only want this
309 block, not any blocks from included symtabs. */
310 ALL_DICT_SYMBOLS (b
->multidict (), miter
, sym
)
314 print_symbol (gdbarch
, sym
, depth
+ 1, outfile
);
316 catch (const gdb_exception_error
&ex
)
318 exception_fprintf (gdb_stderr
, ex
,
319 "Error printing symbol:\n");
323 gdb_printf (outfile
, "\n");
327 compunit_symtab
*compunit
= symtab
->compunit ();
328 const char *compunit_filename
329 = symtab_to_filename_for_display (compunit
->primary_filetab ());
332 "\nBlockvector same as owning compunit: %s\n\n",
336 /* Print info about the user of this compunit_symtab, and the
337 compunit_symtabs included by this one. */
338 if (is_main_symtab_of_compunit_symtab (symtab
))
340 struct compunit_symtab
*cust
= symtab
->compunit ();
342 if (cust
->user
!= nullptr)
345 = host_address_to_string (cust
->user
->primary_filetab ());
346 gdb_printf (outfile
, "Compunit user: %s\n", addr
);
348 if (cust
->includes
!= nullptr)
349 for (int i
= 0; ; ++i
)
351 struct compunit_symtab
*include
= cust
->includes
[i
];
352 if (include
== nullptr)
355 = host_address_to_string (include
->primary_filetab ());
356 gdb_printf (outfile
, "Compunit include: %s\n", addr
);
362 dump_symtab (struct symtab
*symtab
, struct ui_file
*outfile
)
364 /* Set the current language to the language of the symtab we're dumping
365 because certain routines used during dump_symtab() use the current
366 language to print an image of the symbol. We'll restore it later.
367 But use only real languages, not placeholders. */
368 if (symtab
->language () != language_unknown
)
370 scoped_restore_current_language save_lang
;
371 set_language (symtab
->language ());
372 dump_symtab_1 (symtab
, outfile
);
375 dump_symtab_1 (symtab
, outfile
);
379 maintenance_print_symbols (const char *args
, int from_tty
)
381 struct ui_file
*outfile
= gdb_stdout
;
382 char *address_arg
= NULL
, *source_arg
= NULL
, *objfile_arg
= NULL
;
387 gdb_argv
argv (args
);
389 for (i
= 0; argv
!= NULL
&& argv
[i
] != NULL
; ++i
)
391 if (strcmp (argv
[i
], "-pc") == 0)
393 if (argv
[i
+ 1] == NULL
)
394 error (_("Missing pc value"));
395 address_arg
= argv
[++i
];
397 else if (strcmp (argv
[i
], "-source") == 0)
399 if (argv
[i
+ 1] == NULL
)
400 error (_("Missing source file"));
401 source_arg
= argv
[++i
];
403 else if (strcmp (argv
[i
], "-objfile") == 0)
405 if (argv
[i
+ 1] == NULL
)
406 error (_("Missing objfile name"));
407 objfile_arg
= argv
[++i
];
409 else if (strcmp (argv
[i
], "--") == 0)
411 /* End of options. */
415 else if (argv
[i
][0] == '-')
417 /* Future proofing: Don't allow OUTFILE to begin with "-". */
418 error (_("Unknown option: %s"), argv
[i
]);
425 if (address_arg
!= NULL
&& source_arg
!= NULL
)
426 error (_("Must specify at most one of -pc and -source"));
428 stdio_file arg_outfile
;
430 if (argv
!= NULL
&& argv
[outfile_idx
] != NULL
)
432 if (argv
[outfile_idx
+ 1] != NULL
)
433 error (_("Junk at end of command"));
434 gdb::unique_xmalloc_ptr
<char> outfile_name
435 (tilde_expand (argv
[outfile_idx
]));
436 if (!arg_outfile
.open (outfile_name
.get (), FOPEN_WT
))
437 perror_with_name (outfile_name
.get ());
438 outfile
= &arg_outfile
;
441 if (address_arg
!= NULL
)
443 CORE_ADDR pc
= parse_and_eval_address (address_arg
);
444 struct symtab
*s
= find_pc_line_symtab (pc
);
447 error (_("No symtab for address: %s"), address_arg
);
448 dump_symtab (s
, outfile
);
454 for (objfile
*objfile
: current_program_space
->objfiles ())
456 int print_for_objfile
= 1;
458 if (objfile_arg
!= NULL
)
460 = compare_filenames_for_search (objfile_name (objfile
),
462 if (!print_for_objfile
)
465 for (compunit_symtab
*cu
: objfile
->compunits ())
467 for (symtab
*s
: cu
->filetabs ())
469 int print_for_source
= 0;
472 if (source_arg
!= NULL
)
475 = compare_filenames_for_search
476 (symtab_to_filename_for_display (s
), source_arg
);
479 if (source_arg
== NULL
481 dump_symtab (s
, outfile
);
486 if (source_arg
!= NULL
&& !found
)
487 error (_("No symtab for source file: %s"), source_arg
);
491 /* Print symbol SYMBOL on OUTFILE. DEPTH says how far to indent. */
494 print_symbol (struct gdbarch
*gdbarch
, struct symbol
*symbol
,
495 int depth
, ui_file
*outfile
)
497 struct obj_section
*section
;
499 if (symbol
->is_objfile_owned ())
500 section
= symbol
->obj_section (symbol
->objfile ());
504 print_spaces (depth
, outfile
);
505 if (symbol
->domain () == LABEL_DOMAIN
)
507 gdb_printf (outfile
, "label %s at ", symbol
->print_name ());
508 gdb_puts (paddress (gdbarch
, symbol
->value_address ()),
511 gdb_printf (outfile
, " section %s\n",
512 bfd_section_name (section
->the_bfd_section
));
514 gdb_printf (outfile
, "\n");
518 if (symbol
->domain () == STRUCT_DOMAIN
)
520 if (symbol
->type ()->name ())
522 current_language
->print_type (symbol
->type (), "", outfile
, 1, depth
,
523 &type_print_raw_options
);
527 gdb_printf (outfile
, "%s %s = ",
528 (symbol
->type ()->code () == TYPE_CODE_ENUM
530 : (symbol
->type ()->code () == TYPE_CODE_STRUCT
531 ? "struct" : "union")),
532 symbol
->linkage_name ());
533 current_language
->print_type (symbol
->type (), "", outfile
, 1, depth
,
534 &type_print_raw_options
);
536 gdb_printf (outfile
, ";\n");
540 if (symbol
->aclass () == LOC_TYPEDEF
)
541 gdb_printf (outfile
, "typedef ");
544 /* Print details of types, except for enums where it's clutter. */
545 current_language
->print_type (symbol
->type (), symbol
->print_name (),
547 symbol
->type ()->code () != TYPE_CODE_ENUM
,
549 &type_print_raw_options
);
550 gdb_printf (outfile
, "; ");
553 gdb_printf (outfile
, "%s ", symbol
->print_name ());
555 switch (symbol
->aclass ())
558 gdb_printf (outfile
, "const %s (%s)",
559 plongest (symbol
->value_longest ()),
560 hex_string (symbol
->value_longest ()));
563 case LOC_CONST_BYTES
:
566 struct type
*type
= check_typedef (symbol
->type ());
568 gdb_printf (outfile
, "const %s hex bytes:",
569 pulongest (type
->length ()));
570 for (i
= 0; i
< type
->length (); i
++)
571 gdb_printf (outfile
, " %02x",
572 (unsigned) symbol
->value_bytes ()[i
]);
577 gdb_printf (outfile
, "static at ");
578 gdb_puts (paddress (gdbarch
, symbol
->value_address ()), outfile
);
580 gdb_printf (outfile
, " section %s",
581 bfd_section_name (section
->the_bfd_section
));
585 if (symbol
->is_argument ())
586 gdb_printf (outfile
, "parameter register %s",
587 plongest (symbol
->value_longest ()));
589 gdb_printf (outfile
, "register %s",
590 plongest (symbol
->value_longest ()));
594 gdb_printf (outfile
, "arg at offset %s",
595 hex_string (symbol
->value_longest ()));
599 gdb_printf (outfile
, "reference arg at %s",
600 hex_string (symbol
->value_longest ()));
603 case LOC_REGPARM_ADDR
:
604 gdb_printf (outfile
, "address parameter register %s",
605 plongest (symbol
->value_longest ()));
609 gdb_printf (outfile
, "local at offset %s",
610 hex_string (symbol
->value_longest ()));
617 gdb_printf (outfile
, "label at ");
618 gdb_puts (paddress (gdbarch
, symbol
->value_address ()), outfile
);
620 gdb_printf (outfile
, " section %s",
621 bfd_section_name (section
->the_bfd_section
));
626 (outfile
, "block object %s, %s..%s",
627 host_address_to_string (symbol
->value_block ()),
628 paddress (gdbarch
, symbol
->value_block()->start ()),
629 paddress (gdbarch
, symbol
->value_block()->end ()));
631 gdb_printf (outfile
, " section %s",
632 bfd_section_name (section
->the_bfd_section
));
636 gdb_printf (outfile
, "computed at runtime");
640 gdb_printf (outfile
, "unresolved");
643 case LOC_OPTIMIZED_OUT
:
644 gdb_printf (outfile
, "optimized out");
648 gdb_printf (outfile
, "botched symbol class %x",
653 gdb_printf (outfile
, "\n");
657 maintenance_print_msymbols (const char *args
, int from_tty
)
659 struct ui_file
*outfile
= gdb_stdout
;
660 char *objfile_arg
= NULL
;
665 gdb_argv
argv (args
);
667 for (i
= 0; argv
!= NULL
&& argv
[i
] != NULL
; ++i
)
669 if (strcmp (argv
[i
], "-objfile") == 0)
671 if (argv
[i
+ 1] == NULL
)
672 error (_("Missing objfile name"));
673 objfile_arg
= argv
[++i
];
675 else if (strcmp (argv
[i
], "--") == 0)
677 /* End of options. */
681 else if (argv
[i
][0] == '-')
683 /* Future proofing: Don't allow OUTFILE to begin with "-". */
684 error (_("Unknown option: %s"), argv
[i
]);
691 stdio_file arg_outfile
;
693 if (argv
!= NULL
&& argv
[outfile_idx
] != NULL
)
695 if (argv
[outfile_idx
+ 1] != NULL
)
696 error (_("Junk at end of command"));
697 gdb::unique_xmalloc_ptr
<char> outfile_name
698 (tilde_expand (argv
[outfile_idx
]));
699 if (!arg_outfile
.open (outfile_name
.get (), FOPEN_WT
))
700 perror_with_name (outfile_name
.get ());
701 outfile
= &arg_outfile
;
704 for (objfile
*objfile
: current_program_space
->objfiles ())
707 if (objfile_arg
== NULL
708 || compare_filenames_for_search (objfile_name (objfile
), objfile_arg
))
709 dump_msymbols (objfile
, outfile
);
714 maintenance_print_objfiles (const char *regexp
, int from_tty
)
721 for (struct program_space
*pspace
: program_spaces
)
722 for (objfile
*objfile
: pspace
->objfiles ())
726 || re_exec (objfile_name (objfile
)))
727 dump_objfile (objfile
);
731 /* List all the symbol tables whose names match REGEXP (optional). */
734 maintenance_info_symtabs (const char *regexp
, int from_tty
)
741 for (struct program_space
*pspace
: program_spaces
)
742 for (objfile
*objfile
: pspace
->objfiles ())
744 /* We don't want to print anything for this objfile until we
745 actually find a symtab whose name matches. */
746 int printed_objfile_start
= 0;
748 for (compunit_symtab
*cust
: objfile
->compunits ())
750 int printed_compunit_symtab_start
= 0;
752 for (symtab
*symtab
: cust
->filetabs ())
757 || re_exec (symtab_to_filename_for_display (symtab
)))
759 if (! printed_objfile_start
)
761 gdb_printf ("{ objfile %s ", objfile_name (objfile
));
762 gdb_stdout
->wrap_here (2);
763 gdb_printf ("((struct objfile *) %s)\n",
764 host_address_to_string (objfile
));
765 printed_objfile_start
= 1;
767 if (! printed_compunit_symtab_start
)
769 gdb_printf (" { ((struct compunit_symtab *) %s)\n",
770 host_address_to_string (cust
));
771 gdb_printf (" debugformat %s\n",
772 cust
->debugformat ());
773 gdb_printf (" producer %s\n",
774 (cust
->producer () != nullptr
775 ? cust
->producer () : "(null)"));
776 gdb_printf (" name %s\n", cust
->name
);
777 gdb_printf (" dirname %s\n",
778 (cust
->dirname () != NULL
779 ? cust
->dirname () : "(null)"));
780 gdb_printf (" blockvector"
781 " ((struct blockvector *) %s)\n",
782 host_address_to_string
783 (cust
->blockvector ()));
785 " ((struct compunit_symtab *) %s)\n",
786 cust
->user
!= nullptr
787 ? host_address_to_string (cust
->user
)
789 if (cust
->includes
!= nullptr)
791 gdb_printf (" ( includes\n");
792 for (int i
= 0; ; ++i
)
794 struct compunit_symtab
*include
796 if (include
== nullptr)
799 = host_address_to_string (include
);
800 gdb_printf (" (%s %s)\n",
801 "(struct compunit_symtab *)",
806 printed_compunit_symtab_start
= 1;
809 gdb_printf ("\t{ symtab %s ",
810 symtab_to_filename_for_display (symtab
));
811 gdb_stdout
->wrap_here (4);
812 gdb_printf ("((struct symtab *) %s)\n",
813 host_address_to_string (symtab
));
814 gdb_printf ("\t fullname %s\n",
815 symtab
->fullname
!= NULL
819 "linetable ((struct linetable *) %s)\n",
820 host_address_to_string
821 (symtab
->linetable ()));
822 gdb_printf ("\t}\n");
826 if (printed_compunit_symtab_start
)
830 if (printed_objfile_start
)
835 /* Check consistency of symtabs.
836 An example of what this checks for is NULL blockvectors.
837 They can happen if there's a bug during debug info reading.
838 GDB assumes they are always non-NULL.
840 Note: This does not check for psymtab vs symtab consistency.
841 Use "maint check-psymtabs" for that. */
844 maintenance_check_symtabs (const char *ignore
, int from_tty
)
846 for (struct program_space
*pspace
: program_spaces
)
847 for (objfile
*objfile
: pspace
->objfiles ())
849 /* We don't want to print anything for this objfile until we
850 actually find something worth printing. */
851 int printed_objfile_start
= 0;
853 for (compunit_symtab
*cust
: objfile
->compunits ())
855 int found_something
= 0;
856 struct symtab
*symtab
= cust
->primary_filetab ();
860 if (cust
->blockvector () == NULL
)
862 /* Add more checks here. */
866 if (! printed_objfile_start
)
868 gdb_printf ("{ objfile %s ", objfile_name (objfile
));
869 gdb_stdout
->wrap_here (2);
870 gdb_printf ("((struct objfile *) %s)\n",
871 host_address_to_string (objfile
));
872 printed_objfile_start
= 1;
874 gdb_printf (" { symtab %s\n",
875 symtab_to_filename_for_display (symtab
));
876 if (cust
->blockvector () == NULL
)
877 gdb_printf (" NULL blockvector\n");
882 if (printed_objfile_start
)
887 /* Expand all symbol tables whose name matches an optional regexp. */
890 maintenance_expand_symtabs (const char *args
, int from_tty
)
894 /* We use buildargv here so that we handle spaces in the regexp
895 in a way that allows adding more arguments later. */
896 gdb_argv
argv (args
);
904 error (_("Extra arguments after regexp."));
911 for (struct program_space
*pspace
: program_spaces
)
912 for (objfile
*objfile
: pspace
->objfiles ())
913 objfile
->expand_symtabs_matching
914 ([&] (const char *filename
, bool basenames
)
916 /* KISS: Only apply the regexp to the complete file name. */
918 && (regexp
== NULL
|| re_exec (filename
)));
923 SEARCH_GLOBAL_BLOCK
| SEARCH_STATIC_BLOCK
,
929 /* Return the nexting depth of a block within other blocks in its symtab. */
932 block_depth (const struct block
*block
)
936 while ((block
= block
->superblock ()) != NULL
)
944 /* Used by MAINTENANCE_INFO_LINE_TABLES to print the information about a
945 single line table. */
948 maintenance_print_one_line_table (struct symtab
*symtab
, void *data
)
950 const struct linetable
*linetable
;
951 struct objfile
*objfile
;
953 objfile
= symtab
->compunit ()->objfile ();
954 gdb_printf (_("objfile: %ps ((struct objfile *) %s)\n"),
955 styled_string (file_name_style
.style (),
956 objfile_name (objfile
)),
957 host_address_to_string (objfile
));
958 gdb_printf (_("compunit_symtab: %s ((struct compunit_symtab *) %s)\n"),
959 symtab
->compunit ()->name
,
960 host_address_to_string (symtab
->compunit ()));
961 gdb_printf (_("symtab: %ps ((struct symtab *) %s)\n"),
962 styled_string (file_name_style
.style (),
963 symtab_to_fullname (symtab
)),
964 host_address_to_string (symtab
));
965 linetable
= symtab
->linetable ();
966 gdb_printf (_("linetable: ((struct linetable *) %s):\n"),
967 host_address_to_string (linetable
));
969 if (linetable
== NULL
)
970 gdb_printf (_("No line table.\n"));
971 else if (linetable
->nitems
<= 0)
972 gdb_printf (_("Line table has no lines.\n"));
975 /* Leave space for 6 digits of index and line number. After that the
976 tables will just not format as well. */
977 struct ui_out
*uiout
= current_uiout
;
978 ui_out_emit_table
table_emitter (uiout
, 6, -1, "line-table");
979 uiout
->table_header (6, ui_left
, "index", _("INDEX"));
980 uiout
->table_header (6, ui_left
, "line", _("LINE"));
981 uiout
->table_header (18, ui_left
, "rel-address", _("REL-ADDRESS"));
982 uiout
->table_header (18, ui_left
, "unrel-address", _("UNREL-ADDRESS"));
983 uiout
->table_header (7, ui_left
, "is-stmt", _("IS-STMT"));
984 uiout
->table_header (12, ui_left
, "prologue-end", _("PROLOGUE-END"));
985 uiout
->table_body ();
987 for (int i
= 0; i
< linetable
->nitems
; ++i
)
989 const linetable_entry
*item
;
991 item
= &linetable
->item
[i
];
992 ui_out_emit_tuple
tuple_emitter (uiout
, nullptr);
993 uiout
->field_signed ("index", i
);
995 uiout
->field_signed ("line", item
->line
);
997 uiout
->field_string ("line", _("END"));
998 uiout
->field_core_addr ("rel-address", objfile
->arch (),
1000 uiout
->field_core_addr ("unrel-address", objfile
->arch (),
1001 CORE_ADDR (item
->raw_pc ()));
1002 uiout
->field_string ("is-stmt", item
->is_stmt
? "Y" : "");
1003 uiout
->field_string ("prologue-end", item
->prologue_end
? "Y" : "");
1011 /* Implement the 'maint info line-table' command. */
1014 maintenance_info_line_tables (const char *regexp
, int from_tty
)
1021 for (struct program_space
*pspace
: program_spaces
)
1022 for (objfile
*objfile
: pspace
->objfiles ())
1024 for (compunit_symtab
*cust
: objfile
->compunits ())
1026 for (symtab
*symtab
: cust
->filetabs ())
1031 || re_exec (symtab_to_filename_for_display (symtab
)))
1033 maintenance_print_one_line_table (symtab
, NULL
);
1043 /* Do early runtime initializations. */
1045 void _initialize_symmisc ();
1047 _initialize_symmisc ()
1049 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
, _("\
1050 Print dump of current symbol definitions.\n\
1051 Usage: mt print symbols [-pc ADDRESS] [--] [OUTFILE]\n\
1052 mt print symbols [-objfile OBJFILE] [-source SOURCE] [--] [OUTFILE]\n\
1053 Entries in the full symbol table are dumped to file OUTFILE,\n\
1054 or the terminal if OUTFILE is unspecified.\n\
1055 If ADDRESS is provided, dump only the file for that address.\n\
1056 If SOURCE is provided, dump only that file's symbols.\n\
1057 If OBJFILE is provided, dump only that file's minimal symbols."),
1058 &maintenanceprintlist
);
1060 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
, _("\
1061 Print dump of current minimal symbol definitions.\n\
1062 Usage: mt print msymbols [-objfile OBJFILE] [--] [OUTFILE]\n\
1063 Entries in the minimal symbol table are dumped to file OUTFILE,\n\
1064 or the terminal if OUTFILE is unspecified.\n\
1065 If OBJFILE is provided, dump only that file's minimal symbols."),
1066 &maintenanceprintlist
);
1068 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
1069 _("Print dump of current object file definitions.\n\
1070 With an argument REGEXP, list the object files with matching names."),
1071 &maintenanceprintlist
);
1073 add_cmd ("symtabs", class_maintenance
, maintenance_info_symtabs
, _("\
1074 List the full symbol tables for all object files.\n\
1075 This does not include information about individual symbols, blocks, or\n\
1076 linetables --- just the symbol table structures themselves.\n\
1077 With an argument REGEXP, list the symbol tables with matching names."),
1078 &maintenanceinfolist
);
1080 add_cmd ("line-table", class_maintenance
, maintenance_info_line_tables
, _("\
1081 List the contents of all line tables, from all symbol tables.\n\
1082 With an argument REGEXP, list just the line tables for the symbol\n\
1083 tables with matching names."),
1084 &maintenanceinfolist
);
1086 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
1088 Check consistency of currently expanded symtabs."),
1091 add_cmd ("expand-symtabs", class_maintenance
, maintenance_expand_symtabs
,
1092 _("Expand symbol tables.\n\
1093 With an argument REGEXP, only expand the symbol tables with matching names."),