1 /* Support for GDB maintenance commands.
3 Copyright (C) 1992-2020 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"
35 #include "expression.h" /* For language.h */
42 #include "gdbsupport/selftest.h"
44 #include "cli/cli-decode.h"
45 #include "cli/cli-utils.h"
46 #include "cli/cli-setshow.h"
47 #include "cli/cli-cmds.h"
50 #include "gdbsupport/thread-pool.h"
53 static void maintenance_do_deprecate (const char *, int);
57 maintenance_dump_me (const char *args
, int from_tty
)
59 if (query (_("Should GDB dump core? ")))
62 /* SIGQUIT by default is ignored, so use SIGABRT instead. */
63 signal (SIGABRT
, SIG_DFL
);
64 kill (getpid (), SIGABRT
);
66 signal (SIGQUIT
, SIG_DFL
);
67 kill (getpid (), SIGQUIT
);
73 /* Stimulate the internal error mechanism that GDB uses when an
74 internal problem is detected. Allows testing of the mechanism.
75 Also useful when the user wants to drop a core file but not exit
79 maintenance_internal_error (const char *args
, int from_tty
)
81 internal_error (__FILE__
, __LINE__
, "%s", (args
== NULL
? "" : args
));
84 /* Stimulate the internal error mechanism that GDB uses when an
85 internal problem is detected. Allows testing of the mechanism.
86 Also useful when the user wants to drop a core file but not exit
90 maintenance_internal_warning (const char *args
, int from_tty
)
92 internal_warning (__FILE__
, __LINE__
, "%s", (args
== NULL
? "" : args
));
95 /* Stimulate the internal error mechanism that GDB uses when an
96 demangler problem is detected. Allows testing of the mechanism. */
99 maintenance_demangler_warning (const char *args
, int from_tty
)
101 demangler_warning (__FILE__
, __LINE__
, "%s", (args
== NULL
? "" : args
));
104 /* Old command to demangle a string. The command has been moved to "demangle".
105 It is kept for now because otherwise "mt demangle" gets interpreted as
106 "mt demangler-warning" which artificially creates an internal gdb error. */
109 maintenance_demangle (const char *args
, int from_tty
)
111 printf_filtered (_("This command has been moved to \"demangle\".\n"));
115 maintenance_time_display (const char *args
, int from_tty
)
117 if (args
== NULL
|| *args
== '\0')
118 printf_unfiltered (_("\"maintenance time\" takes a numeric argument.\n"));
120 set_per_command_time (strtol (args
, NULL
, 10));
124 maintenance_space_display (const char *args
, int from_tty
)
126 if (args
== NULL
|| *args
== '\0')
127 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
129 set_per_command_space (strtol (args
, NULL
, 10));
132 /* Mini tokenizing lexer for 'maint info sections' command. */
135 match_substring (const char *string
, const char *substr
)
137 int substr_len
= strlen(substr
);
140 while ((tok
= strstr (string
, substr
)) != NULL
)
142 /* Got a partial match. Is it a whole word? */
147 /* Token is delimited at the front... */
148 if (tok
[substr_len
] == ' '
149 || tok
[substr_len
] == '\t'
150 || tok
[substr_len
] == '\0')
152 /* Token is delimited at the rear. Got a whole-word match. */
156 /* Token didn't match as a whole word. Advance and try again. */
163 match_bfd_flags (const char *string
, flagword flags
)
165 if (flags
& SEC_ALLOC
)
166 if (match_substring (string
, "ALLOC"))
168 if (flags
& SEC_LOAD
)
169 if (match_substring (string
, "LOAD"))
171 if (flags
& SEC_RELOC
)
172 if (match_substring (string
, "RELOC"))
174 if (flags
& SEC_READONLY
)
175 if (match_substring (string
, "READONLY"))
177 if (flags
& SEC_CODE
)
178 if (match_substring (string
, "CODE"))
180 if (flags
& SEC_DATA
)
181 if (match_substring (string
, "DATA"))
184 if (match_substring (string
, "ROM"))
186 if (flags
& SEC_CONSTRUCTOR
)
187 if (match_substring (string
, "CONSTRUCTOR"))
189 if (flags
& SEC_HAS_CONTENTS
)
190 if (match_substring (string
, "HAS_CONTENTS"))
192 if (flags
& SEC_NEVER_LOAD
)
193 if (match_substring (string
, "NEVER_LOAD"))
195 if (flags
& SEC_COFF_SHARED_LIBRARY
)
196 if (match_substring (string
, "COFF_SHARED_LIBRARY"))
198 if (flags
& SEC_IS_COMMON
)
199 if (match_substring (string
, "IS_COMMON"))
206 print_bfd_flags (flagword flags
)
208 if (flags
& SEC_ALLOC
)
209 printf_filtered (" ALLOC");
210 if (flags
& SEC_LOAD
)
211 printf_filtered (" LOAD");
212 if (flags
& SEC_RELOC
)
213 printf_filtered (" RELOC");
214 if (flags
& SEC_READONLY
)
215 printf_filtered (" READONLY");
216 if (flags
& SEC_CODE
)
217 printf_filtered (" CODE");
218 if (flags
& SEC_DATA
)
219 printf_filtered (" DATA");
221 printf_filtered (" ROM");
222 if (flags
& SEC_CONSTRUCTOR
)
223 printf_filtered (" CONSTRUCTOR");
224 if (flags
& SEC_HAS_CONTENTS
)
225 printf_filtered (" HAS_CONTENTS");
226 if (flags
& SEC_NEVER_LOAD
)
227 printf_filtered (" NEVER_LOAD");
228 if (flags
& SEC_COFF_SHARED_LIBRARY
)
229 printf_filtered (" COFF_SHARED_LIBRARY");
230 if (flags
& SEC_IS_COMMON
)
231 printf_filtered (" IS_COMMON");
235 maint_print_section_info (const char *name
, flagword flags
,
236 CORE_ADDR addr
, CORE_ADDR endaddr
,
237 unsigned long filepos
, int addr_size
)
239 printf_filtered (" %s", hex_string_custom (addr
, addr_size
));
240 printf_filtered ("->%s", hex_string_custom (endaddr
, addr_size
));
241 printf_filtered (" at %s",
242 hex_string_custom ((unsigned long) filepos
, 8));
243 printf_filtered (": %s", name
);
244 print_bfd_flags (flags
);
245 printf_filtered ("\n");
248 /* Return the number of digits required to display COUNT in decimal.
250 Used when pretty printing index numbers to ensure all of the indexes line
254 index_digits (int count
)
256 return ((int) log10 ((float) count
)) + 1;
259 /* Helper function to pretty-print the section index of ASECT from ABFD.
260 The INDEX_DIGITS is the number of digits in the largest index that will
261 be printed, and is used to pretty-print the resulting string. */
264 print_section_index (bfd
*abfd
,
269 = string_printf (" [%d] ", gdb_bfd_section_index (abfd
, asect
));
270 /* The '+ 4' for the leading and trailing characters. */
271 printf_filtered ("%-*s", (index_digits
+ 4), result
.c_str ());
274 /* Print information about ASECT from ABFD. The section will be printed using
275 the VMA's from the bfd, which will not be the relocated addresses for bfds
276 that should be relocated. The information must be printed with the same
277 layout as PRINT_OBJFILE_SECTION_INFO below.
279 ARG is the argument string passed by the user to the top level maintenance
280 info sections command. Used for filtering which sections are printed. */
283 print_bfd_section_info (bfd
*abfd
, asection
*asect
, const char *arg
,
286 flagword flags
= bfd_section_flags (asect
);
287 const char *name
= bfd_section_name (asect
);
289 if (arg
== NULL
|| *arg
== '\0'
290 || match_substring (arg
, name
)
291 || match_bfd_flags (arg
, flags
))
293 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
294 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
295 CORE_ADDR addr
, endaddr
;
297 addr
= bfd_section_vma (asect
);
298 endaddr
= addr
+ bfd_section_size (asect
);
299 print_section_index (abfd
, asect
, index_digits
);
300 maint_print_section_info (name
, flags
, addr
, endaddr
,
301 asect
->filepos
, addr_size
);
305 /* Print information about ASECT which is GDB's wrapper around a section
306 from ABFD. The information must be printed with the same layout as
307 PRINT_BFD_SECTION_INFO above. PRINT_DATA holds information used to
308 filter which sections are printed, and for formatting the output.
310 ARG is the argument string passed by the user to the top level maintenance
311 info sections command. Used for filtering which sections are printed. */
314 print_objfile_section_info (bfd
*abfd
, struct obj_section
*asect
,
315 const char *arg
, int index_digits
)
317 flagword flags
= bfd_section_flags (asect
->the_bfd_section
);
318 const char *name
= bfd_section_name (asect
->the_bfd_section
);
320 if (arg
== NULL
|| *arg
== '\0'
321 || match_substring (arg
, name
)
322 || match_bfd_flags (arg
, flags
))
324 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
325 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
327 print_section_index (abfd
, asect
->the_bfd_section
, index_digits
);
328 maint_print_section_info (name
, flags
,
329 obj_section_addr (asect
),
330 obj_section_endaddr (asect
),
331 asect
->the_bfd_section
->filepos
,
336 /* Find an obj_section, GDB's wrapper around a bfd section for ASECTION
337 from ABFD. It might be that no such wrapper exists (for example debug
338 sections don't have such wrappers) in which case nullptr is returned. */
341 maint_obj_section_from_bfd_section (bfd
*abfd
,
345 if (ofile
->sections
== nullptr)
349 = &ofile
->sections
[gdb_bfd_section_index (abfd
, asection
)];
351 if (osect
>= ofile
->sections_end
)
357 /* Print information about ASECT from ABFD. Where possible the information for
358 ASECT will print the relocated addresses of the section.
360 ARG is the argument string passed by the user to the top level maintenance
361 info sections command. Used for filtering which sections are printed. */
364 print_bfd_section_info_maybe_relocated (bfd
*abfd
, asection
*asect
,
365 objfile
*objfile
, const char *arg
,
368 gdb_assert (objfile
->sections
!= NULL
);
370 = maint_obj_section_from_bfd_section (abfd
, asect
, objfile
);
372 if (osect
->the_bfd_section
== NULL
)
373 print_bfd_section_info (abfd
, asect
, arg
, index_digits
);
375 print_objfile_section_info (abfd
, osect
, arg
, index_digits
);
378 /* Implement the "maintenance info sections" command. */
381 maintenance_info_sections (const char *arg
, int from_tty
)
387 printf_filtered (_("Exec file:\n"));
388 printf_filtered (" `%s', ", bfd_get_filename (exec_bfd
));
390 printf_filtered (_("file type %s.\n"), bfd_get_target (exec_bfd
));
392 /* Only this function cares about the 'ALLOBJ' argument;
393 if 'ALLOBJ' is the only argument, discard it rather than
394 passing it down to print_objfile_section_info (which
395 wouldn't know how to handle it). */
396 if (arg
&& strcmp (arg
, "ALLOBJ") == 0)
402 for (objfile
*ofile
: current_program_space
->objfiles ())
405 printf_filtered (_(" Object file: %s\n"),
406 bfd_get_filename (ofile
->obfd
));
407 else if (ofile
->obfd
!= exec_bfd
)
410 int section_count
= gdb_bfd_count_sections (ofile
->obfd
);
412 for (asection
*sect
: gdb_bfd_sections (ofile
->obfd
))
413 print_bfd_section_info_maybe_relocated
414 (ofile
->obfd
, sect
, ofile
, arg
, index_digits (section_count
));
420 printf_filtered (_("Core file:\n"));
421 printf_filtered (" `%s', ", bfd_get_filename (core_bfd
));
423 printf_filtered (_("file type %s.\n"), bfd_get_target (core_bfd
));
425 int section_count
= gdb_bfd_count_sections (core_bfd
);
427 for (asection
*sect
: gdb_bfd_sections (core_bfd
))
428 print_bfd_section_info (core_bfd
, sect
, arg
,
429 index_digits (section_count
));
434 maintenance_print_statistics (const char *args
, int from_tty
)
436 print_objfile_statistics ();
437 print_symbol_bcache_statistics ();
441 maintenance_print_architecture (const char *args
, int from_tty
)
443 struct gdbarch
*gdbarch
= get_current_arch ();
446 gdbarch_dump (gdbarch
, gdb_stdout
);
451 if (!file
.open (args
, "w"))
452 perror_with_name (_("maintenance print architecture"));
453 gdbarch_dump (gdbarch
, &file
);
457 /* The "maintenance translate-address" command converts a section and address
458 to a symbol. This can be called in two ways:
459 maintenance translate-address <secname> <addr>
460 or maintenance translate-address <addr>. */
463 maintenance_translate_address (const char *arg
, int from_tty
)
466 struct obj_section
*sect
;
468 struct bound_minimal_symbol sym
;
470 if (arg
== NULL
|| *arg
== 0)
471 error (_("requires argument (address or section + address)"));
477 { /* See if we have a valid section name. */
478 while (*p
&& !isspace (*p
)) /* Find end of section name. */
480 if (*p
== '\000') /* End of command? */
481 error (_("Need to specify section name and address"));
483 int arg_len
= p
- arg
;
484 p
= skip_spaces (p
+ 1);
486 for (objfile
*objfile
: current_program_space
->objfiles ())
487 ALL_OBJFILE_OSECTIONS (objfile
, sect
)
489 if (strncmp (sect
->the_bfd_section
->name
, arg
, arg_len
) == 0)
493 error (_("Unknown section %s."), arg
);
497 address
= parse_and_eval_address (p
);
500 sym
= lookup_minimal_symbol_by_pc_section (address
, sect
);
502 sym
= lookup_minimal_symbol_by_pc (address
);
506 const char *symbol_name
= sym
.minsym
->print_name ();
507 const char *symbol_offset
508 = pulongest (address
- BMSYMBOL_VALUE_ADDRESS (sym
));
510 sect
= MSYMBOL_OBJ_SECTION(sym
.objfile
, sym
.minsym
);
513 const char *section_name
;
514 const char *obj_name
;
516 gdb_assert (sect
->the_bfd_section
&& sect
->the_bfd_section
->name
);
517 section_name
= sect
->the_bfd_section
->name
;
519 gdb_assert (sect
->objfile
&& objfile_name (sect
->objfile
));
520 obj_name
= objfile_name (sect
->objfile
);
522 if (current_program_space
->multi_objfile_p ())
523 printf_filtered (_("%s + %s in section %s of %s\n"),
524 symbol_name
, symbol_offset
,
525 section_name
, obj_name
);
527 printf_filtered (_("%s + %s in section %s\n"),
528 symbol_name
, symbol_offset
, section_name
);
531 printf_filtered (_("%s + %s\n"), symbol_name
, symbol_offset
);
534 printf_filtered (_("no symbol at %s:%s\n"),
535 sect
->the_bfd_section
->name
, hex_string (address
));
537 printf_filtered (_("no symbol at %s\n"), hex_string (address
));
543 /* When a command is deprecated the user will be warned the first time
544 the command is used. If possible, a replacement will be
548 maintenance_deprecate (const char *args
, int from_tty
)
550 if (args
== NULL
|| *args
== '\0')
552 printf_unfiltered (_("\"maintenance deprecate\" takes an argument,\n\
553 the command you want to deprecate, and optionally the replacement command\n\
554 enclosed in quotes.\n"));
557 maintenance_do_deprecate (args
, 1);
562 maintenance_undeprecate (const char *args
, int from_tty
)
564 if (args
== NULL
|| *args
== '\0')
566 printf_unfiltered (_("\"maintenance undeprecate\" takes an argument, \n\
567 the command you want to undeprecate.\n"));
570 maintenance_do_deprecate (args
, 0);
573 /* You really shouldn't be using this. It is just for the testsuite.
574 Rather, you should use deprecate_cmd() when the command is created
575 in _initialize_blah().
577 This function deprecates a command and optionally assigns it a
581 maintenance_do_deprecate (const char *text
, int deprecate
)
583 struct cmd_list_element
*alias
= NULL
;
584 struct cmd_list_element
*prefix_cmd
= NULL
;
585 struct cmd_list_element
*cmd
= NULL
;
587 const char *start_ptr
= NULL
;
588 const char *end_ptr
= NULL
;
590 char *replacement
= NULL
;
595 if (!lookup_cmd_composition (text
, &alias
, &prefix_cmd
, &cmd
))
597 printf_filtered (_("Can't find command '%s' to deprecate.\n"), text
);
603 /* Look for a replacement command. */
604 start_ptr
= strchr (text
, '\"');
605 if (start_ptr
!= NULL
)
608 end_ptr
= strrchr (start_ptr
, '\"');
611 len
= end_ptr
- start_ptr
;
612 replacement
= savestring (start_ptr
, len
);
617 if (!start_ptr
|| !end_ptr
)
621 /* If they used an alias, we only want to deprecate the alias.
623 Note the MALLOCED_REPLACEMENT test. If the command's replacement
624 string was allocated at compile time we don't want to free the
628 if (alias
->malloced_replacement
)
629 xfree ((char *) alias
->replacement
);
633 alias
->deprecated_warn_user
= 1;
634 alias
->cmd_deprecated
= 1;
638 alias
->deprecated_warn_user
= 0;
639 alias
->cmd_deprecated
= 0;
641 alias
->replacement
= replacement
;
642 alias
->malloced_replacement
= 1;
647 if (cmd
->malloced_replacement
)
648 xfree ((char *) cmd
->replacement
);
652 cmd
->deprecated_warn_user
= 1;
653 cmd
->cmd_deprecated
= 1;
657 cmd
->deprecated_warn_user
= 0;
658 cmd
->cmd_deprecated
= 0;
660 cmd
->replacement
= replacement
;
661 cmd
->malloced_replacement
= 1;
667 /* Maintenance set/show framework. */
669 struct cmd_list_element
*maintenance_set_cmdlist
;
670 struct cmd_list_element
*maintenance_show_cmdlist
;
672 /* "maintenance with" command. */
675 maintenance_with_cmd (const char *args
, int from_tty
)
677 with_command_1 ("maintenance set ", maintenance_set_cmdlist
, args
, from_tty
);
680 /* "maintenance with" command completer. */
683 maintenance_with_cmd_completer (struct cmd_list_element
*ignore
,
684 completion_tracker
&tracker
,
685 const char *text
, const char * /*word*/)
687 with_command_completer_1 ("maintenance set ", tracker
, text
);
690 /* Profiling support. */
692 static bool maintenance_profile_p
;
694 show_maintenance_profile_p (struct ui_file
*file
, int from_tty
,
695 struct cmd_list_element
*c
, const char *value
)
697 fprintf_filtered (file
, _("Internal profiling is %s.\n"), value
);
702 #define TEXTEND &_etext
703 #elif defined (HAVE_ETEXT)
705 #define TEXTEND &etext
708 #if defined (HAVE_MONSTARTUP) && defined (HAVE__MCLEANUP) && defined (TEXTEND)
710 static int profiling_state
;
712 EXTERN_C
void _mcleanup (void);
715 mcleanup_wrapper (void)
721 EXTERN_C
void monstartup (unsigned long, unsigned long);
725 maintenance_set_profile_cmd (const char *args
, int from_tty
,
726 struct cmd_list_element
*c
)
728 if (maintenance_profile_p
== profiling_state
)
731 profiling_state
= maintenance_profile_p
;
733 if (maintenance_profile_p
)
735 static int profiling_initialized
;
737 if (!profiling_initialized
)
739 atexit (mcleanup_wrapper
);
740 profiling_initialized
= 1;
743 /* "main" is now always the first function in the text segment, so use
744 its address for monstartup. */
745 monstartup ((unsigned long) &main
, (unsigned long) TEXTEND
);
749 extern void _mcleanup (void);
756 maintenance_set_profile_cmd (const char *args
, int from_tty
,
757 struct cmd_list_element
*c
)
759 error (_("Profiling support is not available on this system."));
763 static int n_worker_threads
= -1;
765 /* Update the thread pool for the desired number of threads. */
767 update_thread_pool_size ()
770 int n_threads
= n_worker_threads
;
773 n_threads
= std::thread::hardware_concurrency ();
775 gdb::thread_pool::g_thread_pool
->set_thread_count (n_threads
);
780 maintenance_set_worker_threads (const char *args
, int from_tty
,
781 struct cmd_list_element
*c
)
783 update_thread_pool_size ();
787 /* If true, display time usage both at startup and for each command. */
789 static bool per_command_time
;
791 /* If true, display space usage both at startup and for each command. */
793 static bool per_command_space
;
795 /* If true, display basic symtab stats for each command. */
797 static bool per_command_symtab
;
799 /* mt per-command commands. */
801 static struct cmd_list_element
*per_command_setlist
;
802 static struct cmd_list_element
*per_command_showlist
;
804 /* Set whether to display time statistics to NEW_VALUE
805 (non-zero means true). */
808 set_per_command_time (int new_value
)
810 per_command_time
= new_value
;
813 /* Set whether to display space statistics to NEW_VALUE
814 (non-zero means true). */
817 set_per_command_space (int new_value
)
819 per_command_space
= new_value
;
822 /* Count the number of symtabs and blocks. */
825 count_symtabs_and_blocks (int *nr_symtabs_ptr
, int *nr_compunit_symtabs_ptr
,
829 int nr_compunit_symtabs
= 0;
832 /* When collecting statistics during startup, this is called before
833 pretty much anything in gdb has been initialized, and thus
834 current_program_space may be NULL. */
835 if (current_program_space
!= NULL
)
837 for (objfile
*o
: current_program_space
->objfiles ())
839 for (compunit_symtab
*cu
: o
->compunits ())
841 ++nr_compunit_symtabs
;
842 nr_blocks
+= BLOCKVECTOR_NBLOCKS (COMPUNIT_BLOCKVECTOR (cu
));
843 nr_symtabs
+= std::distance (compunit_filetabs (cu
).begin (),
844 compunit_filetabs (cu
).end ());
849 *nr_symtabs_ptr
= nr_symtabs
;
850 *nr_compunit_symtabs_ptr
= nr_compunit_symtabs
;
851 *nr_blocks_ptr
= nr_blocks
;
854 /* As indicated by display_time and display_space, report GDB's
855 elapsed time and space usage from the base time and space recorded
858 scoped_command_stats::~scoped_command_stats ()
860 /* Early exit if we're not reporting any stats. It can be expensive to
861 compute the pre-command values so don't collect them at all if we're
862 not reporting stats. Alas this doesn't work in the startup case because
863 we don't know yet whether we will be reporting the stats. For the
864 startup case collect the data anyway (it should be cheap at this point),
865 and leave it to the reporter to decide whether to print them. */
868 && !per_command_space
869 && !per_command_symtab
)
872 if (m_time_enabled
&& per_command_time
)
874 print_time (_("command finished"));
876 using namespace std::chrono
;
878 run_time_clock::duration cmd_time
879 = run_time_clock::now () - m_start_cpu_time
;
881 steady_clock::duration wall_time
882 = steady_clock::now () - m_start_wall_time
;
883 /* Subtract time spend in prompt_for_continue from walltime. */
884 wall_time
-= get_prompt_for_continue_wait_time ();
886 printf_unfiltered (!m_msg_type
887 ? _("Startup time: %.6f (cpu), %.6f (wall)\n")
888 : _("Command execution time: %.6f (cpu), %.6f (wall)\n"),
889 duration
<double> (cmd_time
).count (),
890 duration
<double> (wall_time
).count ());
893 if (m_space_enabled
&& per_command_space
)
895 #ifdef HAVE_USEFUL_SBRK
896 char *lim
= (char *) sbrk (0);
898 long space_now
= lim
- lim_at_start
;
899 long space_diff
= space_now
- m_start_space
;
901 printf_unfiltered (!m_msg_type
902 ? _("Space used: %ld (%s%ld during startup)\n")
903 : _("Space used: %ld (%s%ld for this command)\n"),
905 (space_diff
>= 0 ? "+" : ""),
910 if (m_symtab_enabled
&& per_command_symtab
)
912 int nr_symtabs
, nr_compunit_symtabs
, nr_blocks
;
914 count_symtabs_and_blocks (&nr_symtabs
, &nr_compunit_symtabs
, &nr_blocks
);
915 printf_unfiltered (_("#symtabs: %d (+%d),"
916 " #compunits: %d (+%d),"
917 " #blocks: %d (+%d)\n"),
919 nr_symtabs
- m_start_nr_symtabs
,
922 - m_start_nr_compunit_symtabs
),
924 nr_blocks
- m_start_nr_blocks
);
928 scoped_command_stats::scoped_command_stats (bool msg_type
)
929 : m_msg_type (msg_type
)
931 if (!m_msg_type
|| per_command_space
)
933 #ifdef HAVE_USEFUL_SBRK
934 char *lim
= (char *) sbrk (0);
935 m_start_space
= lim
- lim_at_start
;
942 if (msg_type
== 0 || per_command_time
)
944 using namespace std::chrono
;
946 m_start_cpu_time
= run_time_clock::now ();
947 m_start_wall_time
= steady_clock::now ();
950 if (per_command_time
)
951 print_time (_("command started"));
956 if (msg_type
== 0 || per_command_symtab
)
958 int nr_symtabs
, nr_compunit_symtabs
, nr_blocks
;
960 count_symtabs_and_blocks (&nr_symtabs
, &nr_compunit_symtabs
, &nr_blocks
);
961 m_start_nr_symtabs
= nr_symtabs
;
962 m_start_nr_compunit_symtabs
= nr_compunit_symtabs
;
963 m_start_nr_blocks
= nr_blocks
;
964 m_symtab_enabled
= 1;
967 m_symtab_enabled
= 0;
969 /* Initialize timer to keep track of how long we waited for the user. */
970 reset_prompt_for_continue_wait_time ();
976 scoped_command_stats::print_time (const char *msg
)
978 using namespace std::chrono
;
980 auto now
= system_clock::now ();
981 auto ticks
= now
.time_since_epoch ().count () / (1000 * 1000);
982 auto millis
= ticks
% 1000;
984 std::time_t as_time
= system_clock::to_time_t (now
);
986 localtime_r (&as_time
, &tm
);
989 strftime (out
, sizeof (out
), "%F %H:%M:%S", &tm
);
991 printf_unfiltered ("%s.%03d - %s\n", out
, (int) millis
, msg
);
994 /* Handle unknown "mt set per-command" arguments.
995 In this case have "mt set per-command on|off" affect every setting. */
998 set_per_command_cmd (const char *args
, int from_tty
)
1000 struct cmd_list_element
*list
;
1003 val
= parse_cli_boolean_value (args
);
1005 error (_("Bad value for 'mt set per-command no'."));
1007 for (list
= per_command_setlist
; list
!= NULL
; list
= list
->next
)
1008 if (list
->var_type
== var_boolean
)
1010 gdb_assert (list
->type
== set_cmd
);
1011 do_set_command (args
, from_tty
, list
);
1017 /* The "maintenance selftest" command. */
1020 maintenance_selftest (const char *args
, int from_tty
)
1023 gdb_argv
argv (args
);
1024 selftests::run_tests (argv
.as_array_view ());
1026 printf_filtered (_("\
1027 Selftests have been disabled for this build.\n"));
1032 maintenance_info_selftests (const char *arg
, int from_tty
)
1035 printf_filtered ("Registered selftests:\n");
1036 selftests::for_each_selftest ([] (const std::string
&name
) {
1037 printf_filtered (" - %s\n", name
.c_str ());
1040 printf_filtered (_("\
1041 Selftests have been disabled for this build.\n"));
1046 void _initialize_maint_cmds ();
1048 _initialize_maint_cmds ()
1050 struct cmd_list_element
*cmd
;
1052 add_basic_prefix_cmd ("maintenance", class_maintenance
, _("\
1053 Commands for use by GDB maintainers.\n\
1054 Includes commands to dump specific internal GDB structures in\n\
1055 a human readable form, to cause GDB to deliberately dump core, etc."),
1056 &maintenancelist
, "maintenance ", 0,
1059 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
1061 add_basic_prefix_cmd ("info", class_maintenance
, _("\
1062 Commands for showing internal info about the program being debugged."),
1063 &maintenanceinfolist
, "maintenance info ", 0,
1065 add_alias_cmd ("i", "info", class_maintenance
, 1, &maintenancelist
);
1067 add_cmd ("sections", class_maintenance
, maintenance_info_sections
, _("\
1068 List the BFD sections of the exec and core files.\n\
1069 Arguments may be any combination of:\n\
1070 [one or more section names]\n\
1071 ALLOC LOAD RELOC READONLY CODE DATA ROM CONSTRUCTOR\n\
1072 HAS_CONTENTS NEVER_LOAD COFF_SHARED_LIBRARY IS_COMMON\n\
1073 Sections matching any argument will be listed (no argument\n\
1074 implies all sections). In addition, the special argument\n\
1076 lists all sections from all object files, including shared libraries."),
1077 &maintenanceinfolist
);
1079 add_basic_prefix_cmd ("print", class_maintenance
,
1080 _("Maintenance command for printing GDB internal state."),
1081 &maintenanceprintlist
, "maintenance print ", 0,
1084 add_basic_prefix_cmd ("set", class_maintenance
, _("\
1085 Set GDB internal variables used by the GDB maintainer.\n\
1086 Configure variables internal to GDB that aid in GDB's maintenance"),
1087 &maintenance_set_cmdlist
, "maintenance set ",
1091 add_show_prefix_cmd ("show", class_maintenance
, _("\
1092 Show GDB internal variables used by the GDB maintainer.\n\
1093 Configure variables internal to GDB that aid in GDB's maintenance"),
1094 &maintenance_show_cmdlist
, "maintenance show ",
1098 cmd
= add_cmd ("with", class_maintenance
, maintenance_with_cmd
, _("\
1099 Like \"with\", but works with \"maintenance set\" variables.\n\
1100 Usage: maintenance with SETTING [VALUE] [-- COMMAND]\n\
1101 With no COMMAND, repeats the last executed command.\n\
1102 SETTING is any setting you can change with the \"maintenance set\"\n\
1105 set_cmd_completer_handle_brkchars (cmd
, maintenance_with_cmd_completer
);
1108 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
, _("\
1109 Get fatal error; make debugger dump its core.\n\
1110 GDB sets its handling of SIGQUIT back to SIG_DFL and then sends\n\
1111 itself a SIGQUIT signal."),
1115 add_cmd ("internal-error", class_maintenance
,
1116 maintenance_internal_error
, _("\
1117 Give GDB an internal error.\n\
1118 Cause GDB to behave as if an internal error was detected."),
1121 add_cmd ("internal-warning", class_maintenance
,
1122 maintenance_internal_warning
, _("\
1123 Give GDB an internal warning.\n\
1124 Cause GDB to behave as if an internal warning was reported."),
1127 add_cmd ("demangler-warning", class_maintenance
,
1128 maintenance_demangler_warning
, _("\
1129 Give GDB a demangler warning.\n\
1130 Cause GDB to behave as if a demangler warning was reported."),
1133 cmd
= add_cmd ("demangle", class_maintenance
, maintenance_demangle
, _("\
1134 This command has been moved to \"demangle\"."),
1136 deprecate_cmd (cmd
, "demangle");
1138 add_prefix_cmd ("per-command", class_maintenance
, set_per_command_cmd
, _("\
1139 Per-command statistics settings."),
1140 &per_command_setlist
, "maintenance set per-command ",
1141 1/*allow-unknown*/, &maintenance_set_cmdlist
);
1143 add_show_prefix_cmd ("per-command", class_maintenance
, _("\
1144 Show per-command statistics settings."),
1145 &per_command_showlist
, "maintenance show per-command ",
1146 0/*allow-unknown*/, &maintenance_show_cmdlist
);
1148 add_setshow_boolean_cmd ("time", class_maintenance
,
1149 &per_command_time
, _("\
1150 Set whether to display per-command execution time."), _("\
1151 Show whether to display per-command execution time."),
1153 If enabled, the execution time for each command will be\n\
1154 displayed following the command's output."),
1156 &per_command_setlist
, &per_command_showlist
);
1158 add_setshow_boolean_cmd ("space", class_maintenance
,
1159 &per_command_space
, _("\
1160 Set whether to display per-command space usage."), _("\
1161 Show whether to display per-command space usage."),
1163 If enabled, the space usage for each command will be\n\
1164 displayed following the command's output."),
1166 &per_command_setlist
, &per_command_showlist
);
1168 add_setshow_boolean_cmd ("symtab", class_maintenance
,
1169 &per_command_symtab
, _("\
1170 Set whether to display per-command symtab statistics."), _("\
1171 Show whether to display per-command symtab statistics."),
1173 If enabled, the basic symtab statistics for each command will be\n\
1174 displayed following the command's output."),
1176 &per_command_setlist
, &per_command_showlist
);
1178 /* This is equivalent to "mt set per-command time on".
1179 Kept because some people are used to typing "mt time 1". */
1180 add_cmd ("time", class_maintenance
, maintenance_time_display
, _("\
1181 Set the display of time usage.\n\
1182 If nonzero, will cause the execution time for each command to be\n\
1183 displayed, following the command's output."),
1186 /* This is equivalent to "mt set per-command space on".
1187 Kept because some people are used to typing "mt space 1". */
1188 add_cmd ("space", class_maintenance
, maintenance_space_display
, _("\
1189 Set the display of space usage.\n\
1190 If nonzero, will cause the execution space for each command to be\n\
1191 displayed, following the command's output."),
1194 add_cmd ("type", class_maintenance
, maintenance_print_type
, _("\
1195 Print a type chain for a given symbol.\n\
1196 For each node in a type chain, print the raw data for each member of\n\
1197 the type structure, and the interpretation of the data."),
1198 &maintenanceprintlist
);
1200 add_cmd ("statistics", class_maintenance
, maintenance_print_statistics
,
1201 _("Print statistics about internal gdb state."),
1202 &maintenanceprintlist
);
1204 add_cmd ("architecture", class_maintenance
,
1205 maintenance_print_architecture
, _("\
1206 Print the internal architecture configuration.\n\
1207 Takes an optional file parameter."),
1208 &maintenanceprintlist
);
1210 add_basic_prefix_cmd ("check", class_maintenance
, _("\
1211 Commands for checking internal gdb state."),
1212 &maintenancechecklist
, "maintenance check ", 0,
1215 add_cmd ("translate-address", class_maintenance
,
1216 maintenance_translate_address
,
1217 _("Translate a section name and address to a symbol."),
1220 add_cmd ("deprecate", class_maintenance
, maintenance_deprecate
, _("\
1221 Deprecate a command (for testing purposes).\n\
1222 Usage: maintenance deprecate COMMANDNAME [\"REPLACEMENT\"]\n\
1223 This is used by the testsuite to check the command deprecator.\n\
1224 You probably shouldn't use this,\n\
1225 rather you should use the C function deprecate_cmd()."), &maintenancelist
);
1227 add_cmd ("undeprecate", class_maintenance
, maintenance_undeprecate
, _("\
1228 Undeprecate a command (for testing purposes).\n\
1229 Usage: maintenance undeprecate COMMANDNAME\n\
1230 This is used by the testsuite to check the command deprecator.\n\
1231 You probably shouldn't use this."),
1234 add_cmd ("selftest", class_maintenance
, maintenance_selftest
, _("\
1235 Run gdb's unit tests.\n\
1236 Usage: maintenance selftest [FILTER]\n\
1237 This will run any unit tests that were built in to gdb.\n\
1238 If a filter is given, only the tests with that value in their name will ran."),
1241 add_cmd ("selftests", class_maintenance
, maintenance_info_selftests
,
1242 _("List the registered selftests."), &maintenanceinfolist
);
1244 add_setshow_boolean_cmd ("profile", class_maintenance
,
1245 &maintenance_profile_p
, _("\
1246 Set internal profiling."), _("\
1247 Show internal profiling."), _("\
1248 When enabled GDB is profiled."),
1249 maintenance_set_profile_cmd
,
1250 show_maintenance_profile_p
,
1251 &maintenance_set_cmdlist
,
1252 &maintenance_show_cmdlist
);
1254 add_setshow_zuinteger_unlimited_cmd ("worker-threads",
1256 &n_worker_threads
, _("\
1257 Set the number of worker threads GDB can use."), _("\
1258 Show the number of worker threads GDB can use."), _("\
1259 GDB may use multiple threads to speed up certain CPU-intensive operations,\n\
1260 such as demangling symbol names."),
1261 maintenance_set_worker_threads
, NULL
,
1262 &maintenance_set_cmdlist
,
1263 &maintenance_show_cmdlist
);
1265 update_thread_pool_size ();