1 /* Do various things to symbol tables (other than lookup), for GDB.
3 Copyright (C) 1986-2020 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 "gdb_obstack.h"
33 #include "gdb_regex.h"
35 #include "dictionary.h"
36 #include "typeprint.h"
39 #include "readline/tilde.h"
43 /* Unfortunately for debugging, stderr is usually a macro. This is painful
44 when calling functions that take FILE *'s from the debugger.
45 So we make a variable which has the same value and which is accessible when
46 debugging GDB with itself. Because stdin et al need not be constants,
47 we initialize them in the _initialize_symmisc function at the bottom
53 /* Prototypes for local functions */
55 static int block_depth (const struct block
*);
57 static void print_symbol (struct gdbarch
*gdbarch
, struct symbol
*symbol
,
58 int depth
, ui_file
*outfile
);
62 print_symbol_bcache_statistics (void)
64 struct program_space
*pspace
;
67 for (objfile
*objfile
: pspace
->objfiles ())
70 printf_filtered (_("Byte cache statistics for '%s':\n"),
71 objfile_name (objfile
));
72 objfile
->partial_symtabs
->psymbol_cache
.print_statistics
73 ("partial symbol cache");
74 objfile
->per_bfd
->string_cache
.print_statistics ("string cache");
79 print_objfile_statistics (void)
81 struct program_space
*pspace
;
82 int i
, linetables
, blockvectors
;
85 for (objfile
*objfile
: pspace
->objfiles ())
88 printf_filtered (_("Statistics for '%s':\n"), objfile_name (objfile
));
89 if (OBJSTAT (objfile
, n_stabs
) > 0)
90 printf_filtered (_(" Number of \"stab\" symbols read: %d\n"),
91 OBJSTAT (objfile
, n_stabs
));
92 if (objfile
->per_bfd
->n_minsyms
> 0)
93 printf_filtered (_(" Number of \"minimal\" symbols read: %d\n"),
94 objfile
->per_bfd
->n_minsyms
);
95 if (OBJSTAT (objfile
, n_psyms
) > 0)
96 printf_filtered (_(" Number of \"partial\" symbols read: %d\n"),
97 OBJSTAT (objfile
, n_psyms
));
98 if (OBJSTAT (objfile
, n_syms
) > 0)
99 printf_filtered (_(" Number of \"full\" symbols read: %d\n"),
100 OBJSTAT (objfile
, n_syms
));
101 if (OBJSTAT (objfile
, n_types
) > 0)
102 printf_filtered (_(" Number of \"types\" defined: %d\n"),
103 OBJSTAT (objfile
, n_types
));
105 objfile
->sf
->qf
->print_stats (objfile
);
107 for (compunit_symtab
*cu
: objfile
->compunits ())
109 for (symtab
*s
: compunit_filetabs (cu
))
112 if (SYMTAB_LINETABLE (s
) != NULL
)
116 blockvectors
= std::distance (objfile
->compunits ().begin (),
117 objfile
->compunits ().end ());
118 printf_filtered (_(" Number of symbol tables: %d\n"), i
);
119 printf_filtered (_(" Number of symbol tables with line tables: %d\n"),
121 printf_filtered (_(" Number of symbol tables with blockvectors: %d\n"),
124 if (OBJSTAT (objfile
, sz_strtab
) > 0)
125 printf_filtered (_(" Space used by string tables: %d\n"),
126 OBJSTAT (objfile
, sz_strtab
));
127 printf_filtered (_(" Total memory used for objfile obstack: %s\n"),
128 pulongest (obstack_memory_used (&objfile
129 ->objfile_obstack
)));
130 printf_filtered (_(" Total memory used for BFD obstack: %s\n"),
131 pulongest (obstack_memory_used (&objfile
->per_bfd
132 ->storage_obstack
)));
134 (_(" Total memory used for psymbol cache: %d\n"),
135 objfile
->partial_symtabs
->psymbol_cache
.memory_used ());
136 printf_filtered (_(" Total memory used for string cache: %d\n"),
137 objfile
->per_bfd
->string_cache
.memory_used ());
142 dump_objfile (struct objfile
*objfile
)
144 printf_filtered ("\nObject file %s: ", objfile_name (objfile
));
145 printf_filtered ("Objfile at ");
146 gdb_print_host_address (objfile
, gdb_stdout
);
147 printf_filtered (", bfd at ");
148 gdb_print_host_address (objfile
->obfd
, gdb_stdout
);
149 printf_filtered (", %d minsyms\n\n",
150 objfile
->per_bfd
->minimal_symbol_count
);
153 objfile
->sf
->qf
->dump (objfile
);
155 if (objfile
->compunit_symtabs
!= NULL
)
157 printf_filtered ("Symtabs:\n");
158 for (compunit_symtab
*cu
: objfile
->compunits ())
160 for (symtab
*symtab
: compunit_filetabs (cu
))
162 printf_filtered ("%s at ",
163 symtab_to_filename_for_display (symtab
));
164 gdb_print_host_address (symtab
, gdb_stdout
);
165 printf_filtered (", ");
166 if (SYMTAB_OBJFILE (symtab
) != objfile
)
168 printf_filtered ("NOT ON CHAIN! ");
173 printf_filtered ("\n\n");
177 /* Print minimal symbols from this objfile. */
180 dump_msymbols (struct objfile
*objfile
, struct ui_file
*outfile
)
182 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
186 fprintf_filtered (outfile
, "\nObject file %s:\n\n", objfile_name (objfile
));
187 if (objfile
->per_bfd
->minimal_symbol_count
== 0)
189 fprintf_filtered (outfile
, "No minimal symbols found.\n");
193 for (minimal_symbol
*msymbol
: objfile
->msymbols ())
195 struct obj_section
*section
= MSYMBOL_OBJ_SECTION (objfile
, msymbol
);
197 switch (MSYMBOL_TYPE (msymbol
))
205 case mst_text_gnu_ifunc
:
206 case mst_data_gnu_ifunc
:
209 case mst_solib_trampoline
:
234 fprintf_filtered (outfile
, "[%2d] %c ", index
, ms_type
);
236 /* Use the relocated address as shown in the symbol here -- do
237 not try to respect copy relocations. */
238 CORE_ADDR addr
= (msymbol
->value
.address
239 + objfile
->section_offsets
[msymbol
->section
]);
240 fputs_filtered (paddress (gdbarch
, addr
), outfile
);
241 fprintf_filtered (outfile
, " %s", msymbol
->linkage_name ());
244 if (section
->the_bfd_section
!= NULL
)
245 fprintf_filtered (outfile
, " section %s",
246 bfd_section_name (section
->the_bfd_section
));
248 fprintf_filtered (outfile
, " spurious section %ld",
249 (long) (section
- objfile
->sections
));
251 if (msymbol
->demangled_name () != NULL
)
253 fprintf_filtered (outfile
, " %s", msymbol
->demangled_name ());
255 if (msymbol
->filename
)
256 fprintf_filtered (outfile
, " %s", msymbol
->filename
);
257 fputs_filtered ("\n", outfile
);
260 if (objfile
->per_bfd
->minimal_symbol_count
!= index
)
262 warning (_("internal error: minimal symbol count %d != %d"),
263 objfile
->per_bfd
->minimal_symbol_count
, index
);
265 fprintf_filtered (outfile
, "\n");
269 dump_symtab_1 (struct symtab
*symtab
, struct ui_file
*outfile
)
271 struct objfile
*objfile
= SYMTAB_OBJFILE (symtab
);
272 struct gdbarch
*gdbarch
= get_objfile_arch (objfile
);
274 struct mdict_iterator miter
;
277 const struct blockvector
*bv
;
279 const struct block
*b
;
282 fprintf_filtered (outfile
, "\nSymtab for file %s\n",
283 symtab_to_filename_for_display (symtab
));
284 if (SYMTAB_DIRNAME (symtab
) != NULL
)
285 fprintf_filtered (outfile
, "Compilation directory is %s\n",
286 SYMTAB_DIRNAME (symtab
));
287 fprintf_filtered (outfile
, "Read from object file %s (",
288 objfile_name (objfile
));
289 gdb_print_host_address (objfile
, outfile
);
290 fprintf_filtered (outfile
, ")\n");
291 fprintf_filtered (outfile
, "Language: %s\n",
292 language_str (symtab
->language
));
294 /* First print the line table. */
295 l
= SYMTAB_LINETABLE (symtab
);
298 fprintf_filtered (outfile
, "\nLine table:\n\n");
300 for (i
= 0; i
< len
; i
++)
302 fprintf_filtered (outfile
, " line %d at ", l
->item
[i
].line
);
303 fputs_filtered (paddress (gdbarch
, l
->item
[i
].pc
), outfile
);
304 if (l
->item
[i
].is_stmt
)
305 fprintf_filtered (outfile
, "\t(stmt)");
306 fprintf_filtered (outfile
, "\n");
309 /* Now print the block info, but only for compunit symtabs since we will
310 print lots of duplicate info otherwise. */
311 if (symtab
== COMPUNIT_FILETABS (SYMTAB_COMPUNIT (symtab
)))
313 fprintf_filtered (outfile
, "\nBlockvector:\n\n");
314 bv
= SYMTAB_BLOCKVECTOR (symtab
);
315 len
= BLOCKVECTOR_NBLOCKS (bv
);
316 for (i
= 0; i
< len
; i
++)
318 b
= BLOCKVECTOR_BLOCK (bv
, i
);
319 depth
= block_depth (b
) * 2;
320 print_spaces (depth
, outfile
);
321 fprintf_filtered (outfile
, "block #%03d, object at ", i
);
322 gdb_print_host_address (b
, outfile
);
323 if (BLOCK_SUPERBLOCK (b
))
325 fprintf_filtered (outfile
, " under ");
326 gdb_print_host_address (BLOCK_SUPERBLOCK (b
), outfile
);
328 /* drow/2002-07-10: We could save the total symbols count
329 even if we're using a hashtable, but nothing else but this message
331 fprintf_filtered (outfile
, ", %d syms/buckets in ",
332 mdict_size (BLOCK_MULTIDICT (b
)));
333 fputs_filtered (paddress (gdbarch
, BLOCK_START (b
)), outfile
);
334 fprintf_filtered (outfile
, "..");
335 fputs_filtered (paddress (gdbarch
, BLOCK_END (b
)), outfile
);
336 if (BLOCK_FUNCTION (b
))
338 fprintf_filtered (outfile
, ", function %s",
339 BLOCK_FUNCTION (b
)->linkage_name ());
340 if (BLOCK_FUNCTION (b
)->demangled_name () != NULL
)
342 fprintf_filtered (outfile
, ", %s",
343 BLOCK_FUNCTION (b
)->demangled_name ());
346 fprintf_filtered (outfile
, "\n");
347 /* Now print each symbol in this block (in no particular order, if
348 we're using a hashtable). Note that we only want this
349 block, not any blocks from included symtabs. */
350 ALL_DICT_SYMBOLS (BLOCK_MULTIDICT (b
), miter
, sym
)
354 print_symbol (gdbarch
, sym
, depth
+ 1, outfile
);
356 catch (const gdb_exception_error
&ex
)
358 exception_fprintf (gdb_stderr
, ex
,
359 "Error printing symbol:\n");
363 fprintf_filtered (outfile
, "\n");
367 const char *compunit_filename
368 = symtab_to_filename_for_display (COMPUNIT_FILETABS (SYMTAB_COMPUNIT (symtab
)));
370 fprintf_filtered (outfile
,
371 "\nBlockvector same as owning compunit: %s\n\n",
377 dump_symtab (struct symtab
*symtab
, struct ui_file
*outfile
)
379 /* Set the current language to the language of the symtab we're dumping
380 because certain routines used during dump_symtab() use the current
381 language to print an image of the symbol. We'll restore it later.
382 But use only real languages, not placeholders. */
383 if (symtab
->language
!= language_unknown
384 && symtab
->language
!= language_auto
)
386 scoped_restore_current_language save_lang
;
387 set_language (symtab
->language
);
388 dump_symtab_1 (symtab
, outfile
);
391 dump_symtab_1 (symtab
, outfile
);
395 maintenance_print_symbols (const char *args
, int from_tty
)
397 struct ui_file
*outfile
= gdb_stdout
;
398 char *address_arg
= NULL
, *source_arg
= NULL
, *objfile_arg
= NULL
;
403 gdb_argv
argv (args
);
405 for (i
= 0; argv
!= NULL
&& argv
[i
] != NULL
; ++i
)
407 if (strcmp (argv
[i
], "-pc") == 0)
409 if (argv
[i
+ 1] == NULL
)
410 error (_("Missing pc value"));
411 address_arg
= argv
[++i
];
413 else if (strcmp (argv
[i
], "-source") == 0)
415 if (argv
[i
+ 1] == NULL
)
416 error (_("Missing source file"));
417 source_arg
= argv
[++i
];
419 else if (strcmp (argv
[i
], "-objfile") == 0)
421 if (argv
[i
+ 1] == NULL
)
422 error (_("Missing objfile name"));
423 objfile_arg
= argv
[++i
];
425 else if (strcmp (argv
[i
], "--") == 0)
427 /* End of options. */
431 else if (argv
[i
][0] == '-')
433 /* Future proofing: Don't allow OUTFILE to begin with "-". */
434 error (_("Unknown option: %s"), argv
[i
]);
441 if (address_arg
!= NULL
&& source_arg
!= NULL
)
442 error (_("Must specify at most one of -pc and -source"));
444 stdio_file arg_outfile
;
446 if (argv
!= NULL
&& argv
[outfile_idx
] != NULL
)
448 if (argv
[outfile_idx
+ 1] != NULL
)
449 error (_("Junk at end of command"));
450 gdb::unique_xmalloc_ptr
<char> outfile_name
451 (tilde_expand (argv
[outfile_idx
]));
452 if (!arg_outfile
.open (outfile_name
.get (), FOPEN_WT
))
453 perror_with_name (outfile_name
.get ());
454 outfile
= &arg_outfile
;
457 if (address_arg
!= NULL
)
459 CORE_ADDR pc
= parse_and_eval_address (address_arg
);
460 struct symtab
*s
= find_pc_line_symtab (pc
);
463 error (_("No symtab for address: %s"), address_arg
);
464 dump_symtab (s
, outfile
);
470 for (objfile
*objfile
: current_program_space
->objfiles ())
472 int print_for_objfile
= 1;
474 if (objfile_arg
!= NULL
)
476 = compare_filenames_for_search (objfile_name (objfile
),
478 if (!print_for_objfile
)
481 for (compunit_symtab
*cu
: objfile
->compunits ())
483 for (symtab
*s
: compunit_filetabs (cu
))
485 int print_for_source
= 0;
488 if (source_arg
!= NULL
)
491 = compare_filenames_for_search
492 (symtab_to_filename_for_display (s
), source_arg
);
495 if (source_arg
== NULL
497 dump_symtab (s
, outfile
);
502 if (source_arg
!= NULL
&& !found
)
503 error (_("No symtab for source file: %s"), source_arg
);
507 /* Print symbol SYMBOL on OUTFILE. DEPTH says how far to indent. */
510 print_symbol (struct gdbarch
*gdbarch
, struct symbol
*symbol
,
511 int depth
, ui_file
*outfile
)
513 struct obj_section
*section
;
515 if (SYMBOL_OBJFILE_OWNED (symbol
))
516 section
= SYMBOL_OBJ_SECTION (symbol_objfile (symbol
), symbol
);
520 print_spaces (depth
, outfile
);
521 if (SYMBOL_DOMAIN (symbol
) == LABEL_DOMAIN
)
523 fprintf_filtered (outfile
, "label %s at ", symbol
->print_name ());
524 fputs_filtered (paddress (gdbarch
, SYMBOL_VALUE_ADDRESS (symbol
)),
527 fprintf_filtered (outfile
, " section %s\n",
528 bfd_section_name (section
->the_bfd_section
));
530 fprintf_filtered (outfile
, "\n");
534 if (SYMBOL_DOMAIN (symbol
) == STRUCT_DOMAIN
)
536 if (TYPE_NAME (SYMBOL_TYPE (symbol
)))
538 LA_PRINT_TYPE (SYMBOL_TYPE (symbol
), "", outfile
, 1, depth
,
539 &type_print_raw_options
);
543 fprintf_filtered (outfile
, "%s %s = ",
544 (TYPE_CODE (SYMBOL_TYPE (symbol
)) == TYPE_CODE_ENUM
546 : (TYPE_CODE (SYMBOL_TYPE (symbol
)) == TYPE_CODE_STRUCT
547 ? "struct" : "union")),
548 symbol
->linkage_name ());
549 LA_PRINT_TYPE (SYMBOL_TYPE (symbol
), "", outfile
, 1, depth
,
550 &type_print_raw_options
);
552 fprintf_filtered (outfile
, ";\n");
556 if (SYMBOL_CLASS (symbol
) == LOC_TYPEDEF
)
557 fprintf_filtered (outfile
, "typedef ");
558 if (SYMBOL_TYPE (symbol
))
560 /* Print details of types, except for enums where it's clutter. */
561 LA_PRINT_TYPE (SYMBOL_TYPE (symbol
), symbol
->print_name (),
563 TYPE_CODE (SYMBOL_TYPE (symbol
)) != TYPE_CODE_ENUM
,
565 &type_print_raw_options
);
566 fprintf_filtered (outfile
, "; ");
569 fprintf_filtered (outfile
, "%s ", symbol
->print_name ());
571 switch (SYMBOL_CLASS (symbol
))
574 fprintf_filtered (outfile
, "const %s (%s)",
575 plongest (SYMBOL_VALUE (symbol
)),
576 hex_string (SYMBOL_VALUE (symbol
)));
579 case LOC_CONST_BYTES
:
582 struct type
*type
= check_typedef (SYMBOL_TYPE (symbol
));
584 fprintf_filtered (outfile
, "const %s hex bytes:",
585 pulongest (TYPE_LENGTH (type
)));
586 for (i
= 0; i
< TYPE_LENGTH (type
); i
++)
587 fprintf_filtered (outfile
, " %02x",
588 (unsigned) SYMBOL_VALUE_BYTES (symbol
)[i
]);
593 fprintf_filtered (outfile
, "static at ");
594 fputs_filtered (paddress (gdbarch
, SYMBOL_VALUE_ADDRESS (symbol
)),
597 fprintf_filtered (outfile
, " section %s",
598 bfd_section_name (section
->the_bfd_section
));
602 if (SYMBOL_IS_ARGUMENT (symbol
))
603 fprintf_filtered (outfile
, "parameter register %s",
604 plongest (SYMBOL_VALUE (symbol
)));
606 fprintf_filtered (outfile
, "register %s",
607 plongest (SYMBOL_VALUE (symbol
)));
611 fprintf_filtered (outfile
, "arg at offset %s",
612 hex_string (SYMBOL_VALUE (symbol
)));
616 fprintf_filtered (outfile
, "reference arg at %s",
617 hex_string (SYMBOL_VALUE (symbol
)));
620 case LOC_REGPARM_ADDR
:
621 fprintf_filtered (outfile
, "address parameter register %s",
622 plongest (SYMBOL_VALUE (symbol
)));
626 fprintf_filtered (outfile
, "local at offset %s",
627 hex_string (SYMBOL_VALUE (symbol
)));
634 fprintf_filtered (outfile
, "label at ");
635 fputs_filtered (paddress (gdbarch
, SYMBOL_VALUE_ADDRESS (symbol
)),
638 fprintf_filtered (outfile
, " section %s",
639 bfd_section_name (section
->the_bfd_section
));
643 fprintf_filtered (outfile
, "block object ");
644 gdb_print_host_address (SYMBOL_BLOCK_VALUE (symbol
), outfile
);
645 fprintf_filtered (outfile
, ", ");
646 fputs_filtered (paddress (gdbarch
,
647 BLOCK_START (SYMBOL_BLOCK_VALUE (symbol
))),
649 fprintf_filtered (outfile
, "..");
650 fputs_filtered (paddress (gdbarch
,
651 BLOCK_END (SYMBOL_BLOCK_VALUE (symbol
))),
654 fprintf_filtered (outfile
, " section %s",
655 bfd_section_name (section
->the_bfd_section
));
659 fprintf_filtered (outfile
, "computed at runtime");
663 fprintf_filtered (outfile
, "unresolved");
666 case LOC_OPTIMIZED_OUT
:
667 fprintf_filtered (outfile
, "optimized out");
671 fprintf_filtered (outfile
, "botched symbol class %x",
672 SYMBOL_CLASS (symbol
));
676 fprintf_filtered (outfile
, "\n");
680 maintenance_print_msymbols (const char *args
, int from_tty
)
682 struct ui_file
*outfile
= gdb_stdout
;
683 char *objfile_arg
= NULL
;
688 gdb_argv
argv (args
);
690 for (i
= 0; argv
!= NULL
&& argv
[i
] != NULL
; ++i
)
692 if (strcmp (argv
[i
], "-objfile") == 0)
694 if (argv
[i
+ 1] == NULL
)
695 error (_("Missing objfile name"));
696 objfile_arg
= argv
[++i
];
698 else if (strcmp (argv
[i
], "--") == 0)
700 /* End of options. */
704 else if (argv
[i
][0] == '-')
706 /* Future proofing: Don't allow OUTFILE to begin with "-". */
707 error (_("Unknown option: %s"), argv
[i
]);
714 stdio_file arg_outfile
;
716 if (argv
!= NULL
&& argv
[outfile_idx
] != NULL
)
718 if (argv
[outfile_idx
+ 1] != NULL
)
719 error (_("Junk at end of command"));
720 gdb::unique_xmalloc_ptr
<char> outfile_name
721 (tilde_expand (argv
[outfile_idx
]));
722 if (!arg_outfile
.open (outfile_name
.get (), FOPEN_WT
))
723 perror_with_name (outfile_name
.get ());
724 outfile
= &arg_outfile
;
727 for (objfile
*objfile
: current_program_space
->objfiles ())
730 if (objfile_arg
== NULL
731 || compare_filenames_for_search (objfile_name (objfile
), objfile_arg
))
732 dump_msymbols (objfile
, outfile
);
737 maintenance_print_objfiles (const char *regexp
, int from_tty
)
739 struct program_space
*pspace
;
747 for (objfile
*objfile
: pspace
->objfiles ())
751 || re_exec (objfile_name (objfile
)))
752 dump_objfile (objfile
);
756 /* List all the symbol tables whose names match REGEXP (optional). */
759 maintenance_info_symtabs (const char *regexp
, int from_tty
)
761 struct program_space
*pspace
;
769 for (objfile
*objfile
: pspace
->objfiles ())
771 /* We don't want to print anything for this objfile until we
772 actually find a symtab whose name matches. */
773 int printed_objfile_start
= 0;
775 for (compunit_symtab
*cust
: objfile
->compunits ())
777 int printed_compunit_symtab_start
= 0;
779 for (symtab
*symtab
: compunit_filetabs (cust
))
784 || re_exec (symtab_to_filename_for_display (symtab
)))
786 if (! printed_objfile_start
)
788 printf_filtered ("{ objfile %s ", objfile_name (objfile
));
790 printf_filtered ("((struct objfile *) %s)\n",
791 host_address_to_string (objfile
));
792 printed_objfile_start
= 1;
794 if (! printed_compunit_symtab_start
)
796 printf_filtered (" { ((struct compunit_symtab *) %s)\n",
797 host_address_to_string (cust
));
798 printf_filtered (" debugformat %s\n",
799 COMPUNIT_DEBUGFORMAT (cust
));
800 printf_filtered (" producer %s\n",
801 COMPUNIT_PRODUCER (cust
) != NULL
802 ? COMPUNIT_PRODUCER (cust
)
804 printf_filtered (" dirname %s\n",
805 COMPUNIT_DIRNAME (cust
) != NULL
806 ? COMPUNIT_DIRNAME (cust
)
808 printf_filtered (" blockvector"
809 " ((struct blockvector *) %s)\n",
810 host_address_to_string
811 (COMPUNIT_BLOCKVECTOR (cust
)));
812 printed_compunit_symtab_start
= 1;
815 printf_filtered ("\t{ symtab %s ",
816 symtab_to_filename_for_display (symtab
));
818 printf_filtered ("((struct symtab *) %s)\n",
819 host_address_to_string (symtab
));
820 printf_filtered ("\t fullname %s\n",
821 symtab
->fullname
!= NULL
824 printf_filtered ("\t "
825 "linetable ((struct linetable *) %s)\n",
826 host_address_to_string (symtab
->linetable
));
827 printf_filtered ("\t}\n");
831 if (printed_compunit_symtab_start
)
832 printf_filtered (" }\n");
835 if (printed_objfile_start
)
836 printf_filtered ("}\n");
840 /* Check consistency of symtabs.
841 An example of what this checks for is NULL blockvectors.
842 They can happen if there's a bug during debug info reading.
843 GDB assumes they are always non-NULL.
845 Note: This does not check for psymtab vs symtab consistency.
846 Use "maint check-psymtabs" for that. */
849 maintenance_check_symtabs (const char *ignore
, int from_tty
)
851 struct program_space
*pspace
;
854 for (objfile
*objfile
: pspace
->objfiles ())
856 /* We don't want to print anything for this objfile until we
857 actually find something worth printing. */
858 int printed_objfile_start
= 0;
860 for (compunit_symtab
*cust
: objfile
->compunits ())
862 int found_something
= 0;
863 struct symtab
*symtab
= compunit_primary_filetab (cust
);
867 if (COMPUNIT_BLOCKVECTOR (cust
) == NULL
)
869 /* Add more checks here. */
873 if (! printed_objfile_start
)
875 printf_filtered ("{ objfile %s ", objfile_name (objfile
));
877 printf_filtered ("((struct objfile *) %s)\n",
878 host_address_to_string (objfile
));
879 printed_objfile_start
= 1;
881 printf_filtered (" { symtab %s\n",
882 symtab_to_filename_for_display (symtab
));
883 if (COMPUNIT_BLOCKVECTOR (cust
) == NULL
)
884 printf_filtered (" NULL blockvector\n");
885 printf_filtered (" }\n");
889 if (printed_objfile_start
)
890 printf_filtered ("}\n");
894 /* Expand all symbol tables whose name matches an optional regexp. */
897 maintenance_expand_symtabs (const char *args
, int from_tty
)
899 struct program_space
*pspace
;
902 /* We use buildargv here so that we handle spaces in the regexp
903 in a way that allows adding more arguments later. */
904 gdb_argv
argv (args
);
912 error (_("Extra arguments after regexp."));
920 for (objfile
*objfile
: pspace
->objfiles ())
924 objfile
->sf
->qf
->expand_symtabs_matching
926 [&] (const char *filename
, bool basenames
)
928 /* KISS: Only apply the regexp to the complete file name. */
930 && (regexp
== NULL
|| re_exec (filename
)));
932 lookup_name_info::match_any (),
933 [] (const char *symname
)
935 /* Since we're not searching on symbols, just return true. */
945 /* Return the nexting depth of a block within other blocks in its symtab. */
948 block_depth (const struct block
*block
)
952 while ((block
= BLOCK_SUPERBLOCK (block
)) != NULL
)
960 /* Used by MAINTENANCE_INFO_LINE_TABLES to print the information about a
961 single line table. */
964 maintenance_print_one_line_table (struct symtab
*symtab
, void *data
)
966 struct linetable
*linetable
;
967 struct objfile
*objfile
;
969 objfile
= symtab
->compunit_symtab
->objfile
;
970 printf_filtered (_("objfile: %s ((struct objfile *) %s)\n"),
971 objfile_name (objfile
),
972 host_address_to_string (objfile
));
973 printf_filtered (_("compunit_symtab: ((struct compunit_symtab *) %s)\n"),
974 host_address_to_string (symtab
->compunit_symtab
));
975 printf_filtered (_("symtab: %s ((struct symtab *) %s)\n"),
976 symtab_to_fullname (symtab
),
977 host_address_to_string (symtab
));
978 linetable
= SYMTAB_LINETABLE (symtab
);
979 printf_filtered (_("linetable: ((struct linetable *) %s):\n"),
980 host_address_to_string (linetable
));
982 if (linetable
== NULL
)
983 printf_filtered (_("No line table.\n"));
984 else if (linetable
->nitems
<= 0)
985 printf_filtered (_("Line table has no lines.\n"));
990 /* Leave space for 6 digits of index and line number. After that the
991 tables will just not format as well. */
992 printf_filtered (_("%-6s %6s %s %s\n"),
993 _("INDEX"), _("LINE"), _("ADDRESS"), _("IS-STMT"));
995 for (i
= 0; i
< linetable
->nitems
; ++i
)
997 struct linetable_entry
*item
;
999 item
= &linetable
->item
[i
];
1000 printf_filtered ("%-6d ", i
);
1002 printf_filtered ("%6d ", item
->line
);
1004 printf_filtered ("%6s ", _("END"));
1005 printf_filtered ("%s%s\n",
1006 core_addr_to_string (item
->pc
),
1007 (item
->is_stmt
? " Y" : ""));
1014 /* Implement the 'maint info line-table' command. */
1017 maintenance_info_line_tables (const char *regexp
, int from_tty
)
1019 struct program_space
*pspace
;
1026 ALL_PSPACES (pspace
)
1027 for (objfile
*objfile
: pspace
->objfiles ())
1029 for (compunit_symtab
*cust
: objfile
->compunits ())
1031 for (symtab
*symtab
: compunit_filetabs (cust
))
1036 || re_exec (symtab_to_filename_for_display (symtab
)))
1037 maintenance_print_one_line_table (symtab
, NULL
);
1045 /* Do early runtime initializations. */
1047 void _initialize_symmisc ();
1049 _initialize_symmisc ()
1055 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
, _("\
1056 Print dump of current symbol definitions.\n\
1057 Usage: mt print symbols [-pc ADDRESS] [--] [OUTFILE]\n\
1058 mt print symbols [-objfile OBJFILE] [-source SOURCE] [--] [OUTFILE]\n\
1059 Entries in the full symbol table are dumped to file OUTFILE,\n\
1060 or the terminal if OUTFILE is unspecified.\n\
1061 If ADDRESS is provided, dump only the file for that address.\n\
1062 If SOURCE is provided, dump only that file's symbols.\n\
1063 If OBJFILE is provided, dump only that file's minimal symbols."),
1064 &maintenanceprintlist
);
1066 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
, _("\
1067 Print dump of current minimal symbol definitions.\n\
1068 Usage: mt print msymbols [-objfile OBJFILE] [--] [OUTFILE]\n\
1069 Entries in the minimal symbol table are dumped to file OUTFILE,\n\
1070 or the terminal if OUTFILE is unspecified.\n\
1071 If OBJFILE is provided, dump only that file's minimal symbols."),
1072 &maintenanceprintlist
);
1074 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
1075 _("Print dump of current object file definitions.\n\
1076 With an argument REGEXP, list the object files with matching names."),
1077 &maintenanceprintlist
);
1079 add_cmd ("symtabs", class_maintenance
, maintenance_info_symtabs
, _("\
1080 List the full symbol tables for all object files.\n\
1081 This does not include information about individual symbols, blocks, or\n\
1082 linetables --- just the symbol table structures themselves.\n\
1083 With an argument REGEXP, list the symbol tables with matching names."),
1084 &maintenanceinfolist
);
1086 add_cmd ("line-table", class_maintenance
, maintenance_info_line_tables
, _("\
1087 List the contents of all line tables, from all symbol tables.\n\
1088 With an argument REGEXP, list just the line tables for the symbol\n\
1089 tables with matching names."),
1090 &maintenanceinfolist
);
1092 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
1094 Check consistency of currently expanded symtabs."),
1097 add_cmd ("expand-symtabs", class_maintenance
, maintenance_expand_symtabs
,
1098 _("Expand symbol tables.\n\
1099 With an argument REGEXP, only expand the symbol tables with matching names."),