1 /* Support for GDB maintenance commands.
3 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
4 2003, 2004, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
6 Written by Fred Fish at Cygnus Support.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
25 #include "arch-utils.h"
34 #include "expression.h" /* For language.h */
39 #include "gdb_assert.h"
41 #include "cli/cli-decode.h"
43 extern void _initialize_maint_cmds (void);
45 static void maintenance_command (char *, int);
47 static void maintenance_internal_error (char *args
, int from_tty
);
49 static void maintenance_demangle (char *, int);
51 static void maintenance_time_display (char *, int);
53 static void maintenance_space_display (char *, int);
55 static void maintenance_info_command (char *, int);
57 static void maintenance_info_sections (char *, int);
59 static void maintenance_print_command (char *, int);
61 static void maintenance_do_deprecate (char *, int);
63 /* Set this to the maximum number of seconds to wait instead of waiting forever
64 in target_wait(). If this timer times out, then it generates an error and
65 the command is aborted. This replaces most of the need for timeouts in the
66 GDB test suite, and makes it possible to distinguish between a hung target
67 and one with slow communications. */
71 show_watchdog (struct ui_file
*file
, int from_tty
,
72 struct cmd_list_element
*c
, const char *value
)
74 fprintf_filtered (file
, _("Watchdog timer is %s.\n"), value
);
81 maintenance_command -- access the maintenance subcommands
85 void maintenance_command (char *args, int from_tty)
92 maintenance_command (char *args
, int from_tty
)
94 printf_unfiltered (_("\"maintenance\" must be followed by "
95 "the name of a maintenance command.\n"));
96 help_list (maintenancelist
, "maintenance ", -1, gdb_stdout
);
101 maintenance_dump_me (char *args
, int from_tty
)
103 if (query (_("Should GDB dump core? ")))
106 /* SIGQUIT by default is ignored, so use SIGABRT instead. */
107 signal (SIGABRT
, SIG_DFL
);
108 kill (getpid (), SIGABRT
);
110 signal (SIGQUIT
, SIG_DFL
);
111 kill (getpid (), SIGQUIT
);
117 /* Stimulate the internal error mechanism that GDB uses when an
118 internal problem is detected. Allows testing of the mechanism.
119 Also useful when the user wants to drop a core file but not exit
123 maintenance_internal_error (char *args
, int from_tty
)
125 internal_error (__FILE__
, __LINE__
, "%s", (args
== NULL
? "" : args
));
128 /* Stimulate the internal error mechanism that GDB uses when an
129 internal problem is detected. Allows testing of the mechanism.
130 Also useful when the user wants to drop a core file but not exit
134 maintenance_internal_warning (char *args
, int from_tty
)
136 internal_warning (__FILE__
, __LINE__
, "%s", (args
== NULL
? "" : args
));
139 /* Someday we should allow demangling for things other than just
140 explicit strings. For example, we might want to be able to specify
141 the address of a string in either GDB's process space or the
142 debuggee's process space, and have gdb fetch and demangle that
143 string. If we have a char* pointer "ptr" that points to a string,
144 we might want to be able to given just the name and have GDB
145 demangle and print what it points to, etc. (FIXME) */
148 maintenance_demangle (char *args
, int from_tty
)
152 if (args
== NULL
|| *args
== '\0')
154 printf_unfiltered (_("\"maintenance demangle\" takes "
155 "an argument to demangle.\n"));
159 demangled
= language_demangle (current_language
, args
,
160 DMGL_ANSI
| DMGL_PARAMS
);
161 if (demangled
!= NULL
)
163 printf_unfiltered ("%s\n", demangled
);
168 printf_unfiltered (_("Can't demangle \"%s\"\n"), args
);
174 maintenance_time_display (char *args
, int from_tty
)
176 if (args
== NULL
|| *args
== '\0')
177 printf_unfiltered (_("\"maintenance time\" takes a numeric argument.\n"));
179 set_display_time (strtol (args
, NULL
, 10));
183 maintenance_space_display (char *args
, int from_tty
)
185 if (args
== NULL
|| *args
== '\0')
186 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
188 set_display_space (strtol (args
, NULL
, 10));
191 /* The "maintenance info" command is defined as a prefix, with
192 allow_unknown 0. Therefore, its own definition is called only for
193 "maintenance info" with no args. */
196 maintenance_info_command (char *arg
, int from_tty
)
198 printf_unfiltered (_("\"maintenance info\" must be followed "
199 "by the name of an info command.\n"));
200 help_list (maintenanceinfolist
, "maintenance info ", -1, gdb_stdout
);
203 /* Mini tokenizing lexer for 'maint info sections' command. */
206 match_substring (const char *string
, const char *substr
)
208 int substr_len
= strlen(substr
);
211 while ((tok
= strstr (string
, substr
)) != NULL
)
213 /* Got a partial match. Is it a whole word? */
218 /* Token is delimited at the front... */
219 if (tok
[substr_len
] == ' '
220 || tok
[substr_len
] == '\t'
221 || tok
[substr_len
] == '\0')
223 /* Token is delimited at the rear. Got a whole-word match. */
227 /* Token didn't match as a whole word. Advance and try again. */
234 match_bfd_flags (char *string
, flagword flags
)
236 if (flags
& SEC_ALLOC
)
237 if (match_substring (string
, "ALLOC"))
239 if (flags
& SEC_LOAD
)
240 if (match_substring (string
, "LOAD"))
242 if (flags
& SEC_RELOC
)
243 if (match_substring (string
, "RELOC"))
245 if (flags
& SEC_READONLY
)
246 if (match_substring (string
, "READONLY"))
248 if (flags
& SEC_CODE
)
249 if (match_substring (string
, "CODE"))
251 if (flags
& SEC_DATA
)
252 if (match_substring (string
, "DATA"))
255 if (match_substring (string
, "ROM"))
257 if (flags
& SEC_CONSTRUCTOR
)
258 if (match_substring (string
, "CONSTRUCTOR"))
260 if (flags
& SEC_HAS_CONTENTS
)
261 if (match_substring (string
, "HAS_CONTENTS"))
263 if (flags
& SEC_NEVER_LOAD
)
264 if (match_substring (string
, "NEVER_LOAD"))
266 if (flags
& SEC_COFF_SHARED_LIBRARY
)
267 if (match_substring (string
, "COFF_SHARED_LIBRARY"))
269 if (flags
& SEC_IS_COMMON
)
270 if (match_substring (string
, "IS_COMMON"))
277 print_bfd_flags (flagword flags
)
279 if (flags
& SEC_ALLOC
)
280 printf_filtered (" ALLOC");
281 if (flags
& SEC_LOAD
)
282 printf_filtered (" LOAD");
283 if (flags
& SEC_RELOC
)
284 printf_filtered (" RELOC");
285 if (flags
& SEC_READONLY
)
286 printf_filtered (" READONLY");
287 if (flags
& SEC_CODE
)
288 printf_filtered (" CODE");
289 if (flags
& SEC_DATA
)
290 printf_filtered (" DATA");
292 printf_filtered (" ROM");
293 if (flags
& SEC_CONSTRUCTOR
)
294 printf_filtered (" CONSTRUCTOR");
295 if (flags
& SEC_HAS_CONTENTS
)
296 printf_filtered (" HAS_CONTENTS");
297 if (flags
& SEC_NEVER_LOAD
)
298 printf_filtered (" NEVER_LOAD");
299 if (flags
& SEC_COFF_SHARED_LIBRARY
)
300 printf_filtered (" COFF_SHARED_LIBRARY");
301 if (flags
& SEC_IS_COMMON
)
302 printf_filtered (" IS_COMMON");
306 maint_print_section_info (const char *name
, flagword flags
,
307 CORE_ADDR addr
, CORE_ADDR endaddr
,
308 unsigned long filepos
, int addr_size
)
310 printf_filtered (" %s", hex_string_custom (addr
, addr_size
));
311 printf_filtered ("->%s", hex_string_custom (endaddr
, addr_size
));
312 printf_filtered (" at %s",
313 hex_string_custom ((unsigned long) filepos
, 8));
314 printf_filtered (": %s", name
);
315 print_bfd_flags (flags
);
316 printf_filtered ("\n");
320 print_bfd_section_info (bfd
*abfd
,
324 flagword flags
= bfd_get_section_flags (abfd
, asect
);
325 const char *name
= bfd_section_name (abfd
, asect
);
327 if (arg
== NULL
|| *((char *) arg
) == '\0'
328 || match_substring ((char *) arg
, name
)
329 || match_bfd_flags ((char *) arg
, flags
))
331 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
332 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
333 CORE_ADDR addr
, endaddr
;
335 addr
= bfd_section_vma (abfd
, asect
);
336 endaddr
= addr
+ bfd_section_size (abfd
, asect
);
337 maint_print_section_info (name
, flags
, addr
, endaddr
,
338 asect
->filepos
, addr_size
);
343 print_objfile_section_info (bfd
*abfd
,
344 struct obj_section
*asect
,
347 flagword flags
= bfd_get_section_flags (abfd
, asect
->the_bfd_section
);
348 const char *name
= bfd_section_name (abfd
, asect
->the_bfd_section
);
350 if (string
== NULL
|| *string
== '\0'
351 || match_substring (string
, name
)
352 || match_bfd_flags (string
, flags
))
354 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
355 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
357 maint_print_section_info (name
, flags
,
358 obj_section_addr (asect
),
359 obj_section_endaddr (asect
),
360 asect
->the_bfd_section
->filepos
,
366 maintenance_info_sections (char *arg
, int from_tty
)
370 printf_filtered (_("Exec file:\n"));
371 printf_filtered (" `%s', ", bfd_get_filename (exec_bfd
));
373 printf_filtered (_("file type %s.\n"), bfd_get_target (exec_bfd
));
374 if (arg
&& *arg
&& match_substring (arg
, "ALLOBJ"))
376 struct objfile
*ofile
;
377 struct obj_section
*osect
;
379 /* Only this function cares about the 'ALLOBJ' argument;
380 if 'ALLOBJ' is the only argument, discard it rather than
381 passing it down to print_objfile_section_info (which
382 wouldn't know how to handle it). */
383 if (strcmp (arg
, "ALLOBJ") == 0)
388 printf_filtered (_(" Object file: %s\n"),
389 bfd_get_filename (ofile
->obfd
));
390 ALL_OBJFILE_OSECTIONS (ofile
, osect
)
392 print_objfile_section_info (ofile
->obfd
, osect
, arg
);
397 bfd_map_over_sections (exec_bfd
, print_bfd_section_info
, arg
);
402 printf_filtered (_("Core file:\n"));
403 printf_filtered (" `%s', ", bfd_get_filename (core_bfd
));
405 printf_filtered (_("file type %s.\n"), bfd_get_target (core_bfd
));
406 bfd_map_over_sections (core_bfd
, print_bfd_section_info
, arg
);
411 maintenance_print_statistics (char *args
, int from_tty
)
413 print_objfile_statistics ();
414 print_symbol_bcache_statistics ();
418 maintenance_print_architecture (char *args
, int from_tty
)
420 struct gdbarch
*gdbarch
= get_current_arch ();
423 gdbarch_dump (gdbarch
, gdb_stdout
);
426 struct cleanup
*cleanups
;
427 struct ui_file
*file
= gdb_fopen (args
, "w");
430 perror_with_name (_("maintenance print architecture"));
431 cleanups
= make_cleanup_ui_file_delete (file
);
432 gdbarch_dump (gdbarch
, file
);
433 do_cleanups (cleanups
);
437 /* The "maintenance print" command is defined as a prefix, with
438 allow_unknown 0. Therefore, its own definition is called only for
439 "maintenance print" with no args. */
442 maintenance_print_command (char *arg
, int from_tty
)
444 printf_unfiltered (_("\"maintenance print\" must be followed "
445 "by the name of a print command.\n"));
446 help_list (maintenanceprintlist
, "maintenance print ", -1, gdb_stdout
);
449 /* The "maintenance translate-address" command converts a section and address
450 to a symbol. This can be called in two ways:
451 maintenance translate-address <secname> <addr>
452 or maintenance translate-address <addr>. */
455 maintenance_translate_address (char *arg
, int from_tty
)
458 struct obj_section
*sect
;
460 struct minimal_symbol
*sym
;
461 struct objfile
*objfile
;
463 if (arg
== NULL
|| *arg
== 0)
464 error (_("requires argument (address or section + address)"));
470 { /* See if we have a valid section name. */
471 while (*p
&& !isspace (*p
)) /* Find end of section name. */
473 if (*p
== '\000') /* End of command? */
474 error (_("Need to specify <section-name> and <address>"));
477 p
++; /* Skip whitespace. */
479 ALL_OBJSECTIONS (objfile
, sect
)
481 if (strcmp (sect
->the_bfd_section
->name
, arg
) == 0)
486 error (_("Unknown section %s."), arg
);
489 address
= parse_and_eval_address (p
);
492 sym
= lookup_minimal_symbol_by_pc_section (address
, sect
);
494 sym
= lookup_minimal_symbol_by_pc (address
);
498 const char *symbol_name
= SYMBOL_PRINT_NAME (sym
);
499 const char *symbol_offset
500 = pulongest (address
- SYMBOL_VALUE_ADDRESS (sym
));
502 sect
= SYMBOL_OBJ_SECTION(sym
);
505 const char *section_name
;
506 const char *obj_name
;
508 gdb_assert (sect
->the_bfd_section
&& sect
->the_bfd_section
->name
);
509 section_name
= sect
->the_bfd_section
->name
;
511 gdb_assert (sect
->objfile
&& sect
->objfile
->name
);
512 obj_name
= sect
->objfile
->name
;
514 if (MULTI_OBJFILE_P ())
515 printf_filtered (_("%s + %s in section %s of %s\n"),
516 symbol_name
, symbol_offset
,
517 section_name
, obj_name
);
519 printf_filtered (_("%s + %s in section %s\n"),
520 symbol_name
, symbol_offset
, section_name
);
523 printf_filtered (_("%s + %s\n"), symbol_name
, symbol_offset
);
526 printf_filtered (_("no symbol at %s:%s\n"),
527 sect
->the_bfd_section
->name
, hex_string (address
));
529 printf_filtered (_("no symbol at %s\n"), hex_string (address
));
535 /* When a command is deprecated the user will be warned the first time
536 the command is used. If possible, a replacement will be
540 maintenance_deprecate (char *args
, int from_tty
)
542 if (args
== NULL
|| *args
== '\0')
544 printf_unfiltered (_("\"maintenance deprecate\" takes an argument,\n\
545 the command you want to deprecate, and optionally the replacement command\n\
546 enclosed in quotes.\n"));
549 maintenance_do_deprecate (args
, 1);
555 maintenance_undeprecate (char *args
, int from_tty
)
557 if (args
== NULL
|| *args
== '\0')
559 printf_unfiltered (_("\"maintenance undeprecate\" takes an argument, \n\
560 the command you want to undeprecate.\n"));
563 maintenance_do_deprecate (args
, 0);
567 /* You really shouldn't be using this. It is just for the testsuite.
568 Rather, you should use deprecate_cmd() when the command is created
569 in _initialize_blah().
571 This function deprecates a command and optionally assigns it a
575 maintenance_do_deprecate (char *text
, int deprecate
)
577 struct cmd_list_element
*alias
= NULL
;
578 struct cmd_list_element
*prefix_cmd
= NULL
;
579 struct cmd_list_element
*cmd
= NULL
;
581 char *start_ptr
= NULL
;
582 char *end_ptr
= NULL
;
584 char *replacement
= NULL
;
589 if (!lookup_cmd_composition (text
, &alias
, &prefix_cmd
, &cmd
))
591 printf_filtered (_("Can't find command '%s' to deprecate.\n"), text
);
597 /* Look for a replacement command. */
598 start_ptr
= strchr (text
, '\"');
599 if (start_ptr
!= NULL
)
602 end_ptr
= strrchr (start_ptr
, '\"');
605 len
= end_ptr
- start_ptr
;
606 start_ptr
[len
] = '\0';
607 replacement
= xstrdup (start_ptr
);
612 if (!start_ptr
|| !end_ptr
)
616 /* If they used an alias, we only want to deprecate the alias.
618 Note the MALLOCED_REPLACEMENT test. If the command's replacement
619 string was allocated at compile time we don't want to free the
623 if (alias
->flags
& MALLOCED_REPLACEMENT
)
624 xfree (alias
->replacement
);
627 alias
->flags
|= (DEPRECATED_WARN_USER
| CMD_DEPRECATED
);
629 alias
->flags
&= ~(DEPRECATED_WARN_USER
| CMD_DEPRECATED
);
630 alias
->replacement
= replacement
;
631 alias
->flags
|= MALLOCED_REPLACEMENT
;
636 if (cmd
->flags
& MALLOCED_REPLACEMENT
)
637 xfree (cmd
->replacement
);
640 cmd
->flags
|= (DEPRECATED_WARN_USER
| CMD_DEPRECATED
);
642 cmd
->flags
&= ~(DEPRECATED_WARN_USER
| CMD_DEPRECATED
);
643 cmd
->replacement
= replacement
;
644 cmd
->flags
|= MALLOCED_REPLACEMENT
;
647 /* If we get here, don't leak! */
648 if (replacement
!= NULL
)
652 /* Maintenance set/show framework. */
654 struct cmd_list_element
*maintenance_set_cmdlist
;
655 struct cmd_list_element
*maintenance_show_cmdlist
;
658 maintenance_set_cmd (char *args
, int from_tty
)
660 printf_unfiltered (_("\"maintenance set\" must be followed "
661 "by the name of a set command.\n"));
662 help_list (maintenance_set_cmdlist
, "maintenance set ", -1, gdb_stdout
);
666 maintenance_show_cmd (char *args
, int from_tty
)
668 cmd_show_list (maintenance_show_cmdlist
, from_tty
, "");
671 /* Profiling support. */
673 static int maintenance_profile_p
;
675 show_maintenance_profile_p (struct ui_file
*file
, int from_tty
,
676 struct cmd_list_element
*c
, const char *value
)
678 fprintf_filtered (file
, _("Internal profiling is %s.\n"), value
);
683 #define TEXTEND &_etext
684 #elif defined (HAVE_ETEXT)
686 #define TEXTEND &etext
689 #if defined (HAVE_MONSTARTUP) && defined (HAVE__MCLEANUP) && defined (TEXTEND)
691 static int profiling_state
;
694 mcleanup_wrapper (void)
696 extern void _mcleanup (void);
703 maintenance_set_profile_cmd (char *args
, int from_tty
,
704 struct cmd_list_element
*c
)
706 if (maintenance_profile_p
== profiling_state
)
709 profiling_state
= maintenance_profile_p
;
711 if (maintenance_profile_p
)
713 static int profiling_initialized
;
715 extern void monstartup (unsigned long, unsigned long);
718 if (!profiling_initialized
)
720 atexit (mcleanup_wrapper
);
721 profiling_initialized
= 1;
724 /* "main" is now always the first function in the text segment, so use
725 its address for monstartup. */
726 monstartup ((unsigned long) &main
, (unsigned long) TEXTEND
);
730 extern void _mcleanup (void);
737 maintenance_set_profile_cmd (char *args
, int from_tty
,
738 struct cmd_list_element
*c
)
740 error (_("Profiling support is not available on this system."));
745 _initialize_maint_cmds (void)
747 add_prefix_cmd ("maintenance", class_maintenance
, maintenance_command
, _("\
748 Commands for use by GDB maintainers.\n\
749 Includes commands to dump specific internal GDB structures in\n\
750 a human readable form, to cause GDB to deliberately dump core,\n\
751 to test internal functions such as the C++/ObjC demangler, etc."),
752 &maintenancelist
, "maintenance ", 0,
755 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
757 add_prefix_cmd ("info", class_maintenance
, maintenance_info_command
, _("\
758 Commands for showing internal info about the program being debugged."),
759 &maintenanceinfolist
, "maintenance info ", 0,
761 add_alias_cmd ("i", "info", class_maintenance
, 1, &maintenancelist
);
763 add_cmd ("sections", class_maintenance
, maintenance_info_sections
, _("\
764 List the BFD sections of the exec and core files. \n\
765 Arguments may be any combination of:\n\
766 [one or more section names]\n\
767 ALLOC LOAD RELOC READONLY CODE DATA ROM CONSTRUCTOR\n\
768 HAS_CONTENTS NEVER_LOAD COFF_SHARED_LIBRARY IS_COMMON\n\
769 Sections matching any argument will be listed (no argument\n\
770 implies all sections). In addition, the special argument\n\
772 lists all sections from all object files, including shared libraries."),
773 &maintenanceinfolist
);
775 add_prefix_cmd ("print", class_maintenance
, maintenance_print_command
,
776 _("Maintenance command for printing GDB internal state."),
777 &maintenanceprintlist
, "maintenance print ", 0,
780 add_prefix_cmd ("set", class_maintenance
, maintenance_set_cmd
, _("\
781 Set GDB internal variables used by the GDB maintainer.\n\
782 Configure variables internal to GDB that aid in GDB's maintenance"),
783 &maintenance_set_cmdlist
, "maintenance set ",
787 add_prefix_cmd ("show", class_maintenance
, maintenance_show_cmd
, _("\
788 Show GDB internal variables used by the GDB maintainer.\n\
789 Configure variables internal to GDB that aid in GDB's maintenance"),
790 &maintenance_show_cmdlist
, "maintenance show ",
795 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
, _("\
796 Get fatal error; make debugger dump its core.\n\
797 GDB sets its handling of SIGQUIT back to SIG_DFL and then sends\n\
798 itself a SIGQUIT signal."),
802 add_cmd ("internal-error", class_maintenance
,
803 maintenance_internal_error
, _("\
804 Give GDB an internal error.\n\
805 Cause GDB to behave as if an internal error was detected."),
808 add_cmd ("internal-warning", class_maintenance
,
809 maintenance_internal_warning
, _("\
810 Give GDB an internal warning.\n\
811 Cause GDB to behave as if an internal warning was reported."),
814 add_cmd ("demangle", class_maintenance
, maintenance_demangle
, _("\
815 Demangle a C++/ObjC mangled name.\n\
816 Call internal GDB demangler routine to demangle a C++ link name\n\
817 and prints the result."),
820 add_cmd ("time", class_maintenance
, maintenance_time_display
, _("\
821 Set the display of time usage.\n\
822 If nonzero, will cause the execution time for each command to be\n\
823 displayed, following the command's output."),
826 add_cmd ("space", class_maintenance
, maintenance_space_display
, _("\
827 Set the display of space usage.\n\
828 If nonzero, will cause the execution space for each command to be\n\
829 displayed, following the command's output."),
832 add_cmd ("type", class_maintenance
, maintenance_print_type
, _("\
833 Print a type chain for a given symbol.\n\
834 For each node in a type chain, print the raw data for each member of\n\
835 the type structure, and the interpretation of the data."),
836 &maintenanceprintlist
);
838 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
, _("\
839 Print dump of current symbol definitions.\n\
840 Entries in the full symbol table are dumped to file OUTFILE.\n\
841 If a SOURCE file is specified, dump only that file's symbols."),
842 &maintenanceprintlist
);
844 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
, _("\
845 Print dump of current minimal symbol definitions.\n\
846 Entries in the minimal symbol table are dumped to file OUTFILE.\n\
847 If a SOURCE file is specified, dump only that file's minimal symbols."),
848 &maintenanceprintlist
);
850 add_cmd ("psymbols", class_maintenance
, maintenance_print_psymbols
, _("\
851 Print dump of current partial symbol definitions.\n\
852 Entries in the partial symbol table are dumped to file OUTFILE.\n\
853 If a SOURCE file is specified, dump only that file's partial symbols."),
854 &maintenanceprintlist
);
856 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
857 _("Print dump of current object file definitions."),
858 &maintenanceprintlist
);
860 add_cmd ("symtabs", class_maintenance
, maintenance_info_symtabs
, _("\
861 List the full symbol tables for all object files.\n\
862 This does not include information about individual symbols, blocks, or\n\
863 linetables --- just the symbol table structures themselves.\n\
864 With an argument REGEXP, list the symbol tables whose names that match that."),
865 &maintenanceinfolist
);
867 add_cmd ("psymtabs", class_maintenance
, maintenance_info_psymtabs
, _("\
868 List the partial symbol tables for all object files.\n\
869 This does not include information about individual partial symbols,\n\
870 just the symbol table structures themselves."),
871 &maintenanceinfolist
);
873 add_cmd ("statistics", class_maintenance
, maintenance_print_statistics
,
874 _("Print statistics about internal gdb state."),
875 &maintenanceprintlist
);
877 add_cmd ("architecture", class_maintenance
,
878 maintenance_print_architecture
, _("\
879 Print the internal architecture configuration.\n\
880 Takes an optional file parameter."),
881 &maintenanceprintlist
);
883 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
884 _("Check consistency of psymtabs and symtabs."),
887 add_cmd ("translate-address", class_maintenance
,
888 maintenance_translate_address
,
889 _("Translate a section name and address to a symbol."),
892 add_cmd ("deprecate", class_maintenance
, maintenance_deprecate
, _("\
893 Deprecate a command. Note that this is just in here so the \n\
894 testsuite can check the command deprecator. You probably shouldn't use this,\n\
895 rather you should use the C function deprecate_cmd(). If you decide you \n\
896 want to use it: maintenance deprecate 'commandname' \"replacement\". The \n\
897 replacement is optional."), &maintenancelist
);
899 add_cmd ("undeprecate", class_maintenance
, maintenance_undeprecate
, _("\
900 Undeprecate a command. Note that this is just in here so the \n\
901 testsuite can check the command deprecator. You probably shouldn't use this,\n\
902 If you decide you want to use it: maintenance undeprecate 'commandname'"),
905 add_setshow_zinteger_cmd ("watchdog", class_maintenance
, &watchdog
, _("\
906 Set watchdog timer."), _("\
907 Show watchdog timer."), _("\
908 When non-zero, this timeout is used instead of waiting forever for a target\n\
909 to finish a low-level step or continue operation. If the specified amount\n\
910 of time passes without a response from the target, an error occurs."),
913 &setlist
, &showlist
);
915 add_setshow_boolean_cmd ("profile", class_maintenance
,
916 &maintenance_profile_p
, _("\
917 Set internal profiling."), _("\
918 Show internal profiling."), _("\
919 When enabled GDB is profiled."),
920 maintenance_set_profile_cmd
,
921 show_maintenance_profile_p
,
922 &maintenance_set_cmdlist
,
923 &maintenance_show_cmdlist
);