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., 675 Mass Ave, Cambridge, MA 02139, USA. */
24 #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
33 #include "expression.h" /* For language.h */
36 static void maintenance_command
PARAMS ((char *, int));
38 static void maintenance_dump_me
PARAMS ((char *, int));
40 static void maintenance_demangle
PARAMS ((char *, int));
42 static void maintenance_time_display
PARAMS ((char *, int));
44 static void maintenance_space_display
PARAMS ((char *, int));
46 /* Set this to the maximum number of seconds to wait instead of waiting forever
47 in target_wait(). If this timer times out, then it generates an error and
48 the command is aborted. This replaces most of the need for timeouts in the
49 GDB test suite, and makes it possible to distinguish between a hung target
50 and one with slow communications. */
58 maintenance_command -- access the maintenance subcommands
62 void maintenance_command (char *args, int from_tty)
69 maintenance_command (args
, from_tty
)
73 printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
74 help_list (maintenancelist
, "maintenance ", -1, gdb_stdout
);
80 maintenance_dump_me (args
, from_tty
)
84 if (query ("Should GDB dump core? "))
86 signal (SIGQUIT
, SIG_DFL
);
87 kill (getpid (), SIGQUIT
);
91 /* Someday we should allow demangling for things other than just
92 explicit strings. For example, we might want to be able to
93 specify the address of a string in either GDB's process space
94 or the debuggee's process space, and have gdb fetch and demangle
95 that string. If we have a char* pointer "ptr" that points to
96 a string, we might want to be able to given just the name and
97 have GDB demangle and print what it points to, etc. (FIXME) */
100 maintenance_demangle (args
, from_tty
)
106 if (args
== NULL
|| *args
== '\0')
108 printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
112 demangled
= cplus_demangle (args
, DMGL_ANSI
| DMGL_PARAMS
);
113 if (demangled
!= NULL
)
115 printf_unfiltered ("%s\n", demangled
);
120 printf_unfiltered ("Can't demangle \"%s\"\n", args
);
126 maintenance_time_display (args
, from_tty
)
130 extern int display_time
;
132 if (args
== NULL
|| *args
== '\0')
133 printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
135 display_time
= strtol (args
, NULL
, 10);
139 maintenance_space_display (args
, from_tty
)
143 extern int display_space
;
145 if (args
== NULL
|| *args
== '\0')
146 printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
148 display_space
= strtol (args
, NULL
, 10);
151 /* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
152 Therefore, its own definition is called only for "maintenance info" with
157 maintenance_info_command (arg
, from_tty
)
161 printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n");
162 help_list (maintenanceinfolist
, "maintenance info ", -1, gdb_stdout
);
166 print_section_table (abfd
, asect
, ignore
)
173 flags
= bfd_get_section_flags (abfd
, asect
);
175 /* FIXME-32x64: Need print_address_numeric with field width. */
176 printf_filtered (" %s",
177 local_hex_string_custom
178 ((unsigned long) bfd_section_vma (abfd
, asect
), "08l"));
179 printf_filtered ("->%s",
180 local_hex_string_custom
181 ((unsigned long) (bfd_section_vma (abfd
, asect
)
182 + bfd_section_size (abfd
, asect
)),
184 printf_filtered (" at %s",
185 local_hex_string_custom
186 ((unsigned long) asect
->filepos
, "08l"));
187 printf_filtered (": %s", bfd_section_name (abfd
, asect
));
189 if (flags
& SEC_ALLOC
)
190 printf_filtered (" ALLOC");
191 if (flags
& SEC_LOAD
)
192 printf_filtered (" LOAD");
193 if (flags
& SEC_RELOC
)
194 printf_filtered (" RELOC");
195 if (flags
& SEC_READONLY
)
196 printf_filtered (" READONLY");
197 if (flags
& SEC_CODE
)
198 printf_filtered (" CODE");
199 if (flags
& SEC_DATA
)
200 printf_filtered (" DATA");
202 printf_filtered (" ROM");
203 if (flags
& SEC_CONSTRUCTOR
)
204 printf_filtered (" CONSTRUCTOR");
205 if (flags
& SEC_HAS_CONTENTS
)
206 printf_filtered (" HAS_CONTENTS");
207 if (flags
& SEC_NEVER_LOAD
)
208 printf_filtered (" NEVER_LOAD");
209 if (flags
& SEC_COFF_SHARED_LIBRARY
)
210 printf_filtered (" COFF_SHARED_LIBRARY");
211 if (flags
& SEC_IS_COMMON
)
212 printf_filtered (" IS_COMMON");
214 printf_filtered ("\n");
219 maintenance_info_sections (arg
, from_tty
)
225 printf_filtered ("Exec file:\n");
226 printf_filtered (" `%s', ", bfd_get_filename(exec_bfd
));
228 printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd
));
229 bfd_map_over_sections(exec_bfd
, print_section_table
, 0);
234 printf_filtered ("Core file:\n");
235 printf_filtered (" `%s', ", bfd_get_filename(core_bfd
));
237 printf_filtered ("file type %s.\n", bfd_get_target(core_bfd
));
238 bfd_map_over_sections(core_bfd
, print_section_table
, 0);
242 /* The "maintenance print" command is defined as a prefix, with allow_unknown
243 0. Therefore, its own definition is called only for "maintenance print"
248 maintenance_print_command (arg
, from_tty
)
252 printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n");
253 help_list (maintenanceprintlist
, "maintenance print ", -1, gdb_stdout
);
256 #endif /* MAINTENANCE_CMDS */
259 _initialize_maint_cmds ()
261 #if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
262 add_prefix_cmd ("maintenance", class_maintenance
, maintenance_command
,
263 "Commands for use by GDB maintainers.\n\
264 Includes commands to dump specific internal GDB structures in\n\
265 a human readable form, to cause GDB to deliberately dump core,\n\
266 to test internal functions such as the C++ demangler, etc.",
267 &maintenancelist
, "maintenance ", 0,
270 add_com_alias ("mt", "maintenance", class_maintenance
, 1);
272 add_prefix_cmd ("info", class_maintenance
, maintenance_info_command
,
273 "Commands for showing internal info about the program being debugged.",
274 &maintenanceinfolist
, "maintenance info ", 0,
277 add_cmd ("sections", class_maintenance
, maintenance_info_sections
,
278 "List the BFD sections of the exec and core files.",
279 &maintenanceinfolist
);
281 add_prefix_cmd ("print", class_maintenance
, maintenance_print_command
,
282 "Maintenance command for printing GDB internal state.",
283 &maintenanceprintlist
, "maintenance print ", 0,
286 add_cmd ("dump-me", class_maintenance
, maintenance_dump_me
,
287 "Get fatal error; make debugger dump its core.\n\
288 GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
289 itself a SIGQUIT signal.",
292 add_cmd ("demangle", class_maintenance
, maintenance_demangle
,
293 "Demangle a C++ mangled name.\n\
294 Call internal GDB demangler routine to demangle a C++ link name\n\
295 and prints the result.",
298 add_cmd ("time", class_maintenance
, maintenance_time_display
,
299 "Set the display of time usage.\n\
300 If nonzero, will cause the execution time for each command to be\n\
301 displayed, following the command's output.",
304 add_cmd ("space", class_maintenance
, maintenance_space_display
,
305 "Set the display of space usage.\n\
306 If nonzero, will cause the execution space for each command to be\n\
307 displayed, following the command's output.",
310 add_cmd ("type", class_maintenance
, maintenance_print_type
,
311 "Print a type chain for a given symbol.\n\
312 For each node in a type chain, print the raw data for each member of\n\
313 the type structure, and the interpretation of the data.",
314 &maintenanceprintlist
);
316 add_cmd ("symbols", class_maintenance
, maintenance_print_symbols
,
317 "Print dump of current symbol definitions.\n\
318 Entries in the full symbol table are dumped to file OUTFILE.\n\
319 If a SOURCE file is specified, dump only that file's symbols.",
320 &maintenanceprintlist
);
322 add_cmd ("msymbols", class_maintenance
, maintenance_print_msymbols
,
323 "Print dump of current minimal symbol definitions.\n\
324 Entries in the minimal symbol table are dumped to file OUTFILE.\n\
325 If a SOURCE file is specified, dump only that file's minimal symbols.",
326 &maintenanceprintlist
);
328 add_cmd ("psymbols", class_maintenance
, maintenance_print_psymbols
,
329 "Print dump of current partial symbol definitions.\n\
330 Entries in the partial symbol table are dumped to file OUTFILE.\n\
331 If a SOURCE file is specified, dump only that file's partial symbols.",
332 &maintenanceprintlist
);
334 add_cmd ("objfiles", class_maintenance
, maintenance_print_objfiles
,
335 "Print dump of current object file definitions.",
336 &maintenanceprintlist
);
338 add_cmd ("check-symtabs", class_maintenance
, maintenance_check_symtabs
,
339 "Check consistency of psymtabs and symtabs.",
343 add_set_cmd ("watchdog", class_maintenance
, var_zinteger
, (char *)&watchdog
,
344 "Set watchdog timer.\n\
345 When non-zero, this timeout is used instead of waiting forever for a target to\n\
346 finish a low-level step or continue operation. If the specified amount of time\n\
347 passes without a response from the target, an error occurs.", &setlist
),
349 #endif /* MAINTENANCE_CMDS */