gdb/maint.c

   1 /* Support for GDB maintenance commands.
   2    Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
   3    Written by Fred Fish at Cygnus Support.
   4
   5 This file is part of GDB.
   6
   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.
  11
  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.
  16
  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.  */
  20
  21
  22 #include "defs.h"
  23
  24 #if MAINTENANCE_CMDS    /* Entire rest of file goes away if not including maint cmds */
  25
  26 #include <signal.h>
  27 #include "command.h"
  28 #include "gdbcmd.h"
  29 #include "symtab.h"
  30 #include "gdbtypes.h"
  31 #include "demangle.h"
  32 #include "gdbcore.h"
  33 #include "expression.h" /* For language.h */
  34 #include "language.h"
  35 #include "symfile.h"
  36 #include "objfiles.h"
  37
  38 #ifdef HAVE_UNISTD_H
  39 #include <unistd.h>
  40 #endif
  41
  42 static void maintenance_command PARAMS ((char *, int));
  43
  44 static void maintenance_dump_me PARAMS ((char *, int));
  45
  46 static void maintenance_demangle PARAMS ((char *, int));
  47
  48 static void maintenance_time_display PARAMS ((char *, int));
  49
  50 static void maintenance_space_display PARAMS ((char *, int));
  51
  52 static void maintenance_info_command PARAMS ((char *, int));
  53
  54 static void print_section_table PARAMS ((bfd *, asection *, PTR));
  55
  56 static void maintenance_info_sections PARAMS ((char *, int));
  57
  58 static void maintenance_print_command PARAMS ((char *, int));
  59
  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.  */
  65
  66 int watchdog = 0;
  67
  68 /*
  69
  70 LOCAL FUNCTION
  71
  72         maintenance_command -- access the maintenance subcommands
  73
  74 SYNOPSIS
  75
  76         void maintenance_command (char *args, int from_tty)
  77
  78 DESCRIPTION
  79
  80 */
  81
  82 static void
  83 maintenance_command (args, from_tty)
  84      char *args;
  85      int from_tty;
  86 {
  87   printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
  88   help_list (maintenancelist, "maintenance ", -1, gdb_stdout);
  89 }
  90
  91 #ifndef _WIN32
  92 /* ARGSUSED */
  93 static void
  94 maintenance_dump_me (args, from_tty)
  95      char *args;
  96      int from_tty;
  97 {
  98   if (query ("Should GDB dump core? "))
  99     {
 100       signal (SIGQUIT, SIG_DFL);
 101       kill (getpid (), SIGQUIT);
 102     }
 103 }
 104 #endif
 105
 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) */
 113
 114 static void
 115 maintenance_demangle (args, from_tty)
 116      char *args;
 117      int from_tty;
 118 {
 119   char *demangled;
 120
 121   if (args == NULL || *args == '\0')
 122     {
 123       printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
 124     }
 125   else
 126     {
 127       demangled = cplus_demangle (args, DMGL_ANSI | DMGL_PARAMS);
 128       if (demangled != NULL)
 129         {
 130           printf_unfiltered ("%s\n", demangled);
 131           free (demangled);
 132         }
 133       else
 134         {
 135           printf_unfiltered ("Can't demangle \"%s\"\n", args);
 136         }
 137     }
 138 }
 139
 140 static void
 141 maintenance_time_display (args, from_tty)
 142      char *args;
 143      int from_tty;
 144 {
 145   extern int display_time;
 146
 147   if (args == NULL || *args == '\0')
 148     printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
 149   else
 150     display_time = strtol (args, NULL, 10);
 151 }
 152
 153 static void
 154 maintenance_space_display (args, from_tty)
 155      char *args;
 156      int from_tty;
 157 {
 158   extern int display_space;
 159
 160   if (args == NULL || *args == '\0')
 161     printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
 162   else
 163     display_space = strtol (args, NULL, 10);
 164 }
 165
 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
 168    no args.  */
 169
 170 /* ARGSUSED */
 171 static void
 172 maintenance_info_command (arg, from_tty)
 173      char *arg;
 174      int from_tty;
 175 {
 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);
 178 }
 179
 180 static void
 181 print_section_table (abfd, asect, ignore)
 182      bfd *abfd;
 183      asection *asect;
 184      PTR ignore;
 185 {
 186   flagword flags;
 187
 188   flags = bfd_get_section_flags (abfd, asect);
 189
 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)),
 198                       "08l"));
 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));
 203
 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");
 216   if (flags & SEC_ROM)
 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");
 228
 229   printf_filtered ("\n");
 230 }
 231
 232 /* ARGSUSED */
 233 static void
 234 maintenance_info_sections (arg, from_tty)
 235      char *arg;
 236      int from_tty;
 237 {
 238   if (exec_bfd)
 239     {
 240       printf_filtered ("Exec file:\n");
 241       printf_filtered ("    `%s', ", bfd_get_filename(exec_bfd));
 242       wrap_here ("        ");
 243       printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd));
 244       bfd_map_over_sections(exec_bfd, print_section_table, 0);
 245     }
 246
 247   if (core_bfd)
 248     {
 249       printf_filtered ("Core file:\n");
 250       printf_filtered ("    `%s', ", bfd_get_filename(core_bfd));
 251       wrap_here ("        ");
 252       printf_filtered ("file type %s.\n", bfd_get_target(core_bfd));
 253       bfd_map_over_sections(core_bfd, print_section_table, 0);
 254     }
 255 }
 256
 257 /* ARGSUSED */
 258 void
 259 maintenance_print_statistics (args, from_tty)
 260      char *args;
 261      int from_tty;
 262 {
 263   print_objfile_statistics ();
 264   print_symbol_bcache_statistics ();
 265 }
 266
 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"
 269    with no args.  */
 270
 271 /* ARGSUSED */
 272 static void
 273 maintenance_print_command (arg, from_tty)
 274      char *arg;
 275      int from_tty;
 276 {
 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);
 279 }
 280
 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>
 285 */
 286
 287 static void
 288 maintenance_translate_address (arg, from_tty)
 289      char *arg;
 290      int from_tty;
 291 {
 292   CORE_ADDR address;
 293   asection *sect;
 294   char *p;
 295   struct symbol *sym;
 296
 297   sect = NULL;
 298   p = arg;
 299
 300   if (!isdigit (*p))
 301     {                           /* See if we have a valid section name */
 302       while (*p && !isspace (*p)) /* Find end of section name */
 303         p++;
 304       if (*p == '\000')         /* End of command? */
 305         error ("Need to specify <section-name> and <address>");
 306       *p++ = '\000';
 307       while (isspace (*p)) p++; /* Skip whitespace */
 308
 309       sect = bfd_get_section_by_name (exec_bfd, arg);
 310       if (!sect)
 311         error ("Unknown section %s.", arg);
 312     }
 313
 314   address = parse_and_eval_address (p);
 315
 316   return;
 317 /*  sym = find_pc_function_section (address, sect);*/
 318
 319   printf_unfiltered ("%s+%u\n", SYMBOL_SOURCE_NAME (sym), address - SYMBOL_VALUE_ADDRESS (sym));
 320 }
 321
 322 #endif  /* MAINTENANCE_CMDS */
 323
 324 void
 325 _initialize_maint_cmds ()
 326 {
 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,
 334                   &cmdlist);
 335
 336   add_com_alias ("mt", "maintenance", class_maintenance, 1);
 337
 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,
 341                   &maintenancelist);
 342
 343   add_cmd ("sections", class_maintenance, maintenance_info_sections,
 344            "List the BFD sections of the exec and core files.",
 345            &maintenanceinfolist);
 346
 347   add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
 348                   "Maintenance command for printing GDB internal state.",
 349                   &maintenanceprintlist, "maintenance print ", 0,
 350                   &maintenancelist);
 351
 352 #ifndef _WIN32
 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.",
 357            &maintenancelist);
 358 #endif
 359
 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.",
 364            &maintenancelist);
 365
 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.",
 370            &maintenancelist);
 371
 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.",
 376            &maintenancelist);
 377
 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);
 383
 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);
 389
 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);
 395
 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);
 401
 402   add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles,
 403            "Print dump of current object file definitions.",
 404            &maintenanceprintlist);
 405
 406   add_cmd ("statistics", class_maintenance, maintenance_print_statistics,
 407            "Print statistics about internal gdb state.",
 408            &maintenanceprintlist);
 409
 410   add_cmd ("check-symtabs", class_maintenance, maintenance_check_symtabs,
 411            "Check consistency of psymtabs and symtabs.",
 412            &maintenancelist);
 413
 414   add_cmd ("translate-address", class_maintenance, maintenance_translate_address,
 415            "Translate a section name and address to a symbol.",
 416            &maintenancelist);
 417
 418   add_show_from_set (
 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),
 424                      &showlist);
 425 #endif  /* MAINTENANCE_CMDS */
 426 }