X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fmaint.c;h=86e269a5a1e96fbfe5ed27bb478bd3828b41ffc8;hb=e0c9811a9097ab88de669ce1109f8d63c9732e0d;hp=952e8cccedc999e649a5128ece137a5a0e5f0b9b;hpb=6c9638b444fd6ebdd189fe05c3e44dfbc95c878c;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/maint.c b/gdb/maint.c index 952e8ccced..86e269a5a1 100644 --- a/gdb/maint.c +++ b/gdb/maint.c @@ -2,27 +2,26 @@ Copyright 1992, 1993, 1994 Free Software Foundation, Inc. Written by Fred Fish at Cygnus Support. -This file is part of GDB. + This file is part of GDB. -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ #include "defs.h" - -#if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */ - +#include #include #include "command.h" #include "gdbcmd.h" @@ -30,23 +29,36 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "gdbtypes.h" #include "demangle.h" #include "gdbcore.h" -#include "expression.h" /* For language.h */ +#include "expression.h" /* For language.h */ #include "language.h" +#include "symfile.h" +#include "objfiles.h" +#include "value.h" -#ifdef HAVE_UNISTD_H -#include -#endif +extern void _initialize_maint_cmds PARAMS ((void)); static void maintenance_command PARAMS ((char *, int)); static void maintenance_dump_me PARAMS ((char *, int)); +static void maintenance_internal_error PARAMS ((char *args, int from_tty)); + static void maintenance_demangle PARAMS ((char *, int)); static void maintenance_time_display PARAMS ((char *, int)); static void maintenance_space_display PARAMS ((char *, int)); +static void maintenance_info_command PARAMS ((char *, int)); + +static void print_section_table PARAMS ((bfd *, asection *, PTR)); + +static void maintenance_info_sections PARAMS ((char *, int)); + +static void maintenance_print_command PARAMS ((char *, int)); + +static void maintenance_do_deprecate (char *, int); + /* Set this to the maximum number of seconds to wait instead of waiting forever in target_wait(). If this timer times out, then it generates an error and the command is aborted. This replaces most of the need for timeouts in the @@ -57,17 +69,17 @@ int watchdog = 0; /* -LOCAL FUNCTION + LOCAL FUNCTION - maintenance_command -- access the maintenance subcommands + maintenance_command -- access the maintenance subcommands -SYNOPSIS + SYNOPSIS - void maintenance_command (char *args, int from_tty) + void maintenance_command (char *args, int from_tty) -DESCRIPTION + DESCRIPTION -*/ + */ static void maintenance_command (args, from_tty) @@ -78,7 +90,7 @@ maintenance_command (args, from_tty) help_list (maintenancelist, "maintenance ", -1, gdb_stdout); } - +#ifndef _WIN32 /* ARGSUSED */ static void maintenance_dump_me (args, from_tty) @@ -87,18 +99,36 @@ maintenance_dump_me (args, from_tty) { if (query ("Should GDB dump core? ")) { +#ifdef __DJGPP__ + /* SIGQUIT by default is ignored, so use SIGABRT instead. */ + signal (SIGABRT, SIG_DFL); + kill (getpid (), SIGABRT); +#else signal (SIGQUIT, SIG_DFL); kill (getpid (), SIGQUIT); +#endif } } +#endif -/* Someday we should allow demangling for things other than just - explicit strings. For example, we might want to be able to - specify the address of a string in either GDB's process space - or the debuggee's process space, and have gdb fetch and demangle - that string. If we have a char* pointer "ptr" that points to - a string, we might want to be able to given just the name and - have GDB demangle and print what it points to, etc. (FIXME) */ +/* Stimulate the internal error mechanism that GDB uses when an + internal problem is detected. Allows testing of the mechanism. + Also useful when the user wants to drop a core file but not exit + GDB. */ + +static void +maintenance_internal_error (char *args, int from_tty) +{ + internal_error ("internal maintenance"); +} + +/* Someday we should allow demangling for things other than just + explicit strings. For example, we might want to be able to specify + the address of a string in either GDB's process space or the + debuggee's process space, and have gdb fetch and demangle that + string. If we have a char* pointer "ptr" that points to a string, + we might want to be able to given just the name and have GDB + demangle and print what it points to, etc. (FIXME) */ static void maintenance_demangle (args, from_tty) @@ -152,9 +182,9 @@ maintenance_space_display (args, from_tty) display_space = strtol (args, NULL, 10); } -/* The "maintenance info" command is defined as a prefix, with allow_unknown 0. - Therefore, its own definition is called only for "maintenance info" with - no args. */ +/* The "maintenance info" command is defined as a prefix, with + allow_unknown 0. Therefore, its own definition is called only for + "maintenance info" with no args. */ /* ARGSUSED */ static void @@ -179,15 +209,15 @@ print_section_table (abfd, asect, ignore) /* FIXME-32x64: Need print_address_numeric with field width. */ printf_filtered (" %s", local_hex_string_custom - ((unsigned long) bfd_section_vma (abfd, asect), "08l")); + ((unsigned long) bfd_section_vma (abfd, asect), "08l")); printf_filtered ("->%s", local_hex_string_custom - ((unsigned long) (bfd_section_vma (abfd, asect) - + bfd_section_size (abfd, asect)), - "08l")); + ((unsigned long) (bfd_section_vma (abfd, asect) + + bfd_section_size (abfd, asect)), + "08l")); printf_filtered (" at %s", local_hex_string_custom - ((unsigned long) asect->filepos, "08l")); + ((unsigned long) asect->filepos, "08l")); printf_filtered (": %s", bfd_section_name (abfd, asect)); if (flags & SEC_ALLOC) @@ -227,25 +257,35 @@ maintenance_info_sections (arg, from_tty) if (exec_bfd) { printf_filtered ("Exec file:\n"); - printf_filtered (" `%s', ", bfd_get_filename(exec_bfd)); + printf_filtered (" `%s', ", bfd_get_filename (exec_bfd)); wrap_here (" "); - printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd)); - bfd_map_over_sections(exec_bfd, print_section_table, 0); + printf_filtered ("file type %s.\n", bfd_get_target (exec_bfd)); + bfd_map_over_sections (exec_bfd, print_section_table, 0); } if (core_bfd) { printf_filtered ("Core file:\n"); - printf_filtered (" `%s', ", bfd_get_filename(core_bfd)); + printf_filtered (" `%s', ", bfd_get_filename (core_bfd)); wrap_here (" "); - printf_filtered ("file type %s.\n", bfd_get_target(core_bfd)); - bfd_map_over_sections(core_bfd, print_section_table, 0); + printf_filtered ("file type %s.\n", bfd_get_target (core_bfd)); + bfd_map_over_sections (core_bfd, print_section_table, 0); } } -/* The "maintenance print" command is defined as a prefix, with allow_unknown - 0. Therefore, its own definition is called only for "maintenance print" - with no args. */ +/* ARGSUSED */ +void +maintenance_print_statistics (args, from_tty) + char *args; + int from_tty; +{ + print_objfile_statistics (); + print_symbol_bcache_statistics (); +} + +/* The "maintenance print" command is defined as a prefix, with + allow_unknown 0. Therefore, its own definition is called only for + "maintenance print" with no args. */ /* ARGSUSED */ static void @@ -257,12 +297,190 @@ maintenance_print_command (arg, from_tty) help_list (maintenanceprintlist, "maintenance print ", -1, gdb_stdout); } -#endif /* MAINTENANCE_CMDS */ +/* The "maintenance translate-address" command converts a section and address + to a symbol. This can be called in two ways: + maintenance translate-address + or maintenance translate-address + */ + +static void +maintenance_translate_address (arg, from_tty) + char *arg; + int from_tty; +{ + CORE_ADDR address; + asection *sect; + char *p; + struct minimal_symbol *sym; + struct objfile *objfile; + + if (arg == NULL || *arg == 0) + error ("requires argument (address or section + address)"); + + sect = NULL; + p = arg; + + if (!isdigit (*p)) + { /* See if we have a valid section name */ + while (*p && !isspace (*p)) /* Find end of section name */ + p++; + if (*p == '\000') /* End of command? */ + error ("Need to specify and
"); + *p++ = '\000'; + while (isspace (*p)) + p++; /* Skip whitespace */ + + ALL_OBJFILES (objfile) + { + sect = bfd_get_section_by_name (objfile->obfd, arg); + if (sect != NULL) + break; + } + + if (!sect) + error ("Unknown section %s.", arg); + } + + address = parse_and_eval_address (p); + + if (sect) + sym = lookup_minimal_symbol_by_pc_section (address, sect); + else + sym = lookup_minimal_symbol_by_pc (address); + + if (sym) + printf_filtered ("%s+%s\n", + SYMBOL_SOURCE_NAME (sym), + paddr_u (address - SYMBOL_VALUE_ADDRESS (sym))); + else if (sect) + printf_filtered ("no symbol at %s:0x%s\n", sect->name, paddr (address)); + else + printf_filtered ("no symbol at 0x%s\n", paddr (address)); + + return; +} + + +/* When a comamnd is deprecated the user will be warned the first time + the command is used. If possible, a replacement will be + offered. */ + +static void +maintenance_deprecate (char *args, int from_tty) +{ + if (args == NULL || *args == '\0') + { + printf_unfiltered ("\"maintenance deprecate\" takes an argument, \n\ +the command you want to deprecate, and optionally the replacement command \n\ +enclosed in quotes.\n"); + } + + maintenance_do_deprecate (args, 1); + +} + + +static void +maintenance_undeprecate (char *args, int from_tty) +{ + if (args == NULL || *args == '\0') + { + printf_unfiltered ("\"maintenance undeprecate\" takes an argument, \n\ +the command you want to undeprecate.\n"); + } + + maintenance_do_deprecate (args, 0); + +} + +/* You really shouldn't be using this. It is just for the testsuite. + Rather, you should use deprecate_cmd() when the command is created + in _initialize_blah(). + + This function deprecates a command and optionally assigns it a + replacement. */ + +static void +maintenance_do_deprecate (char *text, int deprecate) +{ + + struct cmd_list_element *alias = NULL; + struct cmd_list_element *prefix_cmd = NULL; + struct cmd_list_element *cmd = NULL; + + char *start_ptr = NULL; + char *end_ptr = NULL; + int len; + char *replacement = NULL; + + if (text == NULL) + return; + + if (!lookup_cmd_composition (text, &alias, &prefix_cmd, &cmd)) + { + printf_filtered ("Can't find command '%s' to deprecate.\n", text); + return; + } + + if (deprecate) + { + /* look for a replacement command */ + start_ptr = strchr (text, '\"'); + if (start_ptr != NULL) + { + start_ptr++; + end_ptr = strrchr (start_ptr, '\"'); + if (end_ptr != NULL) + { + len = end_ptr - start_ptr; + start_ptr[len] = '\0'; + replacement = xstrdup (start_ptr); + } + } + } + + if (!start_ptr || !end_ptr) + replacement = NULL; + + + /* If they used an alias, we only want to deprecate the alias. + + Note the MALLOCED_REPLACEMENT test. If the command's replacement + string was allocated at compile time we don't want to free the + memory. */ + if (alias) + { + + if (alias->flags & MALLOCED_REPLACEMENT) + free (alias->replacement); + + if (deprecate) + alias->flags |= (DEPRECATED_WARN_USER | CMD_DEPRECATED); + else + alias->flags &= ~(DEPRECATED_WARN_USER | CMD_DEPRECATED); + alias->replacement = replacement; + alias->flags |= MALLOCED_REPLACEMENT; + return; + } + else if (cmd) + { + if (cmd->flags & MALLOCED_REPLACEMENT) + free (cmd->replacement); + + if (deprecate) + cmd->flags |= (DEPRECATED_WARN_USER | CMD_DEPRECATED); + else + cmd->flags &= ~(DEPRECATED_WARN_USER | CMD_DEPRECATED); + cmd->replacement = replacement; + cmd->flags |= MALLOCED_REPLACEMENT; + return; + } +} + void _initialize_maint_cmds () { -#if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */ add_prefix_cmd ("maintenance", class_maintenance, maintenance_command, "Commands for use by GDB maintainers.\n\ Includes commands to dump specific internal GDB structures in\n\ @@ -274,9 +492,10 @@ to test internal functions such as the C++ demangler, etc.", add_com_alias ("mt", "maintenance", class_maintenance, 1); add_prefix_cmd ("info", class_maintenance, maintenance_info_command, - "Commands for showing internal info about the program being debugged.", + "Commands for showing internal info about the program being debugged.", &maintenanceinfolist, "maintenance info ", 0, &maintenancelist); + add_alias_cmd ("i", "info", class_maintenance, 1, &maintenancelist); add_cmd ("sections", class_maintenance, maintenance_info_sections, "List the BFD sections of the exec and core files.", @@ -287,11 +506,18 @@ to test internal functions such as the C++ demangler, etc.", &maintenanceprintlist, "maintenance print ", 0, &maintenancelist); +#ifndef _WIN32 add_cmd ("dump-me", class_maintenance, maintenance_dump_me, "Get fatal error; make debugger dump its core.\n\ GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\ itself a SIGQUIT signal.", &maintenancelist); +#endif + + add_cmd ("internal-error", class_maintenance, maintenance_internal_error, + "Give GDB an internal error.\n\ +Cause GDB to behave as if an internal error was detected.", + &maintenancelist); add_cmd ("demangle", class_maintenance, maintenance_demangle, "Demangle a C++ mangled name.\n\ @@ -339,16 +565,36 @@ If a SOURCE file is specified, dump only that file's partial symbols.", "Print dump of current object file definitions.", &maintenanceprintlist); + add_cmd ("statistics", class_maintenance, maintenance_print_statistics, + "Print statistics about internal gdb state.", + &maintenanceprintlist); + add_cmd ("check-symtabs", class_maintenance, maintenance_check_symtabs, "Check consistency of psymtabs and symtabs.", &maintenancelist); + add_cmd ("translate-address", class_maintenance, maintenance_translate_address, + "Translate a section name and address to a symbol.", + &maintenancelist); + + add_cmd ("deprecate", class_maintenance, maintenance_deprecate, + "Deprecate a command. Note that this is just in here so the \n\ +testsuite can check the comamnd deprecator. You probably shouldn't use this,\n\ +rather you should use the C function deprecate_cmd(). If you decide you \n\ +want to use it: maintenance deprecate 'commandname' \"replacement\". The \n\ +replacement is optional.", &maintenancelist); + + add_cmd ("undeprecate", class_maintenance, maintenance_undeprecate, + "Undeprecate a command. Note that this is just in here so the \n\ +testsuite can check the comamnd deprecator. You probably shouldn't use this,\n\ +If you decide you want to use it: maintenance undeprecate 'commandname'", + &maintenancelist); + add_show_from_set ( - add_set_cmd ("watchdog", class_maintenance, var_zinteger, (char *)&watchdog, - "Set watchdog timer.\n\ + add_set_cmd ("watchdog", class_maintenance, var_zinteger, (char *) &watchdog, + "Set watchdog timer.\n\ When non-zero, this timeout is used instead of waiting forever for a target to\n\ finish a low-level step or continue operation. If the specified amount of time\n\ passes without a response from the target, an error occurs.", &setlist), - &showlist); -#endif /* MAINTENANCE_CMDS */ + &showlist); }