1 /* Support for GDB maintenance commands.
2 Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
3 Written by Fred Fish at Cygnus Support.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
24 #if MAINTENANCE_CMDS /* Entire rest of file goes away if not including maint cmds */
33 #include "expression.h" /* For language.h */
42 static void maintenance_command
PARAMS ((char *, int));
44 static void maintenance_dump_me
PARAMS ((char *, int));
46 static void maintenance_demangle
PARAMS ((char *, int));
48 static void maintenance_time_display
PARAMS ((char *, int));
50 static void maintenance_space_display
PARAMS ((char *, int));
52 static void maintenance_info_command
PARAMS ((char *, int));
54 static void print_section_table
PARAMS ((bfd
*, asection
*, PTR
));
56 static void maintenance_info_sections
PARAMS ((char *, int));
58 static void maintenance_print_command
PARAMS ((char *, int));
60 /* Set this to the maximum number of seconds to wait instead of waiting forever
61 in target_wait(). If this timer times out, then it generates an error and
62 the command is aborted. This replaces most of the need for timeouts in the
63 GDB test suite, and makes it possible to distinguish between a hung target
64 and one with slow communications. */
72 maintenance_command -- access the maintenance subcommands
76 void maintenance_command (char *args, int from_tty)
83 maintenance_command (args
, from_tty
)
87 printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
88 help_list (maintenancelist
, "maintenance ", -1, gdb_stdout
);
94 maintenance_dump_me (args
, from_tty
)
98 if (query ("Should GDB dump core? "))
100 signal (SIGQUIT
, SIG_DFL
);
101 kill (getpid (), SIGQUIT
);
106 /* Someday we should allow demangling for things other than just
107 explicit strings. For example, we might want to be able to
108 specify the address of a string in either GDB's process space
109 or the debuggee's process space, and have gdb fetch and demangle
110 that string. If we have a char* pointer "ptr" that points to
111 a string, we might want to be able to given just the name and
112 have GDB demangle and print what it points to, etc. (FIXME) */
115 maintenance_demangle (args
, from_tty
)
121 if (args
== NULL
|| *args
== '\0')
123 printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
127 demangled
= cplus_demangle (args
, DMGL_ANSI
| DMGL_PARAMS
);
128 if (demangled
!= NULL
)
130 printf_unfiltered ("%s\n", demangled
);
135 printf_unfiltered ("Can't demangle \"%s\"\n", args
);
141 maintenance_time_display (args
, from_tty
)
145 extern int display_time
;
147 if (args
== NULL
|| *args
== '\0')
148 printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
150 display_time
= strtol (args
, NULL
, 10);
154 maintenance_space_display (args
, from_tty
)
158 extern int display_space
;
160 if (args
== NULL
|| *args
== '\0')
161 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
163 display_space
= strtol (args
, NULL
, 10);
166 /* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
167 Therefore, its own definition is called only for "maintenance info" with
172 maintenance_info_command (arg
, from_tty
)
176 printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n");
177 help_list (maintenanceinfolist
, "maintenance info ", -1, gdb_stdout
);
181 print_section_table (abfd
, asect
, ignore
)
188 flags
= bfd_get_section_flags (abfd
, asect
);
190 /* FIXME-32x64: Need print_address_numeric with field width. */
191 printf_filtered (" %s",
192 local_hex_string_custom
193 ((unsigned long) bfd_section_vma (abfd
, asect
), "08l"));
194 printf_filtered ("->%s",
195 local_hex_string_custom
196 ((unsigned long) (bfd_section_vma (abfd
, asect
)
197 + bfd_section_size (abfd
, asect
)),
199 printf_filtered (" at %s",
200 local_hex_string_custom
201 ((unsigned long) asect
->filepos
, "08l"));
202 printf_filtered (": %s", bfd_section_name (abfd
, asect
));
204 if (flags
& SEC_ALLOC
)
205 printf_filtered (" ALLOC");
206 if (flags
& SEC_LOAD
)
207 printf_filtered (" LOAD");
208 if (flags
& SEC_RELOC
)
209 printf_filtered (" RELOC");
210 if (flags
& SEC_READONLY
)
211 printf_filtered (" READONLY");
212 if (flags
& SEC_CODE
)
213 printf_filtered (" CODE");
214 if (flags
& SEC_DATA
)
215 printf_filtered (" DATA");
217 printf_filtered (" ROM");
218 if (flags
& SEC_CONSTRUCTOR
)
219 printf_filtered (" CONSTRUCTOR");
220 if (flags
& SEC_HAS_CONTENTS
)
221 printf_filtered (" HAS_CONTENTS");
222 if (flags
& SEC_NEVER_LOAD
)
223 printf_filtered (" NEVER_LOAD");
224 if (flags
& SEC_COFF_SHARED_LIBRARY
)
225 printf_filtered (" COFF_SHARED_LIBRARY");
226 if (flags
& SEC_IS_COMMON
)
227 printf_filtered (" IS_COMMON");
229 printf_filtered ("\n");
234 maintenance_info_sections (arg
, from_tty
)
240 printf_filtered ("Exec file:\n");
241 printf_filtered (" `%s', ", bfd_get_filename(exec_bfd
));
243 printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd
));
244 bfd_map_over_sections(exec_bfd
, print_section_table
, 0);
249 printf_filtered ("Core file:\n");
250 printf_filtered (" `%s', ", bfd_get_filename(core_bfd
));
252 printf_filtered ("file type %s.\n", bfd_get_target(core_bfd
));
253 bfd_map_over_sections(core_bfd
, print_section_table
, 0);
259 maintenance_print_statistics (args
, from_tty
)
263 print_objfile_statistics ();
264 print_symbol_bcache_statistics ();
267 /* The "maintenance print" command is defined as a prefix, with allow_unknown
268 0. Therefore, its own definition is called only for "maintenance print"
273 maintenance_print_command (arg
, from_tty
)
277 printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n");
278 help_list (maintenanceprintlist
, "maintenance print ", -1, gdb_stdout
);
281 /* The "maintenance translate-address" command converts a section and address
282 to a symbol. This can be called in two ways:
283 maintenance translate-address <secname> <addr>
284 or maintenance translate-address <addr>
288 maintenance_translate_address (arg
, from_tty
)
301 { /* See if we have a valid section name */
302 while (*p
&& !isspace (*p
)) /* Find end of section name */
304 if (*p
== '\000') /* End of command? */
305 error ("Need to specify <section-name> and <address>");
307 while (isspace (*p
)) p
++; /* Skip whitespace */
309 sect
= bfd_get_section_by_name (exec_bfd
, arg
);
311 error ("Unknown section %s.", arg
);
314 address
= parse_and_eval_address (p
);
317 /* sym = find_pc_function_section (address, sect);*/
319 printf_unfiltered ("%s+%u\n", SYMBOL_SOURCE_NAME (sym
), address
- SYMBOL_VALUE_ADDRESS (sym
));
322 #endif /* MAINTENANCE_CMDS */
325 _initialize_maint_cmds ()
327 #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
328 add_prefix_cmd ("maintenance", class_maintenance
, maintenance_command
,
329 "Commands for use by GDB maintainers.\n\
330 Includes commands to dump specific internal GDB structures in\n\
331 a human readable form, to cause GDB to deliberately dump core,\n\
332 to test internal functions such as the C++ demangler, etc.",
333 &maintenancelist
, "maintenance ", 0,
336 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
338 add_prefix_cmd ("info", class_maintenance
, maintenance_info_command
,
339 "Commands for showing internal info about the program being debugged.",
340 &maintenanceinfolist
, "maintenance info ", 0,
343 add_cmd ("sections", class_maintenance
, maintenance_info_sections
,
344 "List the BFD sections of the exec and core files.",
345 &maintenanceinfolist
);
347 add_prefix_cmd ("print", class_maintenance
, maintenance_print_command
,
348 "Maintenance command for printing GDB internal state.",
349 &maintenanceprintlist
, "maintenance print ", 0,
353 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
,
354 "Get fatal error; make debugger dump its core.\n\
355 GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
356 itself a SIGQUIT signal.",
360 add_cmd ("demangle", class_maintenance
, maintenance_demangle
,
361 "Demangle a C++ mangled name.\n\
362 Call internal GDB demangler routine to demangle a C++ link name\n\
363 and prints the result.",
366 add_cmd ("time", class_maintenance
, maintenance_time_display
,
367 "Set the display of time usage.\n\
368 If nonzero, will cause the execution time for each command to be\n\
369 displayed, following the command's output.",
372 add_cmd ("space", class_maintenance
, maintenance_space_display
,
373 "Set the display of space usage.\n\
374 If nonzero, will cause the execution space for each command to be\n\
375 displayed, following the command's output.",
378 add_cmd ("type", class_maintenance
, maintenance_print_type
,
379 "Print a type chain for a given symbol.\n\
380 For each node in a type chain, print the raw data for each member of\n\
381 the type structure, and the interpretation of the data.",
382 &maintenanceprintlist
);
384 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
,
385 "Print dump of current symbol definitions.\n\
386 Entries in the full symbol table are dumped to file OUTFILE.\n\
387 If a SOURCE file is specified, dump only that file's symbols.",
388 &maintenanceprintlist
);
390 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
,
391 "Print dump of current minimal symbol definitions.\n\
392 Entries in the minimal symbol table are dumped to file OUTFILE.\n\
393 If a SOURCE file is specified, dump only that file's minimal symbols.",
394 &maintenanceprintlist
);
396 add_cmd ("psymbols", class_maintenance
, maintenance_print_psymbols
,
397 "Print dump of current partial symbol definitions.\n\
398 Entries in the partial symbol table are dumped to file OUTFILE.\n\
399 If a SOURCE file is specified, dump only that file's partial symbols.",
400 &maintenanceprintlist
);
402 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
403 "Print dump of current object file definitions.",
404 &maintenanceprintlist
);
406 add_cmd ("statistics", class_maintenance
, maintenance_print_statistics
,
407 "Print statistics about internal gdb state.",
408 &maintenanceprintlist
);
410 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
411 "Check consistency of psymtabs and symtabs.",
414 add_cmd ("translate-address", class_maintenance
, maintenance_translate_address
,
415 "Translate a section name and address to a symbol.",
419 add_set_cmd ("watchdog", class_maintenance
, var_zinteger
, (char *)&watchdog
,
420 "Set watchdog timer.\n\
421 When non-zero, this timeout is used instead of waiting forever for a target to\n\
422 finish a low-level step or continue operation. If the specified amount of time\n\
423 passes without a response from the target, an error occurs.", &setlist
),
425 #endif /* MAINTENANCE_CMDS */