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 /* Information passed between the "maintenance info sections" command, and
249 the worker function that prints each section. */
250 struct maint_print_section_data
252 /* The GDB objfile we're printing this section for. */
253 struct objfile
*objfile
;
255 /* The argument string passed by the user to the top level maintenance
256 info sections command. Used for filtering which sections are
260 /* The number of digits in the highest section index for all sections
261 from the bfd object associated with OBJFILE. Used when pretty
262 printing the index number to ensure all of the indexes line up. */
266 maint_print_section_data (struct objfile
*objfile
, const char *arg
,
271 int section_count
= gdb_bfd_count_sections (abfd
);
272 index_digits
= ((int) log10 ((float) section_count
)) + 1;
276 maint_print_section_data () = delete;
277 maint_print_section_data (const maint_print_section_data
&) = delete;
280 /* Helper function to pretty-print the section index of ASECT from ABFD.
281 The INDEX_DIGITS is the number of digits in the largest index that will
282 be printed, and is used to pretty-print the resulting string. */
285 print_section_index (bfd
*abfd
,
290 = string_printf (" [%d] ", gdb_bfd_section_index (abfd
, asect
));
291 /* The '+ 4' for the leading and trailing characters. */
292 printf_filtered ("%-*s", (index_digits
+ 4), result
.c_str ());
295 /* Print information about ASECT from ABFD. DATUM holds a pointer to a
296 maint_print_section_data object. The section will be printed using the
297 VMA's from the bfd, which will not be the relocated addresses for bfds
298 that should be relocated. The information must be printed with the
299 same layout as PRINT_OBJFILE_SECTION_INFO below. */
302 print_bfd_section_info (bfd
*abfd
,
306 flagword flags
= bfd_section_flags (asect
);
307 const char *name
= bfd_section_name (asect
);
308 maint_print_section_data
*print_data
= (maint_print_section_data
*) datum
;
309 const char *arg
= print_data
->arg
;
311 if (arg
== NULL
|| *arg
== '\0'
312 || match_substring (arg
, name
)
313 || match_bfd_flags (arg
, flags
))
315 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
316 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
317 CORE_ADDR addr
, endaddr
;
319 addr
= bfd_section_vma (asect
);
320 endaddr
= addr
+ bfd_section_size (asect
);
321 print_section_index (abfd
, asect
, print_data
->index_digits
);
322 maint_print_section_info (name
, flags
, addr
, endaddr
,
323 asect
->filepos
, addr_size
);
327 /* Print information about ASECT which is GDB's wrapper around a section
328 from ABFD. The information must be printed with the same layout as
329 PRINT_BFD_SECTION_INFO above. PRINT_DATA holds information used to
330 filter which sections are printed, and for formatting the output. */
333 print_objfile_section_info (bfd
*abfd
,
334 struct obj_section
*asect
,
335 maint_print_section_data
*print_data
)
337 flagword flags
= bfd_section_flags (asect
->the_bfd_section
);
338 const char *name
= bfd_section_name (asect
->the_bfd_section
);
339 const char *string
= print_data
->arg
;
341 if (string
== NULL
|| *string
== '\0'
342 || match_substring (string
, name
)
343 || match_bfd_flags (string
, flags
))
345 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
346 int addr_size
= gdbarch_addr_bit (gdbarch
) / 8;
348 print_section_index (abfd
, asect
->the_bfd_section
,
349 print_data
->index_digits
);
350 maint_print_section_info (name
, flags
,
351 obj_section_addr (asect
),
352 obj_section_endaddr (asect
),
353 asect
->the_bfd_section
->filepos
,
358 /* Find an obj_section, GDB's wrapper around a bfd section for ASECTION
359 from ABFD. It might be that no such wrapper exists (for example debug
360 sections don't have such wrappers) in which case nullptr is returned. */
363 maint_obj_section_from_bfd_section (bfd
*abfd
,
367 if (ofile
->sections
== nullptr)
371 = &ofile
->sections
[gdb_bfd_section_index (abfd
, asection
)];
373 if (osect
>= ofile
->sections_end
)
379 /* Print information about ASECT from ABFD. DATUM holds a pointer to a
380 maint_print_section_data object. Where possible the information for
381 ASECT will print the relocated addresses of the section. */
384 print_bfd_section_info_maybe_relocated (bfd
*abfd
,
388 maint_print_section_data
*print_data
= (maint_print_section_data
*) datum
;
389 objfile
*objfile
= print_data
->objfile
;
391 gdb_assert (objfile
->sections
!= NULL
);
393 = maint_obj_section_from_bfd_section (abfd
, asect
, objfile
);
395 if (osect
->the_bfd_section
== NULL
)
396 print_bfd_section_info (abfd
, asect
, datum
);
398 print_objfile_section_info (abfd
, osect
, print_data
);
401 /* Implement the "maintenance info sections" command. */
404 maintenance_info_sections (const char *arg
, int from_tty
)
410 printf_filtered (_("Exec file:\n"));
411 printf_filtered (" `%s', ", bfd_get_filename (exec_bfd
));
413 printf_filtered (_("file type %s.\n"), bfd_get_target (exec_bfd
));
415 /* Only this function cares about the 'ALLOBJ' argument;
416 if 'ALLOBJ' is the only argument, discard it rather than
417 passing it down to print_objfile_section_info (which
418 wouldn't know how to handle it). */
419 if (arg
&& strcmp (arg
, "ALLOBJ") == 0)
425 for (objfile
*ofile
: current_program_space
->objfiles ())
428 printf_filtered (_(" Object file: %s\n"),
429 bfd_get_filename (ofile
->obfd
));
430 else if (ofile
->obfd
!= exec_bfd
)
433 maint_print_section_data
print_data (ofile
, arg
, ofile
->obfd
);
435 bfd_map_over_sections (ofile
->obfd
,
436 print_bfd_section_info_maybe_relocated
,
437 (void *) &print_data
);
443 maint_print_section_data
print_data (nullptr, arg
, core_bfd
);
445 printf_filtered (_("Core file:\n"));
446 printf_filtered (" `%s', ", bfd_get_filename (core_bfd
));
448 printf_filtered (_("file type %s.\n"), bfd_get_target (core_bfd
));
449 bfd_map_over_sections (core_bfd
, print_bfd_section_info
,
450 (void *) &print_data
);
455 maintenance_print_statistics (const char *args
, int from_tty
)
457 print_objfile_statistics ();
458 print_symbol_bcache_statistics ();
462 maintenance_print_architecture (const char *args
, int from_tty
)
464 struct gdbarch
*gdbarch
= get_current_arch ();
467 gdbarch_dump (gdbarch
, gdb_stdout
);
472 if (!file
.open (args
, "w"))
473 perror_with_name (_("maintenance print architecture"));
474 gdbarch_dump (gdbarch
, &file
);
478 /* The "maintenance translate-address" command converts a section and address
479 to a symbol. This can be called in two ways:
480 maintenance translate-address <secname> <addr>
481 or maintenance translate-address <addr>. */
484 maintenance_translate_address (const char *arg
, int from_tty
)
487 struct obj_section
*sect
;
489 struct bound_minimal_symbol sym
;
491 if (arg
== NULL
|| *arg
== 0)
492 error (_("requires argument (address or section + address)"));
498 { /* See if we have a valid section name. */
499 while (*p
&& !isspace (*p
)) /* Find end of section name. */
501 if (*p
== '\000') /* End of command? */
502 error (_("Need to specify section name and address"));
504 int arg_len
= p
- arg
;
505 p
= skip_spaces (p
+ 1);
507 for (objfile
*objfile
: current_program_space
->objfiles ())
508 ALL_OBJFILE_OSECTIONS (objfile
, sect
)
510 if (strncmp (sect
->the_bfd_section
->name
, arg
, arg_len
) == 0)
514 error (_("Unknown section %s."), arg
);
518 address
= parse_and_eval_address (p
);
521 sym
= lookup_minimal_symbol_by_pc_section (address
, sect
);
523 sym
= lookup_minimal_symbol_by_pc (address
);
527 const char *symbol_name
= sym
.minsym
->print_name ();
528 const char *symbol_offset
529 = pulongest (address
- BMSYMBOL_VALUE_ADDRESS (sym
));
531 sect
= MSYMBOL_OBJ_SECTION(sym
.objfile
, sym
.minsym
);
534 const char *section_name
;
535 const char *obj_name
;
537 gdb_assert (sect
->the_bfd_section
&& sect
->the_bfd_section
->name
);
538 section_name
= sect
->the_bfd_section
->name
;
540 gdb_assert (sect
->objfile
&& objfile_name (sect
->objfile
));
541 obj_name
= objfile_name (sect
->objfile
);
543 if (current_program_space
->multi_objfile_p ())
544 printf_filtered (_("%s + %s in section %s of %s\n"),
545 symbol_name
, symbol_offset
,
546 section_name
, obj_name
);
548 printf_filtered (_("%s + %s in section %s\n"),
549 symbol_name
, symbol_offset
, section_name
);
552 printf_filtered (_("%s + %s\n"), symbol_name
, symbol_offset
);
555 printf_filtered (_("no symbol at %s:%s\n"),
556 sect
->the_bfd_section
->name
, hex_string (address
));
558 printf_filtered (_("no symbol at %s\n"), hex_string (address
));
564 /* When a command is deprecated the user will be warned the first time
565 the command is used. If possible, a replacement will be
569 maintenance_deprecate (const char *args
, int from_tty
)
571 if (args
== NULL
|| *args
== '\0')
573 printf_unfiltered (_("\"maintenance deprecate\" takes an argument,\n\
574 the command you want to deprecate, and optionally the replacement command\n\
575 enclosed in quotes.\n"));
578 maintenance_do_deprecate (args
, 1);
583 maintenance_undeprecate (const char *args
, int from_tty
)
585 if (args
== NULL
|| *args
== '\0')
587 printf_unfiltered (_("\"maintenance undeprecate\" takes an argument, \n\
588 the command you want to undeprecate.\n"));
591 maintenance_do_deprecate (args
, 0);
594 /* You really shouldn't be using this. It is just for the testsuite.
595 Rather, you should use deprecate_cmd() when the command is created
596 in _initialize_blah().
598 This function deprecates a command and optionally assigns it a
602 maintenance_do_deprecate (const char *text
, int deprecate
)
604 struct cmd_list_element
*alias
= NULL
;
605 struct cmd_list_element
*prefix_cmd
= NULL
;
606 struct cmd_list_element
*cmd
= NULL
;
608 const char *start_ptr
= NULL
;
609 const char *end_ptr
= NULL
;
611 char *replacement
= NULL
;
616 if (!lookup_cmd_composition (text
, &alias
, &prefix_cmd
, &cmd
))
618 printf_filtered (_("Can't find command '%s' to deprecate.\n"), text
);
624 /* Look for a replacement command. */
625 start_ptr
= strchr (text
, '\"');
626 if (start_ptr
!= NULL
)
629 end_ptr
= strrchr (start_ptr
, '\"');
632 len
= end_ptr
- start_ptr
;
633 replacement
= savestring (start_ptr
, len
);
638 if (!start_ptr
|| !end_ptr
)
642 /* If they used an alias, we only want to deprecate the alias.
644 Note the MALLOCED_REPLACEMENT test. If the command's replacement
645 string was allocated at compile time we don't want to free the
649 if (alias
->malloced_replacement
)
650 xfree ((char *) alias
->replacement
);
654 alias
->deprecated_warn_user
= 1;
655 alias
->cmd_deprecated
= 1;
659 alias
->deprecated_warn_user
= 0;
660 alias
->cmd_deprecated
= 0;
662 alias
->replacement
= replacement
;
663 alias
->malloced_replacement
= 1;
668 if (cmd
->malloced_replacement
)
669 xfree ((char *) cmd
->replacement
);
673 cmd
->deprecated_warn_user
= 1;
674 cmd
->cmd_deprecated
= 1;
678 cmd
->deprecated_warn_user
= 0;
679 cmd
->cmd_deprecated
= 0;
681 cmd
->replacement
= replacement
;
682 cmd
->malloced_replacement
= 1;
688 /* Maintenance set/show framework. */
690 struct cmd_list_element
*maintenance_set_cmdlist
;
691 struct cmd_list_element
*maintenance_show_cmdlist
;
693 /* "maintenance with" command. */
696 maintenance_with_cmd (const char *args
, int from_tty
)
698 with_command_1 ("maintenance set ", maintenance_set_cmdlist
, args
, from_tty
);
701 /* "maintenance with" command completer. */
704 maintenance_with_cmd_completer (struct cmd_list_element
*ignore
,
705 completion_tracker
&tracker
,
706 const char *text
, const char * /*word*/)
708 with_command_completer_1 ("maintenance set ", tracker
, text
);
711 /* Profiling support. */
713 static bool maintenance_profile_p
;
715 show_maintenance_profile_p (struct ui_file
*file
, int from_tty
,
716 struct cmd_list_element
*c
, const char *value
)
718 fprintf_filtered (file
, _("Internal profiling is %s.\n"), value
);
723 #define TEXTEND &_etext
724 #elif defined (HAVE_ETEXT)
726 #define TEXTEND &etext
729 #if defined (HAVE_MONSTARTUP) && defined (HAVE__MCLEANUP) && defined (TEXTEND)
731 static int profiling_state
;
733 EXTERN_C
void _mcleanup (void);
736 mcleanup_wrapper (void)
742 EXTERN_C
void monstartup (unsigned long, unsigned long);
746 maintenance_set_profile_cmd (const char *args
, int from_tty
,
747 struct cmd_list_element
*c
)
749 if (maintenance_profile_p
== profiling_state
)
752 profiling_state
= maintenance_profile_p
;
754 if (maintenance_profile_p
)
756 static int profiling_initialized
;
758 if (!profiling_initialized
)
760 atexit (mcleanup_wrapper
);
761 profiling_initialized
= 1;
764 /* "main" is now always the first function in the text segment, so use
765 its address for monstartup. */
766 monstartup ((unsigned long) &main
, (unsigned long) TEXTEND
);
770 extern void _mcleanup (void);
777 maintenance_set_profile_cmd (const char *args
, int from_tty
,
778 struct cmd_list_element
*c
)
780 error (_("Profiling support is not available on this system."));
784 static int n_worker_threads
= -1;
786 /* Update the thread pool for the desired number of threads. */
788 update_thread_pool_size ()
791 int n_threads
= n_worker_threads
;
794 n_threads
= std::thread::hardware_concurrency ();
796 gdb::thread_pool::g_thread_pool
->set_thread_count (n_threads
);
801 maintenance_set_worker_threads (const char *args
, int from_tty
,
802 struct cmd_list_element
*c
)
804 update_thread_pool_size ();
808 /* If true, display time usage both at startup and for each command. */
810 static bool per_command_time
;
812 /* If true, display space usage both at startup and for each command. */
814 static bool per_command_space
;
816 /* If true, display basic symtab stats for each command. */
818 static bool per_command_symtab
;
820 /* mt per-command commands. */
822 static struct cmd_list_element
*per_command_setlist
;
823 static struct cmd_list_element
*per_command_showlist
;
825 /* Set whether to display time statistics to NEW_VALUE
826 (non-zero means true). */
829 set_per_command_time (int new_value
)
831 per_command_time
= new_value
;
834 /* Set whether to display space statistics to NEW_VALUE
835 (non-zero means true). */
838 set_per_command_space (int new_value
)
840 per_command_space
= new_value
;
843 /* Count the number of symtabs and blocks. */
846 count_symtabs_and_blocks (int *nr_symtabs_ptr
, int *nr_compunit_symtabs_ptr
,
850 int nr_compunit_symtabs
= 0;
853 /* When collecting statistics during startup, this is called before
854 pretty much anything in gdb has been initialized, and thus
855 current_program_space may be NULL. */
856 if (current_program_space
!= NULL
)
858 for (objfile
*o
: current_program_space
->objfiles ())
860 for (compunit_symtab
*cu
: o
->compunits ())
862 ++nr_compunit_symtabs
;
863 nr_blocks
+= BLOCKVECTOR_NBLOCKS (COMPUNIT_BLOCKVECTOR (cu
));
864 nr_symtabs
+= std::distance (compunit_filetabs (cu
).begin (),
865 compunit_filetabs (cu
).end ());
870 *nr_symtabs_ptr
= nr_symtabs
;
871 *nr_compunit_symtabs_ptr
= nr_compunit_symtabs
;
872 *nr_blocks_ptr
= nr_blocks
;
875 /* As indicated by display_time and display_space, report GDB's
876 elapsed time and space usage from the base time and space recorded
879 scoped_command_stats::~scoped_command_stats ()
881 /* Early exit if we're not reporting any stats. It can be expensive to
882 compute the pre-command values so don't collect them at all if we're
883 not reporting stats. Alas this doesn't work in the startup case because
884 we don't know yet whether we will be reporting the stats. For the
885 startup case collect the data anyway (it should be cheap at this point),
886 and leave it to the reporter to decide whether to print them. */
889 && !per_command_space
890 && !per_command_symtab
)
893 if (m_time_enabled
&& per_command_time
)
895 print_time (_("command finished"));
897 using namespace std::chrono
;
899 run_time_clock::duration cmd_time
900 = run_time_clock::now () - m_start_cpu_time
;
902 steady_clock::duration wall_time
903 = steady_clock::now () - m_start_wall_time
;
904 /* Subtract time spend in prompt_for_continue from walltime. */
905 wall_time
-= get_prompt_for_continue_wait_time ();
907 printf_unfiltered (!m_msg_type
908 ? _("Startup time: %.6f (cpu), %.6f (wall)\n")
909 : _("Command execution time: %.6f (cpu), %.6f (wall)\n"),
910 duration
<double> (cmd_time
).count (),
911 duration
<double> (wall_time
).count ());
914 if (m_space_enabled
&& per_command_space
)
916 #ifdef HAVE_USEFUL_SBRK
917 char *lim
= (char *) sbrk (0);
919 long space_now
= lim
- lim_at_start
;
920 long space_diff
= space_now
- m_start_space
;
922 printf_unfiltered (!m_msg_type
923 ? _("Space used: %ld (%s%ld during startup)\n")
924 : _("Space used: %ld (%s%ld for this command)\n"),
926 (space_diff
>= 0 ? "+" : ""),
931 if (m_symtab_enabled
&& per_command_symtab
)
933 int nr_symtabs
, nr_compunit_symtabs
, nr_blocks
;
935 count_symtabs_and_blocks (&nr_symtabs
, &nr_compunit_symtabs
, &nr_blocks
);
936 printf_unfiltered (_("#symtabs: %d (+%d),"
937 " #compunits: %d (+%d),"
938 " #blocks: %d (+%d)\n"),
940 nr_symtabs
- m_start_nr_symtabs
,
943 - m_start_nr_compunit_symtabs
),
945 nr_blocks
- m_start_nr_blocks
);
949 scoped_command_stats::scoped_command_stats (bool msg_type
)
950 : m_msg_type (msg_type
)
952 if (!m_msg_type
|| per_command_space
)
954 #ifdef HAVE_USEFUL_SBRK
955 char *lim
= (char *) sbrk (0);
956 m_start_space
= lim
- lim_at_start
;
963 if (msg_type
== 0 || per_command_time
)
965 using namespace std::chrono
;
967 m_start_cpu_time
= run_time_clock::now ();
968 m_start_wall_time
= steady_clock::now ();
971 if (per_command_time
)
972 print_time (_("command started"));
977 if (msg_type
== 0 || per_command_symtab
)
979 int nr_symtabs
, nr_compunit_symtabs
, nr_blocks
;
981 count_symtabs_and_blocks (&nr_symtabs
, &nr_compunit_symtabs
, &nr_blocks
);
982 m_start_nr_symtabs
= nr_symtabs
;
983 m_start_nr_compunit_symtabs
= nr_compunit_symtabs
;
984 m_start_nr_blocks
= nr_blocks
;
985 m_symtab_enabled
= 1;
988 m_symtab_enabled
= 0;
990 /* Initialize timer to keep track of how long we waited for the user. */
991 reset_prompt_for_continue_wait_time ();
997 scoped_command_stats::print_time (const char *msg
)
999 using namespace std::chrono
;
1001 auto now
= system_clock::now ();
1002 auto ticks
= now
.time_since_epoch ().count () / (1000 * 1000);
1003 auto millis
= ticks
% 1000;
1005 std::time_t as_time
= system_clock::to_time_t (now
);
1007 localtime_r (&as_time
, &tm
);
1010 strftime (out
, sizeof (out
), "%F %H:%M:%S", &tm
);
1012 printf_unfiltered ("%s.%03d - %s\n", out
, (int) millis
, msg
);
1015 /* Handle unknown "mt set per-command" arguments.
1016 In this case have "mt set per-command on|off" affect every setting. */
1019 set_per_command_cmd (const char *args
, int from_tty
)
1021 struct cmd_list_element
*list
;
1024 val
= parse_cli_boolean_value (args
);
1026 error (_("Bad value for 'mt set per-command no'."));
1028 for (list
= per_command_setlist
; list
!= NULL
; list
= list
->next
)
1029 if (list
->var_type
== var_boolean
)
1031 gdb_assert (list
->type
== set_cmd
);
1032 do_set_command (args
, from_tty
, list
);
1038 /* The "maintenance selftest" command. */
1041 maintenance_selftest (const char *args
, int from_tty
)
1044 selftests::run_tests (args
);
1046 printf_filtered (_("\
1047 Selftests have been disabled for this build.\n"));
1052 maintenance_info_selftests (const char *arg
, int from_tty
)
1055 printf_filtered ("Registered selftests:\n");
1056 selftests::for_each_selftest ([] (const std::string
&name
) {
1057 printf_filtered (" - %s\n", name
.c_str ());
1060 printf_filtered (_("\
1061 Selftests have been disabled for this build.\n"));
1066 void _initialize_maint_cmds ();
1068 _initialize_maint_cmds ()
1070 struct cmd_list_element
*cmd
;
1072 add_basic_prefix_cmd ("maintenance", class_maintenance
, _("\
1073 Commands for use by GDB maintainers.\n\
1074 Includes commands to dump specific internal GDB structures in\n\
1075 a human readable form, to cause GDB to deliberately dump core, etc."),
1076 &maintenancelist
, "maintenance ", 0,
1079 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
1081 add_basic_prefix_cmd ("info", class_maintenance
, _("\
1082 Commands for showing internal info about the program being debugged."),
1083 &maintenanceinfolist
, "maintenance info ", 0,
1085 add_alias_cmd ("i", "info", class_maintenance
, 1, &maintenancelist
);
1087 add_cmd ("sections", class_maintenance
, maintenance_info_sections
, _("\
1088 List the BFD sections of the exec and core files.\n\
1089 Arguments may be any combination of:\n\
1090 [one or more section names]\n\
1091 ALLOC LOAD RELOC READONLY CODE DATA ROM CONSTRUCTOR\n\
1092 HAS_CONTENTS NEVER_LOAD COFF_SHARED_LIBRARY IS_COMMON\n\
1093 Sections matching any argument will be listed (no argument\n\
1094 implies all sections). In addition, the special argument\n\
1096 lists all sections from all object files, including shared libraries."),
1097 &maintenanceinfolist
);
1099 add_basic_prefix_cmd ("print", class_maintenance
,
1100 _("Maintenance command for printing GDB internal state."),
1101 &maintenanceprintlist
, "maintenance print ", 0,
1104 add_basic_prefix_cmd ("set", class_maintenance
, _("\
1105 Set GDB internal variables used by the GDB maintainer.\n\
1106 Configure variables internal to GDB that aid in GDB's maintenance"),
1107 &maintenance_set_cmdlist
, "maintenance set ",
1111 add_show_prefix_cmd ("show", class_maintenance
, _("\
1112 Show GDB internal variables used by the GDB maintainer.\n\
1113 Configure variables internal to GDB that aid in GDB's maintenance"),
1114 &maintenance_show_cmdlist
, "maintenance show ",
1118 cmd
= add_cmd ("with", class_maintenance
, maintenance_with_cmd
, _("\
1119 Like \"with\", but works with \"maintenance set\" variables.\n\
1120 Usage: maintenance with SETTING [VALUE] [-- COMMAND]\n\
1121 With no COMMAND, repeats the last executed command.\n\
1122 SETTING is any setting you can change with the \"maintenance set\"\n\
1125 set_cmd_completer_handle_brkchars (cmd
, maintenance_with_cmd_completer
);
1128 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
, _("\
1129 Get fatal error; make debugger dump its core.\n\
1130 GDB sets its handling of SIGQUIT back to SIG_DFL and then sends\n\
1131 itself a SIGQUIT signal."),
1135 add_cmd ("internal-error", class_maintenance
,
1136 maintenance_internal_error
, _("\
1137 Give GDB an internal error.\n\
1138 Cause GDB to behave as if an internal error was detected."),
1141 add_cmd ("internal-warning", class_maintenance
,
1142 maintenance_internal_warning
, _("\
1143 Give GDB an internal warning.\n\
1144 Cause GDB to behave as if an internal warning was reported."),
1147 add_cmd ("demangler-warning", class_maintenance
,
1148 maintenance_demangler_warning
, _("\
1149 Give GDB a demangler warning.\n\
1150 Cause GDB to behave as if a demangler warning was reported."),
1153 cmd
= add_cmd ("demangle", class_maintenance
, maintenance_demangle
, _("\
1154 This command has been moved to \"demangle\"."),
1156 deprecate_cmd (cmd
, "demangle");
1158 add_prefix_cmd ("per-command", class_maintenance
, set_per_command_cmd
, _("\
1159 Per-command statistics settings."),
1160 &per_command_setlist
, "maintenance set per-command ",
1161 1/*allow-unknown*/, &maintenance_set_cmdlist
);
1163 add_show_prefix_cmd ("per-command", class_maintenance
, _("\
1164 Show per-command statistics settings."),
1165 &per_command_showlist
, "maintenance show per-command ",
1166 0/*allow-unknown*/, &maintenance_show_cmdlist
);
1168 add_setshow_boolean_cmd ("time", class_maintenance
,
1169 &per_command_time
, _("\
1170 Set whether to display per-command execution time."), _("\
1171 Show whether to display per-command execution time."),
1173 If enabled, the execution time for each command will be\n\
1174 displayed following the command's output."),
1176 &per_command_setlist
, &per_command_showlist
);
1178 add_setshow_boolean_cmd ("space", class_maintenance
,
1179 &per_command_space
, _("\
1180 Set whether to display per-command space usage."), _("\
1181 Show whether to display per-command space usage."),
1183 If enabled, the space usage for each command will be\n\
1184 displayed following the command's output."),
1186 &per_command_setlist
, &per_command_showlist
);
1188 add_setshow_boolean_cmd ("symtab", class_maintenance
,
1189 &per_command_symtab
, _("\
1190 Set whether to display per-command symtab statistics."), _("\
1191 Show whether to display per-command symtab statistics."),
1193 If enabled, the basic symtab statistics for each command will be\n\
1194 displayed following the command's output."),
1196 &per_command_setlist
, &per_command_showlist
);
1198 /* This is equivalent to "mt set per-command time on".
1199 Kept because some people are used to typing "mt time 1". */
1200 add_cmd ("time", class_maintenance
, maintenance_time_display
, _("\
1201 Set the display of time usage.\n\
1202 If nonzero, will cause the execution time for each command to be\n\
1203 displayed, following the command's output."),
1206 /* This is equivalent to "mt set per-command space on".
1207 Kept because some people are used to typing "mt space 1". */
1208 add_cmd ("space", class_maintenance
, maintenance_space_display
, _("\
1209 Set the display of space usage.\n\
1210 If nonzero, will cause the execution space for each command to be\n\
1211 displayed, following the command's output."),
1214 add_cmd ("type", class_maintenance
, maintenance_print_type
, _("\
1215 Print a type chain for a given symbol.\n\
1216 For each node in a type chain, print the raw data for each member of\n\
1217 the type structure, and the interpretation of the data."),
1218 &maintenanceprintlist
);
1220 add_cmd ("statistics", class_maintenance
, maintenance_print_statistics
,
1221 _("Print statistics about internal gdb state."),
1222 &maintenanceprintlist
);
1224 add_cmd ("architecture", class_maintenance
,
1225 maintenance_print_architecture
, _("\
1226 Print the internal architecture configuration.\n\
1227 Takes an optional file parameter."),
1228 &maintenanceprintlist
);
1230 add_basic_prefix_cmd ("check", class_maintenance
, _("\
1231 Commands for checking internal gdb state."),
1232 &maintenancechecklist
, "maintenance check ", 0,
1235 add_cmd ("translate-address", class_maintenance
,
1236 maintenance_translate_address
,
1237 _("Translate a section name and address to a symbol."),
1240 add_cmd ("deprecate", class_maintenance
, maintenance_deprecate
, _("\
1241 Deprecate a command (for testing purposes).\n\
1242 Usage: maintenance deprecate COMMANDNAME [\"REPLACEMENT\"]\n\
1243 This is used by the testsuite to check the command deprecator.\n\
1244 You probably shouldn't use this,\n\
1245 rather you should use the C function deprecate_cmd()."), &maintenancelist
);
1247 add_cmd ("undeprecate", class_maintenance
, maintenance_undeprecate
, _("\
1248 Undeprecate a command (for testing purposes).\n\
1249 Usage: maintenance undeprecate COMMANDNAME\n\
1250 This is used by the testsuite to check the command deprecator.\n\
1251 You probably shouldn't use this."),
1254 add_cmd ("selftest", class_maintenance
, maintenance_selftest
, _("\
1255 Run gdb's unit tests.\n\
1256 Usage: maintenance selftest [FILTER]\n\
1257 This will run any unit tests that were built in to gdb.\n\
1258 If a filter is given, only the tests with that value in their name will ran."),
1261 add_cmd ("selftests", class_maintenance
, maintenance_info_selftests
,
1262 _("List the registered selftests."), &maintenanceinfolist
);
1264 add_setshow_boolean_cmd ("profile", class_maintenance
,
1265 &maintenance_profile_p
, _("\
1266 Set internal profiling."), _("\
1267 Show internal profiling."), _("\
1268 When enabled GDB is profiled."),
1269 maintenance_set_profile_cmd
,
1270 show_maintenance_profile_p
,
1271 &maintenance_set_cmdlist
,
1272 &maintenance_show_cmdlist
);
1274 add_setshow_zuinteger_unlimited_cmd ("worker-threads",
1276 &n_worker_threads
, _("\
1277 Set the number of worker threads GDB can use."), _("\
1278 Show the number of worker threads GDB can use."), _("\
1279 GDB may use multiple threads to speed up certain CPU-intensive operations,\n\
1280 such as demangling symbol names."),
1281 maintenance_set_worker_threads
, NULL
,
1282 &maintenance_set_cmdlist
,
1283 &maintenance_show_cmdlist
);
1285 update_thread_pool_size ();