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 */
34 #include "expression.h" /* For language.h */
44 static void maintenance_command
PARAMS ((char *, int));
46 static void maintenance_dump_me
PARAMS ((char *, int));
48 static void maintenance_demangle
PARAMS ((char *, int));
50 static void maintenance_time_display
PARAMS ((char *, int));
52 static void maintenance_space_display
PARAMS ((char *, int));
54 static void maintenance_info_command
PARAMS ((char *, int));
56 static void print_section_table
PARAMS ((bfd
*, asection
*, PTR
));
58 static void maintenance_info_sections
PARAMS ((char *, int));
60 static void maintenance_print_command
PARAMS ((char *, int));
62 /* Set this to the maximum number of seconds to wait instead of waiting forever
63 in target_wait(). If this timer times out, then it generates an error and
64 the command is aborted. This replaces most of the need for timeouts in the
65 GDB test suite, and makes it possible to distinguish between a hung target
66 and one with slow communications. */
74 maintenance_command -- access the maintenance subcommands
78 void maintenance_command (char *args, int from_tty)
85 maintenance_command (args
, from_tty
)
89 printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
90 help_list (maintenancelist
, "maintenance ", -1, gdb_stdout
);
96 maintenance_dump_me (args
, from_tty
)
100 if (query ("Should GDB dump core? "))
102 signal (SIGQUIT
, SIG_DFL
);
103 kill (getpid (), SIGQUIT
);
108 /* Someday we should allow demangling for things other than just
109 explicit strings. For example, we might want to be able to
110 specify the address of a string in either GDB's process space
111 or the debuggee's process space, and have gdb fetch and demangle
112 that string. If we have a char* pointer "ptr" that points to
113 a string, we might want to be able to given just the name and
114 have GDB demangle and print what it points to, etc. (FIXME) */
117 maintenance_demangle (args
, from_tty
)
123 if (args
== NULL
|| *args
== '\0')
125 printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
129 demangled
= cplus_demangle (args
, DMGL_ANSI
| DMGL_PARAMS
);
130 if (demangled
!= NULL
)
132 printf_unfiltered ("%s\n", demangled
);
137 printf_unfiltered ("Can't demangle \"%s\"\n", args
);
143 maintenance_time_display (args
, from_tty
)
147 extern int display_time
;
149 if (args
== NULL
|| *args
== '\0')
150 printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
152 display_time
= strtol (args
, NULL
, 10);
156 maintenance_space_display (args
, from_tty
)
160 extern int display_space
;
162 if (args
== NULL
|| *args
== '\0')
163 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
165 display_space
= strtol (args
, NULL
, 10);
168 /* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
169 Therefore, its own definition is called only for "maintenance info" with
174 maintenance_info_command (arg
, from_tty
)
178 printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n");
179 help_list (maintenanceinfolist
, "maintenance info ", -1, gdb_stdout
);
183 print_section_table (abfd
, asect
, ignore
)
190 flags
= bfd_get_section_flags (abfd
, asect
);
192 /* FIXME-32x64: Need print_address_numeric with field width. */
193 printf_filtered (" %s",
194 local_hex_string_custom
195 ((unsigned long) bfd_section_vma (abfd
, asect
), "08l"));
196 printf_filtered ("->%s",
197 local_hex_string_custom
198 ((unsigned long) (bfd_section_vma (abfd
, asect
)
199 + bfd_section_size (abfd
, asect
)),
201 printf_filtered (" at %s",
202 local_hex_string_custom
203 ((unsigned long) asect
->filepos
, "08l"));
204 printf_filtered (": %s", bfd_section_name (abfd
, asect
));
206 if (flags
& SEC_ALLOC
)
207 printf_filtered (" ALLOC");
208 if (flags
& SEC_LOAD
)
209 printf_filtered (" LOAD");
210 if (flags
& SEC_RELOC
)
211 printf_filtered (" RELOC");
212 if (flags
& SEC_READONLY
)
213 printf_filtered (" READONLY");
214 if (flags
& SEC_CODE
)
215 printf_filtered (" CODE");
216 if (flags
& SEC_DATA
)
217 printf_filtered (" DATA");
219 printf_filtered (" ROM");
220 if (flags
& SEC_CONSTRUCTOR
)
221 printf_filtered (" CONSTRUCTOR");
222 if (flags
& SEC_HAS_CONTENTS
)
223 printf_filtered (" HAS_CONTENTS");
224 if (flags
& SEC_NEVER_LOAD
)
225 printf_filtered (" NEVER_LOAD");
226 if (flags
& SEC_COFF_SHARED_LIBRARY
)
227 printf_filtered (" COFF_SHARED_LIBRARY");
228 if (flags
& SEC_IS_COMMON
)
229 printf_filtered (" IS_COMMON");
231 printf_filtered ("\n");
236 maintenance_info_sections (arg
, from_tty
)
242 printf_filtered ("Exec file:\n");
243 printf_filtered (" `%s', ", bfd_get_filename(exec_bfd
));
245 printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd
));
246 bfd_map_over_sections(exec_bfd
, print_section_table
, 0);
251 printf_filtered ("Core file:\n");
252 printf_filtered (" `%s', ", bfd_get_filename(core_bfd
));
254 printf_filtered ("file type %s.\n", bfd_get_target(core_bfd
));
255 bfd_map_over_sections(core_bfd
, print_section_table
, 0);
261 maintenance_print_statistics (args
, from_tty
)
265 print_objfile_statistics ();
266 print_symbol_bcache_statistics ();
269 /* The "maintenance print" command is defined as a prefix, with allow_unknown
270 0. Therefore, its own definition is called only for "maintenance print"
275 maintenance_print_command (arg
, from_tty
)
279 printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n");
280 help_list (maintenanceprintlist
, "maintenance print ", -1, gdb_stdout
);
283 /* The "maintenance translate-address" command converts a section and address
284 to a symbol. This can be called in two ways:
285 maintenance translate-address <secname> <addr>
286 or maintenance translate-address <addr>
290 maintenance_translate_address (arg
, from_tty
)
303 { /* See if we have a valid section name */
304 while (*p
&& !isspace (*p
)) /* Find end of section name */
306 if (*p
== '\000') /* End of command? */
307 error ("Need to specify <section-name> and <address>");
309 while (isspace (*p
)) p
++; /* Skip whitespace */
311 sect
= bfd_get_section_by_name (exec_bfd
, arg
);
313 error ("Unknown section %s.", arg
);
316 address
= parse_and_eval_address (p
);
319 /* sym = find_pc_function_section (address, sect);*/
321 printf_unfiltered ("%s+%u\n", SYMBOL_SOURCE_NAME (sym
), address
- SYMBOL_VALUE_ADDRESS (sym
));
324 #endif /* MAINTENANCE_CMDS */
327 _initialize_maint_cmds ()
329 #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
330 add_prefix_cmd ("maintenance", class_maintenance
, maintenance_command
,
331 "Commands for use by GDB maintainers.\n\
332 Includes commands to dump specific internal GDB structures in\n\
333 a human readable form, to cause GDB to deliberately dump core,\n\
334 to test internal functions such as the C++ demangler, etc.",
335 &maintenancelist
, "maintenance ", 0,
338 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
340 add_prefix_cmd ("info", class_maintenance
, maintenance_info_command
,
341 "Commands for showing internal info about the program being debugged.",
342 &maintenanceinfolist
, "maintenance info ", 0,
345 add_cmd ("sections", class_maintenance
, maintenance_info_sections
,
346 "List the BFD sections of the exec and core files.",
347 &maintenanceinfolist
);
349 add_prefix_cmd ("print", class_maintenance
, maintenance_print_command
,
350 "Maintenance command for printing GDB internal state.",
351 &maintenanceprintlist
, "maintenance print ", 0,
355 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
,
356 "Get fatal error; make debugger dump its core.\n\
357 GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
358 itself a SIGQUIT signal.",
362 add_cmd ("demangle", class_maintenance
, maintenance_demangle
,
363 "Demangle a C++ mangled name.\n\
364 Call internal GDB demangler routine to demangle a C++ link name\n\
365 and prints the result.",
368 add_cmd ("time", class_maintenance
, maintenance_time_display
,
369 "Set the display of time usage.\n\
370 If nonzero, will cause the execution time for each command to be\n\
371 displayed, following the command's output.",
374 add_cmd ("space", class_maintenance
, maintenance_space_display
,
375 "Set the display of space usage.\n\
376 If nonzero, will cause the execution space for each command to be\n\
377 displayed, following the command's output.",
380 add_cmd ("type", class_maintenance
, maintenance_print_type
,
381 "Print a type chain for a given symbol.\n\
382 For each node in a type chain, print the raw data for each member of\n\
383 the type structure, and the interpretation of the data.",
384 &maintenanceprintlist
);
386 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
,
387 "Print dump of current symbol definitions.\n\
388 Entries in the full symbol table are dumped to file OUTFILE.\n\
389 If a SOURCE file is specified, dump only that file's symbols.",
390 &maintenanceprintlist
);
392 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
,
393 "Print dump of current minimal symbol definitions.\n\
394 Entries in the minimal symbol table are dumped to file OUTFILE.\n\
395 If a SOURCE file is specified, dump only that file's minimal symbols.",
396 &maintenanceprintlist
);
398 add_cmd ("psymbols", class_maintenance
, maintenance_print_psymbols
,
399 "Print dump of current partial symbol definitions.\n\
400 Entries in the partial symbol table are dumped to file OUTFILE.\n\
401 If a SOURCE file is specified, dump only that file's partial symbols.",
402 &maintenanceprintlist
);
404 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
405 "Print dump of current object file definitions.",
406 &maintenanceprintlist
);
408 add_cmd ("statistics", class_maintenance
, maintenance_print_statistics
,
409 "Print statistics about internal gdb state.",
410 &maintenanceprintlist
);
412 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
413 "Check consistency of psymtabs and symtabs.",
416 add_cmd ("translate-address", class_maintenance
, maintenance_translate_address
,
417 "Translate a section name and address to a symbol.",
421 add_set_cmd ("watchdog", class_maintenance
, var_zinteger
, (char *)&watchdog
,
422 "Set watchdog timer.\n\
423 When non-zero, this timeout is used instead of waiting forever for a target to\n\
424 finish a low-level step or continue operation. If the specified amount of time\n\
425 passes without a response from the target, an error occurs.", &setlist
),
427 #endif /* MAINTENANCE_CMDS */