1 /* Support for GDB maintenance commands.
3 Copyright (C) 1992-2019 Free Software Foundation, Inc.
5 Written by Fred Fish at Cygnus Support.
7 This file is part of GDB.
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.
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.
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/>. */
24 #include "arch-utils.h"
34 #include "expression.h" /* For language.h */
43 #include "cli/cli-decode.h"
44 #include "cli/cli-utils.h"
45 #include "cli/cli-setshow.h"
47 static void maintenance_do_deprecate (const char *, int);
49 /* Set this to the maximum number of seconds to wait instead of waiting forever
50 in target_wait(). If this timer times out, then it generates an error and
51 the command is aborted. This replaces most of the need for timeouts in the
52 GDB test suite, and makes it possible to distinguish between a hung target
53 and one with slow communications. */
57 show_watchdog (struct ui_file *file, int from_tty,
58 struct cmd_list_element *c, const char *value)
60 fprintf_filtered (file, _("Watchdog timer is %s.\n"), value);
63 /* Access the maintenance subcommands. */
66 maintenance_command (const char *args, int from_tty)
68 printf_unfiltered (_("\"maintenance\" must be followed by "
69 "the name of a maintenance command.\n"));
70 help_list (maintenancelist, "maintenance ", all_commands, gdb_stdout);
75 maintenance_dump_me (const char *args, int from_tty)
77 if (query (_("Should GDB dump core? ")))
80 /* SIGQUIT by default is ignored, so use SIGABRT instead. */
81 signal (SIGABRT, SIG_DFL);
82 kill (getpid (), SIGABRT);
84 signal (SIGQUIT, SIG_DFL);
85 kill (getpid (), SIGQUIT);
91 /* Stimulate the internal error mechanism that GDB uses when an
92 internal problem is detected. Allows testing of the mechanism.
93 Also useful when the user wants to drop a core file but not exit
97 maintenance_internal_error (const char *args, int from_tty)
99 internal_error (__FILE__, __LINE__, "%s", (args == NULL ? "" : args));
102 /* Stimulate the internal error mechanism that GDB uses when an
103 internal problem is detected. Allows testing of the mechanism.
104 Also useful when the user wants to drop a core file but not exit
108 maintenance_internal_warning (const char *args, int from_tty)
110 internal_warning (__FILE__, __LINE__, "%s", (args == NULL ? "" : args));
113 /* Stimulate the internal error mechanism that GDB uses when an
114 demangler problem is detected. Allows testing of the mechanism. */
117 maintenance_demangler_warning (const char *args, int from_tty)
119 demangler_warning (__FILE__, __LINE__, "%s", (args == NULL ? "" : args));
122 /* Old command to demangle a string. The command has been moved to "demangle".
123 It is kept for now because otherwise "mt demangle" gets interpreted as
124 "mt demangler-warning" which artificially creates an internal gdb error. */
127 maintenance_demangle (const char *args, int from_tty)
129 printf_filtered (_("This command has been moved to \"demangle\".\n"));
133 maintenance_time_display (const char *args, int from_tty)
135 if (args == NULL || *args == '\0')
136 printf_unfiltered (_("\"maintenance time\" takes a numeric argument.\n"));
138 set_per_command_time (strtol (args, NULL, 10));
142 maintenance_space_display (const char *args, int from_tty)
144 if (args == NULL || *args == '\0')
145 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
147 set_per_command_space (strtol (args, NULL, 10));
150 /* The "maintenance info" command is defined as a prefix, with
151 allow_unknown 0. Therefore, its own definition is called only for
152 "maintenance info" with no args. */
155 maintenance_info_command (const char *arg, int from_tty)
157 printf_unfiltered (_("\"maintenance info\" must be followed "
158 "by the name of an info command.\n"));
159 help_list (maintenanceinfolist, "maintenance info ", all_commands,
163 /* The "maintenance check" command is defined as a prefix, with
164 allow_unknown 0. Therefore, its own definition is called only for
165 "maintenance check" with no args. */
168 maintenance_check_command (const char *arg, int from_tty)
170 printf_unfiltered (_("\"maintenance check\" must be followed "
171 "by the name of a check command.\n"));
172 help_list (maintenancechecklist, "maintenance check ", all_commands,
176 /* Mini tokenizing lexer for 'maint info sections' command. */
179 match_substring (const char *string, const char *substr)
181 int substr_len = strlen(substr);
184 while ((tok = strstr (string, substr)) != NULL)
186 /* Got a partial match. Is it a whole word? */
191 /* Token is delimited at the front... */
192 if (tok[substr_len] == ' '
193 || tok[substr_len] == '\t'
194 || tok[substr_len] == '\0')
196 /* Token is delimited at the rear. Got a whole-word match. */
200 /* Token didn't match as a whole word. Advance and try again. */
207 match_bfd_flags (const char *string, flagword flags)
209 if (flags & SEC_ALLOC)
210 if (match_substring (string, "ALLOC"))
212 if (flags & SEC_LOAD)
213 if (match_substring (string, "LOAD"))
215 if (flags & SEC_RELOC)
216 if (match_substring (string, "RELOC"))
218 if (flags & SEC_READONLY)
219 if (match_substring (string, "READONLY"))
221 if (flags & SEC_CODE)
222 if (match_substring (string, "CODE"))
224 if (flags & SEC_DATA)
225 if (match_substring (string, "DATA"))
228 if (match_substring (string, "ROM"))
230 if (flags & SEC_CONSTRUCTOR)
231 if (match_substring (string, "CONSTRUCTOR"))
233 if (flags & SEC_HAS_CONTENTS)
234 if (match_substring (string, "HAS_CONTENTS"))
236 if (flags & SEC_NEVER_LOAD)
237 if (match_substring (string, "NEVER_LOAD"))
239 if (flags & SEC_COFF_SHARED_LIBRARY)
240 if (match_substring (string, "COFF_SHARED_LIBRARY"))
242 if (flags & SEC_IS_COMMON)
243 if (match_substring (string, "IS_COMMON"))
250 print_bfd_flags (flagword flags)
252 if (flags & SEC_ALLOC)
253 printf_filtered (" ALLOC");
254 if (flags & SEC_LOAD)
255 printf_filtered (" LOAD");
256 if (flags & SEC_RELOC)
257 printf_filtered (" RELOC");
258 if (flags & SEC_READONLY)
259 printf_filtered (" READONLY");
260 if (flags & SEC_CODE)
261 printf_filtered (" CODE");
262 if (flags & SEC_DATA)
263 printf_filtered (" DATA");
265 printf_filtered (" ROM");
266 if (flags & SEC_CONSTRUCTOR)
267 printf_filtered (" CONSTRUCTOR");
268 if (flags & SEC_HAS_CONTENTS)
269 printf_filtered (" HAS_CONTENTS");
270 if (flags & SEC_NEVER_LOAD)
271 printf_filtered (" NEVER_LOAD");
272 if (flags & SEC_COFF_SHARED_LIBRARY)
273 printf_filtered (" COFF_SHARED_LIBRARY");
274 if (flags & SEC_IS_COMMON)
275 printf_filtered (" IS_COMMON");
279 maint_print_section_info (const char *name, flagword flags,
280 CORE_ADDR addr, CORE_ADDR endaddr,
281 unsigned long filepos, int addr_size)
283 printf_filtered (" %s", hex_string_custom (addr, addr_size));
284 printf_filtered ("->%s", hex_string_custom (endaddr, addr_size));
285 printf_filtered (" at %s",
286 hex_string_custom ((unsigned long) filepos, 8));
287 printf_filtered (": %s", name);
288 print_bfd_flags (flags);
289 printf_filtered ("\n");
293 print_bfd_section_info (bfd *abfd,
297 flagword flags = bfd_get_section_flags (abfd, asect);
298 const char *name = bfd_section_name (abfd, asect);
299 const char *arg = (const char *) datum;
301 if (arg == NULL || *arg == '\0'
302 || match_substring (arg, name)
303 || match_bfd_flags (arg, flags))
305 struct gdbarch *gdbarch = gdbarch_from_bfd (abfd);
306 int addr_size = gdbarch_addr_bit (gdbarch) / 8;
307 CORE_ADDR addr, endaddr;
309 addr = bfd_section_vma (abfd, asect);
310 endaddr = addr + bfd_section_size (abfd, asect);
311 printf_filtered (" [%d] ", gdb_bfd_section_index (abfd, asect));
312 maint_print_section_info (name, flags, addr, endaddr,
313 asect->filepos, addr_size);
318 print_objfile_section_info (bfd *abfd,
319 struct obj_section *asect,
322 flagword flags = bfd_get_section_flags (abfd, asect->the_bfd_section);
323 const char *name = bfd_section_name (abfd, asect->the_bfd_section);
325 if (string == NULL || *string == '\0'
326 || match_substring (string, name)
327 || match_bfd_flags (string, flags))
329 struct gdbarch *gdbarch = gdbarch_from_bfd (abfd);
330 int addr_size = gdbarch_addr_bit (gdbarch) / 8;
332 maint_print_section_info (name, flags,
333 obj_section_addr (asect),
334 obj_section_endaddr (asect),
335 asect->the_bfd_section->filepos,
341 maintenance_info_sections (const char *arg, int from_tty)
345 printf_filtered (_("Exec file:\n"));
346 printf_filtered (" `%s', ", bfd_get_filename (exec_bfd));
348 printf_filtered (_("file type %s.\n"), bfd_get_target (exec_bfd));
349 if (arg && *arg && match_substring (arg, "ALLOBJ"))
351 struct obj_section *osect;
353 /* Only this function cares about the 'ALLOBJ' argument;
354 if 'ALLOBJ' is the only argument, discard it rather than
355 passing it down to print_objfile_section_info (which
356 wouldn't know how to handle it). */
357 if (strcmp (arg, "ALLOBJ") == 0)
360 for (objfile *ofile : all_objfiles (current_program_space))
362 printf_filtered (_(" Object file: %s\n"),
363 bfd_get_filename (ofile->obfd));
364 ALL_OBJFILE_OSECTIONS (ofile, osect)
366 print_objfile_section_info (ofile->obfd, osect, arg);
371 bfd_map_over_sections (exec_bfd, print_bfd_section_info, (void *) arg);
376 printf_filtered (_("Core file:\n"));
377 printf_filtered (" `%s', ", bfd_get_filename (core_bfd));
379 printf_filtered (_("file type %s.\n"), bfd_get_target (core_bfd));
380 bfd_map_over_sections (core_bfd, print_bfd_section_info, (void *) arg);
385 maintenance_print_statistics (const char *args, int from_tty)
387 print_objfile_statistics ();
388 print_symbol_bcache_statistics ();
392 maintenance_print_architecture (const char *args, int from_tty)
394 struct gdbarch *gdbarch = get_current_arch ();
397 gdbarch_dump (gdbarch, gdb_stdout);
402 if (!file.open (args, "w"))
403 perror_with_name (_("maintenance print architecture"));
404 gdbarch_dump (gdbarch, &file);
408 /* The "maintenance print" command is defined as a prefix, with
409 allow_unknown 0. Therefore, its own definition is called only for
410 "maintenance print" with no args. */
413 maintenance_print_command (const char *arg, int from_tty)
415 printf_unfiltered (_("\"maintenance print\" must be followed "
416 "by the name of a print command.\n"));
417 help_list (maintenanceprintlist, "maintenance print ", all_commands,
421 /* The "maintenance translate-address" command converts a section and address
422 to a symbol. This can be called in two ways:
423 maintenance translate-address <secname> <addr>
424 or maintenance translate-address <addr>. */
427 maintenance_translate_address (const char *arg, int from_tty)
430 struct obj_section *sect;
432 struct bound_minimal_symbol sym;
433 struct objfile *objfile;
435 if (arg == NULL || *arg == 0)
436 error (_("requires argument (address or section + address)"));
442 { /* See if we have a valid section name. */
443 while (*p && !isspace (*p)) /* Find end of section name. */
445 if (*p == '\000') /* End of command? */
446 error (_("Need to specify section name and address"));
448 int arg_len = p - arg;
449 p = skip_spaces (p + 1);
451 ALL_OBJSECTIONS (objfile, sect)
453 if (strncmp (sect->the_bfd_section->name, arg, arg_len) == 0)
458 error (_("Unknown section %s."), arg);
461 address = parse_and_eval_address (p);
464 sym = lookup_minimal_symbol_by_pc_section (address, sect);
466 sym = lookup_minimal_symbol_by_pc (address);
470 const char *symbol_name = MSYMBOL_PRINT_NAME (sym.minsym);
471 const char *symbol_offset
472 = pulongest (address - BMSYMBOL_VALUE_ADDRESS (sym));
474 sect = MSYMBOL_OBJ_SECTION(sym.objfile, sym.minsym);
477 const char *section_name;
478 const char *obj_name;
480 gdb_assert (sect->the_bfd_section && sect->the_bfd_section->name);
481 section_name = sect->the_bfd_section->name;
483 gdb_assert (sect->objfile && objfile_name (sect->objfile));
484 obj_name = objfile_name (sect->objfile);
486 if (MULTI_OBJFILE_P ())
487 printf_filtered (_("%s + %s in section %s of %s\n"),
488 symbol_name, symbol_offset,
489 section_name, obj_name);
491 printf_filtered (_("%s + %s in section %s\n"),
492 symbol_name, symbol_offset, section_name);
495 printf_filtered (_("%s + %s\n"), symbol_name, symbol_offset);
498 printf_filtered (_("no symbol at %s:%s\n"),
499 sect->the_bfd_section->name, hex_string (address));
501 printf_filtered (_("no symbol at %s\n"), hex_string (address));
507 /* When a command is deprecated the user will be warned the first time
508 the command is used. If possible, a replacement will be
512 maintenance_deprecate (const char *args, int from_tty)
514 if (args == NULL || *args == '\0')
516 printf_unfiltered (_("\"maintenance deprecate\" takes an argument,\n\
517 the command you want to deprecate, and optionally the replacement command\n\
518 enclosed in quotes.\n"));
521 maintenance_do_deprecate (args, 1);
526 maintenance_undeprecate (const char *args, int from_tty)
528 if (args == NULL || *args == '\0')
530 printf_unfiltered (_("\"maintenance undeprecate\" takes an argument, \n\
531 the command you want to undeprecate.\n"));
534 maintenance_do_deprecate (args, 0);
537 /* You really shouldn't be using this. It is just for the testsuite.
538 Rather, you should use deprecate_cmd() when the command is created
539 in _initialize_blah().
541 This function deprecates a command and optionally assigns it a
545 maintenance_do_deprecate (const char *text, int deprecate)
547 struct cmd_list_element *alias = NULL;
548 struct cmd_list_element *prefix_cmd = NULL;
549 struct cmd_list_element *cmd = NULL;
551 const char *start_ptr = NULL;
552 const char *end_ptr = NULL;
554 char *replacement = NULL;
559 if (!lookup_cmd_composition (text, &alias, &prefix_cmd, &cmd))
561 printf_filtered (_("Can't find command '%s' to deprecate.\n"), text);
567 /* Look for a replacement command. */
568 start_ptr = strchr (text, '\"');
569 if (start_ptr != NULL)
572 end_ptr = strrchr (start_ptr, '\"');
575 len = end_ptr - start_ptr;
576 replacement = savestring (start_ptr, len);
581 if (!start_ptr || !end_ptr)
585 /* If they used an alias, we only want to deprecate the alias.
587 Note the MALLOCED_REPLACEMENT test. If the command's replacement
588 string was allocated at compile time we don't want to free the
592 if (alias->malloced_replacement)
593 xfree ((char *) alias->replacement);
597 alias->deprecated_warn_user = 1;
598 alias->cmd_deprecated = 1;
602 alias->deprecated_warn_user = 0;
603 alias->cmd_deprecated = 0;
605 alias->replacement = replacement;
606 alias->malloced_replacement = 1;
611 if (cmd->malloced_replacement)
612 xfree ((char *) cmd->replacement);
616 cmd->deprecated_warn_user = 1;
617 cmd->cmd_deprecated = 1;
621 cmd->deprecated_warn_user = 0;
622 cmd->cmd_deprecated = 0;
624 cmd->replacement = replacement;
625 cmd->malloced_replacement = 1;
631 /* Maintenance set/show framework. */
633 struct cmd_list_element *maintenance_set_cmdlist;
634 struct cmd_list_element *maintenance_show_cmdlist;
637 maintenance_set_cmd (const char *args, int from_tty)
639 printf_unfiltered (_("\"maintenance set\" must be followed "
640 "by the name of a set command.\n"));
641 help_list (maintenance_set_cmdlist, "maintenance set ", all_commands,
646 maintenance_show_cmd (const char *args, int from_tty)
648 cmd_show_list (maintenance_show_cmdlist, from_tty, "");
651 /* Profiling support. */
653 static int maintenance_profile_p;
655 show_maintenance_profile_p (struct ui_file *file, int from_tty,
656 struct cmd_list_element *c, const char *value)
658 fprintf_filtered (file, _("Internal profiling is %s.\n"), value);
663 #define TEXTEND &_etext
664 #elif defined (HAVE_ETEXT)
666 #define TEXTEND &etext
669 #if defined (HAVE_MONSTARTUP) && defined (HAVE__MCLEANUP) && defined (TEXTEND)
671 static int profiling_state;
673 EXTERN_C void _mcleanup (void);
676 mcleanup_wrapper (void)
682 EXTERN_C void monstartup (unsigned long, unsigned long);
686 maintenance_set_profile_cmd (const char *args, int from_tty,
687 struct cmd_list_element *c)
689 if (maintenance_profile_p == profiling_state)
692 profiling_state = maintenance_profile_p;
694 if (maintenance_profile_p)
696 static int profiling_initialized;
698 if (!profiling_initialized)
700 atexit (mcleanup_wrapper);
701 profiling_initialized = 1;
704 /* "main" is now always the first function in the text segment, so use
705 its address for monstartup. */
706 monstartup ((unsigned long) &main, (unsigned long) TEXTEND);
710 extern void _mcleanup (void);
717 maintenance_set_profile_cmd (const char *args, int from_tty,
718 struct cmd_list_element *c)
720 error (_("Profiling support is not available on this system."));
724 /* If nonzero, display time usage both at startup and for each command. */
726 static int per_command_time;
728 /* If nonzero, display space usage both at startup and for each command. */
730 static int per_command_space;
732 /* If nonzero, display basic symtab stats for each command. */
734 static int per_command_symtab;
736 /* mt per-command commands. */
738 static struct cmd_list_element *per_command_setlist;
739 static struct cmd_list_element *per_command_showlist;
741 /* Set whether to display time statistics to NEW_VALUE
742 (non-zero means true). */
745 set_per_command_time (int new_value)
747 per_command_time = new_value;
750 /* Set whether to display space statistics to NEW_VALUE
751 (non-zero means true). */
754 set_per_command_space (int new_value)
756 per_command_space = new_value;
759 /* Count the number of symtabs and blocks. */
762 count_symtabs_and_blocks (int *nr_symtabs_ptr, int *nr_compunit_symtabs_ptr,
768 int nr_compunit_symtabs = 0;
771 /* When collecting statistics during startup, this is called before
772 pretty much anything in gdb has been initialized, and thus
773 current_program_space may be NULL. */
774 if (current_program_space != NULL)
776 ALL_COMPUNITS (o, cu)
778 ++nr_compunit_symtabs;
779 nr_blocks += BLOCKVECTOR_NBLOCKS (COMPUNIT_BLOCKVECTOR (cu));
780 ALL_COMPUNIT_FILETABS (cu, s)
785 *nr_symtabs_ptr = nr_symtabs;
786 *nr_compunit_symtabs_ptr = nr_compunit_symtabs;
787 *nr_blocks_ptr = nr_blocks;
790 /* As indicated by display_time and display_space, report GDB's
791 elapsed time and space usage from the base time and space recorded
794 scoped_command_stats::~scoped_command_stats ()
796 /* Early exit if we're not reporting any stats. It can be expensive to
797 compute the pre-command values so don't collect them at all if we're
798 not reporting stats. Alas this doesn't work in the startup case because
799 we don't know yet whether we will be reporting the stats. For the
800 startup case collect the data anyway (it should be cheap at this point),
801 and leave it to the reporter to decide whether to print them. */
804 && !per_command_space
805 && !per_command_symtab)
808 if (m_time_enabled && per_command_time)
810 using namespace std::chrono;
812 run_time_clock::duration cmd_time
813 = run_time_clock::now () - m_start_cpu_time;
815 steady_clock::duration wall_time
816 = steady_clock::now () - m_start_wall_time;
817 /* Subtract time spend in prompt_for_continue from walltime. */
818 wall_time -= get_prompt_for_continue_wait_time ();
820 printf_unfiltered (!m_msg_type
821 ? _("Startup time: %.6f (cpu), %.6f (wall)\n")
822 : _("Command execution time: %.6f (cpu), %.6f (wall)\n"),
823 duration<double> (cmd_time).count (),
824 duration<double> (wall_time).count ());
827 if (m_space_enabled && per_command_space)
829 #ifdef HAVE_USEFUL_SBRK
830 char *lim = (char *) sbrk (0);
832 long space_now = lim - lim_at_start;
833 long space_diff = space_now - m_start_space;
835 printf_unfiltered (!m_msg_type
836 ? _("Space used: %ld (%s%ld during startup)\n")
837 : _("Space used: %ld (%s%ld for this command)\n"),
839 (space_diff >= 0 ? "+" : ""),
844 if (m_symtab_enabled && per_command_symtab)
846 int nr_symtabs, nr_compunit_symtabs, nr_blocks;
848 count_symtabs_and_blocks (&nr_symtabs, &nr_compunit_symtabs, &nr_blocks);
849 printf_unfiltered (_("#symtabs: %d (+%d),"
850 " #compunits: %d (+%d),"
851 " #blocks: %d (+%d)\n"),
853 nr_symtabs - m_start_nr_symtabs,
856 - m_start_nr_compunit_symtabs),
858 nr_blocks - m_start_nr_blocks);
862 scoped_command_stats::scoped_command_stats (bool msg_type)
863 : m_msg_type (msg_type)
865 if (!m_msg_type || per_command_space)
867 #ifdef HAVE_USEFUL_SBRK
868 char *lim = (char *) sbrk (0);
869 m_start_space = lim - lim_at_start;
876 if (msg_type == 0 || per_command_time)
878 using namespace std::chrono;
880 m_start_cpu_time = run_time_clock::now ();
881 m_start_wall_time = steady_clock::now ();
887 if (msg_type == 0 || per_command_symtab)
889 int nr_symtabs, nr_compunit_symtabs, nr_blocks;
891 count_symtabs_and_blocks (&nr_symtabs, &nr_compunit_symtabs, &nr_blocks);
892 m_start_nr_symtabs = nr_symtabs;
893 m_start_nr_compunit_symtabs = nr_compunit_symtabs;
894 m_start_nr_blocks = nr_blocks;
895 m_symtab_enabled = 1;
898 m_symtab_enabled = 0;
900 /* Initialize timer to keep track of how long we waited for the user. */
901 reset_prompt_for_continue_wait_time ();
904 /* Handle unknown "mt set per-command" arguments.
905 In this case have "mt set per-command on|off" affect every setting. */
908 set_per_command_cmd (const char *args, int from_tty)
910 struct cmd_list_element *list;
913 val = parse_cli_boolean_value (args);
915 error (_("Bad value for 'mt set per-command no'."));
917 for (list = per_command_setlist; list != NULL; list = list->next)
918 if (list->var_type == var_boolean)
920 gdb_assert (list->type == set_cmd);
921 do_set_command (args, from_tty, list);
925 /* Command "show per-command" displays summary of all the current
926 "show per-command " settings. */
929 show_per_command_cmd (const char *args, int from_tty)
931 cmd_show_list (per_command_showlist, from_tty, "");
935 /* The "maintenance selftest" command. */
938 maintenance_selftest (const char *args, int from_tty)
941 selftests::run_tests (args);
943 printf_filtered (_("\
944 Selftests have been disabled for this build.\n"));
949 maintenance_info_selftests (const char *arg, int from_tty)
952 printf_filtered ("Registered selftests:\n");
953 selftests::for_each_selftest ([] (const std::string &name) {
954 printf_filtered (" - %s\n", name.c_str ());
957 printf_filtered (_("\
958 Selftests have been disabled for this build.\n"));
964 _initialize_maint_cmds (void)
966 struct cmd_list_element *cmd;
968 add_prefix_cmd ("maintenance", class_maintenance, maintenance_command, _("\
969 Commands for use by GDB maintainers.\n\
970 Includes commands to dump specific internal GDB structures in\n\
971 a human readable form, to cause GDB to deliberately dump core, etc."),
972 &maintenancelist, "maintenance ", 0,
975 add_com_alias ("mt", "maintenance", class_maintenance, 1);
977 add_prefix_cmd ("info", class_maintenance, maintenance_info_command, _("\
978 Commands for showing internal info about the program being debugged."),
979 &maintenanceinfolist, "maintenance info ", 0,
981 add_alias_cmd ("i", "info", class_maintenance, 1, &maintenancelist);
983 add_cmd ("sections", class_maintenance, maintenance_info_sections, _("\
984 List the BFD sections of the exec and core files. \n\
985 Arguments may be any combination of:\n\
986 [one or more section names]\n\
987 ALLOC LOAD RELOC READONLY CODE DATA ROM CONSTRUCTOR\n\
988 HAS_CONTENTS NEVER_LOAD COFF_SHARED_LIBRARY IS_COMMON\n\
989 Sections matching any argument will be listed (no argument\n\
990 implies all sections). In addition, the special argument\n\
992 lists all sections from all object files, including shared libraries."),
993 &maintenanceinfolist);
995 add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
996 _("Maintenance command for printing GDB internal state."),
997 &maintenanceprintlist, "maintenance print ", 0,
1000 add_prefix_cmd ("set", class_maintenance, maintenance_set_cmd, _("\
1001 Set GDB internal variables used by the GDB maintainer.\n\
1002 Configure variables internal to GDB that aid in GDB's maintenance"),
1003 &maintenance_set_cmdlist, "maintenance set ",
1007 add_prefix_cmd ("show", class_maintenance, maintenance_show_cmd, _("\
1008 Show GDB internal variables used by the GDB maintainer.\n\
1009 Configure variables internal to GDB that aid in GDB's maintenance"),
1010 &maintenance_show_cmdlist, "maintenance show ",
1015 add_cmd ("dump-me", class_maintenance, maintenance_dump_me, _("\
1016 Get fatal error; make debugger dump its core.\n\
1017 GDB sets its handling of SIGQUIT back to SIG_DFL and then sends\n\
1018 itself a SIGQUIT signal."),
1022 add_cmd ("internal-error", class_maintenance,
1023 maintenance_internal_error, _("\
1024 Give GDB an internal error.\n\
1025 Cause GDB to behave as if an internal error was detected."),
1028 add_cmd ("internal-warning", class_maintenance,
1029 maintenance_internal_warning, _("\
1030 Give GDB an internal warning.\n\
1031 Cause GDB to behave as if an internal warning was reported."),
1034 add_cmd ("demangler-warning", class_maintenance,
1035 maintenance_demangler_warning, _("\
1036 Give GDB a demangler warning.\n\
1037 Cause GDB to behave as if a demangler warning was reported."),
1040 cmd = add_cmd ("demangle", class_maintenance, maintenance_demangle, _("\
1041 This command has been moved to \"demangle\"."),
1043 deprecate_cmd (cmd, "demangle");
1045 add_prefix_cmd ("per-command", class_maintenance, set_per_command_cmd, _("\
1046 Per-command statistics settings."),
1047 &per_command_setlist, "maintenance set per-command ",
1048 1/*allow-unknown*/, &maintenance_set_cmdlist);
1050 add_prefix_cmd ("per-command", class_maintenance, show_per_command_cmd, _("\
1051 Show per-command statistics settings."),
1052 &per_command_showlist, "maintenance show per-command ",
1053 0/*allow-unknown*/, &maintenance_show_cmdlist);
1055 add_setshow_boolean_cmd ("time", class_maintenance,
1056 &per_command_time, _("\
1057 Set whether to display per-command execution time."), _("\
1058 Show whether to display per-command execution time."),
1060 If enabled, the execution time for each command will be\n\
1061 displayed following the command's output."),
1063 &per_command_setlist, &per_command_showlist);
1065 add_setshow_boolean_cmd ("space", class_maintenance,
1066 &per_command_space, _("\
1067 Set whether to display per-command space usage."), _("\
1068 Show whether to display per-command space usage."),
1070 If enabled, the space usage for each command will be\n\
1071 displayed following the command's output."),
1073 &per_command_setlist, &per_command_showlist);
1075 add_setshow_boolean_cmd ("symtab", class_maintenance,
1076 &per_command_symtab, _("\
1077 Set whether to display per-command symtab statistics."), _("\
1078 Show whether to display per-command symtab statistics."),
1080 If enabled, the basic symtab statistics for each command will be\n\
1081 displayed following the command's output."),
1083 &per_command_setlist, &per_command_showlist);
1085 /* This is equivalent to "mt set per-command time on".
1086 Kept because some people are used to typing "mt time 1". */
1087 add_cmd ("time", class_maintenance, maintenance_time_display, _("\
1088 Set the display of time usage.\n\
1089 If nonzero, will cause the execution time for each command to be\n\
1090 displayed, following the command's output."),
1093 /* This is equivalent to "mt set per-command space on".
1094 Kept because some people are used to typing "mt space 1". */
1095 add_cmd ("space", class_maintenance, maintenance_space_display, _("\
1096 Set the display of space usage.\n\
1097 If nonzero, will cause the execution space for each command to be\n\
1098 displayed, following the command's output."),
1101 add_cmd ("type", class_maintenance, maintenance_print_type, _("\
1102 Print a type chain for a given symbol.\n\
1103 For each node in a type chain, print the raw data for each member of\n\
1104 the type structure, and the interpretation of the data."),
1105 &maintenanceprintlist);
1107 add_cmd ("statistics", class_maintenance, maintenance_print_statistics,
1108 _("Print statistics about internal gdb state."),
1109 &maintenanceprintlist);
1111 add_cmd ("architecture", class_maintenance,
1112 maintenance_print_architecture, _("\
1113 Print the internal architecture configuration.\n\
1114 Takes an optional file parameter."),
1115 &maintenanceprintlist);
1117 add_prefix_cmd ("check", class_maintenance, maintenance_check_command, _("\
1118 Commands for checking internal gdb state."),
1119 &maintenancechecklist, "maintenance check ", 0,
1122 add_cmd ("translate-address", class_maintenance,
1123 maintenance_translate_address,
1124 _("Translate a section name and address to a symbol."),
1127 add_cmd ("deprecate", class_maintenance, maintenance_deprecate, _("\
1128 Deprecate a command. Note that this is just in here so the \n\
1129 testsuite can check the command deprecator. You probably shouldn't use this,\n\
1130 rather you should use the C function deprecate_cmd(). If you decide you \n\
1131 want to use it: maintenance deprecate 'commandname' \"replacement\". The \n\
1132 replacement is optional."), &maintenancelist);
1134 add_cmd ("undeprecate", class_maintenance, maintenance_undeprecate, _("\
1135 Undeprecate a command. Note that this is just in here so the \n\
1136 testsuite can check the command deprecator. You probably shouldn't use this,\n\
1137 If you decide you want to use it: maintenance undeprecate 'commandname'"),
1140 add_cmd ("selftest", class_maintenance, maintenance_selftest, _("\
1141 Run gdb's unit tests.\n\
1142 Usage: maintenance selftest [filter]\n\
1143 This will run any unit tests that were built in to gdb.\n\
1144 If a filter is given, only the tests with that value in their name will ran."),
1147 add_cmd ("selftests", class_maintenance, maintenance_info_selftests,
1148 _("List the registered selftests."), &maintenanceinfolist);
1150 add_setshow_zinteger_cmd ("watchdog", class_maintenance, &watchdog, _("\
1151 Set watchdog timer."), _("\
1152 Show watchdog timer."), _("\
1153 When non-zero, this timeout is used instead of waiting forever for a target\n\
1154 to finish a low-level step or continue operation. If the specified amount\n\
1155 of time passes without a response from the target, an error occurs."),
1158 &setlist, &showlist);
1160 add_setshow_boolean_cmd ("profile", class_maintenance,
1161 &maintenance_profile_p, _("\
1162 Set internal profiling."), _("\
1163 Show internal profiling."), _("\
1164 When enabled GDB is profiled."),
1165 maintenance_set_profile_cmd,
1166 show_maintenance_profile_p,
1167 &maintenance_set_cmdlist,
1168 &maintenance_show_cmdlist);