[binutils.git] / gdb / maint.c

/* Support for GDB maintenance commands.
   Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
   Written by Fred Fish at Cygnus Support.

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 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */


#include "defs.h"

#if MAINTENANCE_CMDS	/* Entire file goes away if not including maint cmds */

#include <signal.h>
#include "command.h"
#include "gdbcmd.h"
#include "symtab.h"
#include "gdbtypes.h"
#include "demangle.h"
#include "gdbcore.h"
#include "expression.h" /* For language.h */
#include "language.h"

static void maintenance_command PARAMS ((char *, int));

static void maintenance_dump_me PARAMS ((char *, int));

static void maintenance_demangle PARAMS ((char *, int));

static void maintenance_time_display PARAMS ((char *, int));

static void maintenance_space_display PARAMS ((char *, int));

/*

LOCAL FUNCTION

	maintenance_command -- access the maintenance subcommands

SYNOPSIS

	void maintenance_command (char *args, int from_tty)

DESCRIPTION

*/

static void
maintenance_command (args, from_tty)
     char *args;
     int from_tty;
{
  printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
  help_list (maintenancelist, "maintenance ", -1, gdb_stdout);
}


/* ARGSUSED */
static void
maintenance_dump_me (args, from_tty)
     char *args;
     int from_tty;
{
  if (query ("Should GDB dump core? "))
    {
      signal (SIGQUIT, SIG_DFL);
      kill (getpid (), SIGQUIT);
    }
}

/*  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)
     char *args;
     int from_tty;
{
  char *demangled;

  if (args == NULL || *args == '\0')
    {
      printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
    }
  else
    {
      demangled = cplus_demangle (args, DMGL_ANSI | DMGL_PARAMS);
      if (demangled != NULL)
	{
	  printf_unfiltered ("%s\n", demangled);
	  free (demangled);
	}
      else
	{
	  printf_unfiltered ("Can't demangle \"%s\"\n", args);
	}
    }
}

static void
maintenance_time_display (args, from_tty)
     char *args;
     int from_tty;
{
  extern int display_time;

  if (args == NULL || *args == '\0')
    printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
  else
    display_time = strtol (args, NULL, 10);
}

static void
maintenance_space_display (args, from_tty)
     char *args;
     int from_tty;
{
  extern int display_space;

  if (args == NULL || *args == '\0')
    printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
  else
    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.  */

/* ARGSUSED */
static void
maintenance_info_command (arg, from_tty)
     char *arg;
     int from_tty;
{
  printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n");
  help_list (maintenanceinfolist, "maintenance info ", -1, gdb_stdout);
}

static void
print_section_table (abfd, asect, ignore)
     bfd *abfd;
     asection *asect;
     PTR ignore;
{
  flagword flags;

  flags = bfd_get_section_flags (abfd, asect);

  /* FIXME-32x64: Need print_address_numeric with field width.  */
  printf_filtered ("    %s",
		   local_hex_string_custom
		     ((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"));
  printf_filtered (" at %s",
		   local_hex_string_custom
		     ((unsigned long) asect->filepos, "08l"));
  printf_filtered (": %s", bfd_section_name (abfd, asect));

  if (flags & SEC_ALLOC)
    printf_filtered (" ALLOC");
  if (flags & SEC_LOAD)
    printf_filtered (" LOAD");
  if (flags & SEC_RELOC)
    printf_filtered (" RELOC");
  if (flags & SEC_READONLY)
    printf_filtered (" READONLY");
  if (flags & SEC_CODE)
    printf_filtered (" CODE");
  if (flags & SEC_DATA)
    printf_filtered (" DATA");
  if (flags & SEC_ROM)
    printf_filtered (" ROM");
  if (flags & SEC_CONSTRUCTOR)
    printf_filtered (" CONSTRUCTOR");
  if (flags & SEC_HAS_CONTENTS)
    printf_filtered (" HAS_CONTENTS");
  if (flags & SEC_NEVER_LOAD)
    printf_filtered (" NEVER_LOAD");
  if (flags & SEC_COFF_SHARED_LIBRARY)
    printf_filtered (" COFF_SHARED_LIBRARY");
  if (flags & SEC_IS_COMMON)
    printf_filtered (" IS_COMMON");

  printf_filtered ("\n");
}

/* ARGSUSED */
static void
maintenance_info_sections (arg, from_tty)
     char *arg;
     int from_tty;
{
  if (exec_bfd)
    {
      printf_filtered ("Exec file:\n");
      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);
    }

  if (core_bfd)
    {
      printf_filtered ("Core file:\n");
      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);
    }
}

/* 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
maintenance_print_command (arg, from_tty)
     char *arg;
     int from_tty;
{
  printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n");
  help_list (maintenanceprintlist, "maintenance print ", -1, gdb_stdout);
}

#endif	/* MAINTENANCE_CMDS */

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\
a human readable form, to cause GDB to deliberately dump core,\n\
to test internal functions such as the C++ demangler, etc.",
		  &maintenancelist, "maintenance ", 0,
		  &cmdlist);

  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.",
		  &maintenanceinfolist, "maintenance info ", 0,
		  &maintenancelist);

  add_cmd ("sections", class_maintenance, maintenance_info_sections,
	   "List the BFD sections of the exec and core files.",
	   &maintenanceinfolist);

  add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
		  "Maintenance command for printing GDB internal state.",
		  &maintenanceprintlist, "maintenance print ", 0,
		  &maintenancelist);

  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);

  add_cmd ("demangle", class_maintenance, maintenance_demangle,
	   "Demangle a C++ mangled name.\n\
Call internal GDB demangler routine to demangle a C++ link name\n\
and prints the result.",
	   &maintenancelist);

  add_cmd ("time", class_maintenance, maintenance_time_display,
	   "Set the display of time usage.\n\
If nonzero, will cause the execution time for each command to be\n\
displayed, following the command's output.",
	   &maintenancelist);

  add_cmd ("space", class_maintenance, maintenance_space_display,
	   "Set the display of space usage.\n\
If nonzero, will cause the execution space for each command to be\n\
displayed, following the command's output.",
	   &maintenancelist);

  add_cmd ("type", class_maintenance, maintenance_print_type,
	   "Print a type chain for a given symbol.\n\
For each node in a type chain, print the raw data for each member of\n\
the type structure, and the interpretation of the data.",
	   &maintenanceprintlist);

  add_cmd ("symbols", class_maintenance, maintenance_print_symbols,
	   "Print dump of current symbol definitions.\n\
Entries in the full symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's symbols.",
	   &maintenanceprintlist);

  add_cmd ("msymbols", class_maintenance, maintenance_print_msymbols,
	   "Print dump of current minimal symbol definitions.\n\
Entries in the minimal symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's minimal symbols.",
	   &maintenanceprintlist);

  add_cmd ("psymbols", class_maintenance, maintenance_print_psymbols,
	   "Print dump of current partial symbol definitions.\n\
Entries in the partial symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's partial symbols.",
	   &maintenanceprintlist);

  add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles,
	   "Print dump of current object file definitions.",
	   &maintenanceprintlist);

  add_cmd ("check-symtabs", class_maintenance, maintenance_check_symtabs,
	   "Check consistency of psymtabs and symtabs.",
	   &maintenancelist);
#endif	/* MAINTENANCE_CMDS */
}
Commit	Line	Data
0239d9b3	1	/* Support for GDB maintenance commands.
43ab4ba5	2	Copyright 1992, 1993, 1994 Free Software Foundation, Inc.
0239d9b3 FF	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., 675 Mass Ave, Cambridge, MA 02139, USA. */
	20
	21
	22	#include "defs.h"
	23
	24	#if MAINTENANCE_CMDS /* Entire 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"
311592ff	31	#include "demangle.h"
b1eaba9a	32	#include "gdbcore.h"
100f92e2 JK	33	#include "expression.h" /* For language.h */
100f92e2 JK	34	#include "language.h"
0239d9b3	35
43ab4ba5	36	static void maintenance_command PARAMS ((char *, int));
0239d9b3	37
43ab4ba5	38	static void maintenance_dump_me PARAMS ((char *, int));
0239d9b3	39
43ab4ba5 SS	40	static void maintenance_demangle PARAMS ((char *, int));
	41
	42	static void maintenance_time_display PARAMS ((char *, int));
	43
	44	static void maintenance_space_display PARAMS ((char *, int));
311592ff	45
0239d9b3 FF	46	/*
	47
	48	LOCAL FUNCTION
	49
	50	maintenance_command -- access the maintenance subcommands
	51
	52	SYNOPSIS
	53
	54	void maintenance_command (char *args, int from_tty)
	55
	56	DESCRIPTION
	57
	58	*/
	59
	60	static void
	61	maintenance_command (args, from_tty)
	62	char *args;
	63	int from_tty;
	64	{
199b2450 TL	65	printf_unfiltered ("\"maintenance\" must be followed by the name of a maintenance command.\n");
199b2450 TL	66	help_list (maintenancelist, "maintenance ", -1, gdb_stdout);
0239d9b3 FF	67	}
	68
	69
	70	/* ARGSUSED */
	71	static void
	72	maintenance_dump_me (args, from_tty)
	73	char *args;
	74	int from_tty;
	75	{
	76	if (query ("Should GDB dump core? "))
	77	{
	78	signal (SIGQUIT, SIG_DFL);
	79	kill (getpid (), SIGQUIT);
	80	}
	81	}
	82
311592ff FF	83	/* Someday we should allow demangling for things other than just
	84	explicit strings. For example, we might want to be able to
	85	specify the address of a string in either GDB's process space
	86	or the debuggee's process space, and have gdb fetch and demangle
	87	that string. If we have a char* pointer "ptr" that points to
	88	a string, we might want to be able to given just the name and
	89	have GDB demangle and print what it points to, etc. (FIXME) */
	90
	91	static void
	92	maintenance_demangle (args, from_tty)
	93	char *args;
	94	int from_tty;
	95	{
	96	char *demangled;
	97
	98	if (args == NULL \|\| *args == '\0')
	99	{
199b2450	100	printf_unfiltered ("\"maintenance demangle\" takes an argument to demangle.\n");
311592ff FF	101	}
	102	else
	103	{
	104	demangled = cplus_demangle (args, DMGL_ANSI \| DMGL_PARAMS);
	105	if (demangled != NULL)
	106	{
199b2450	107	printf_unfiltered ("%s\n", demangled);
311592ff FF	108	free (demangled);
	109	}
	110	else
	111	{
199b2450	112	printf_unfiltered ("Can't demangle \"%s\"\n", args);
311592ff FF	113	}
	114	}
	115	}
	116
43ab4ba5 SS	117	static void
	118	maintenance_time_display (args, from_tty)
	119	char *args;
	120	int from_tty;
	121	{
	122	extern int display_time;
	123
	124	if (args == NULL \|\| *args == '\0')
	125	printf_unfiltered ("\"maintenance time\" takes a numeric argument.\n");
	126	else
	127	display_time = strtol (args, NULL, 10);
	128	}
	129
	130	static void
	131	maintenance_space_display (args, from_tty)
	132	char *args;
	133	int from_tty;
	134	{
	135	extern int display_space;
	136
	137	if (args == NULL \|\| *args == '\0')
	138	printf_unfiltered ("\"maintenance space\" takes a numeric argument.\n");
	139	else
	140	display_space = strtol (args, NULL, 10);
	141	}
	142
0239d9b3 FF	143	/* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
	144	Therefore, its own definition is called only for "maintenance info" with
	145	no args. */
	146
	147	/* ARGSUSED */
	148	static void
	149	maintenance_info_command (arg, from_tty)
	150	char *arg;
	151	int from_tty;
	152	{
199b2450 TL	153	printf_unfiltered ("\"maintenance info\" must be followed by the name of an info command.\n");
199b2450 TL	154	help_list (maintenanceinfolist, "maintenance info ", -1, gdb_stdout);
0239d9b3 FF	155	}
0239d9b3 FF	156
b1eaba9a SG	157	static void
	158	print_section_table (abfd, asect, ignore)
	159	bfd *abfd;
	160	asection *asect;
	161	PTR ignore;
	162	{
	163	flagword flags;
	164
	165	flags = bfd_get_section_flags (abfd, asect);
	166
833e0d94	167	/* FIXME-32x64: Need print_address_numeric with field width. */
b1eaba9a	168	printf_filtered (" %s",
5573d7d4 JK	169	local_hex_string_custom
5573d7d4 JK	170	((unsigned long) bfd_section_vma (abfd, asect), "08l"));
b1eaba9a	171	printf_filtered ("->%s",
5573d7d4 JK	172	local_hex_string_custom
	173	((unsigned long) (bfd_section_vma (abfd, asect)
	174	+ bfd_section_size (abfd, asect)),
	175	"08l"));
	176	printf_filtered (" at %s",
	177	local_hex_string_custom
	178	((unsigned long) asect->filepos, "08l"));
b1eaba9a SG	179	printf_filtered (": %s", bfd_section_name (abfd, asect));
	180
	181	if (flags & SEC_ALLOC)
	182	printf_filtered (" ALLOC");
	183	if (flags & SEC_LOAD)
	184	printf_filtered (" LOAD");
	185	if (flags & SEC_RELOC)
	186	printf_filtered (" RELOC");
	187	if (flags & SEC_READONLY)
	188	printf_filtered (" READONLY");
	189	if (flags & SEC_CODE)
	190	printf_filtered (" CODE");
	191	if (flags & SEC_DATA)
	192	printf_filtered (" DATA");
	193	if (flags & SEC_ROM)
	194	printf_filtered (" ROM");
	195	if (flags & SEC_CONSTRUCTOR)
	196	printf_filtered (" CONSTRUCTOR");
	197	if (flags & SEC_HAS_CONTENTS)
	198	printf_filtered (" HAS_CONTENTS");
	199	if (flags & SEC_NEVER_LOAD)
	200	printf_filtered (" NEVER_LOAD");
0286d386 ILT	201	if (flags & SEC_COFF_SHARED_LIBRARY)
0286d386 ILT	202	printf_filtered (" COFF_SHARED_LIBRARY");
b1eaba9a SG	203	if (flags & SEC_IS_COMMON)
	204	printf_filtered (" IS_COMMON");
	205
	206	printf_filtered ("\n");
	207	}
	208
	209	/* ARGSUSED */
	210	static void
	211	maintenance_info_sections (arg, from_tty)
	212	char *arg;
	213	int from_tty;
	214	{
	215	if (exec_bfd)
	216	{
	217	printf_filtered ("Exec file:\n");
	218	printf_filtered (" `%s', ", bfd_get_filename(exec_bfd));
	219	wrap_here (" ");
	220	printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd));
	221	bfd_map_over_sections(exec_bfd, print_section_table, 0);
	222	}
	223
	224	if (core_bfd)
	225	{
	226	printf_filtered ("Core file:\n");
	227	printf_filtered (" `%s', ", bfd_get_filename(core_bfd));
	228	wrap_here (" ");
	229	printf_filtered ("file type %s.\n", bfd_get_target(core_bfd));
	230	bfd_map_over_sections(core_bfd, print_section_table, 0);
	231	}
	232	}
	233
311592ff FF	234	/* The "maintenance print" command is defined as a prefix, with allow_unknown
	235	0. Therefore, its own definition is called only for "maintenance print"
	236	with no args. */
	237
	238	/* ARGSUSED */
	239	static void
	240	maintenance_print_command (arg, from_tty)
	241	char *arg;
	242	int from_tty;
	243	{
199b2450 TL	244	printf_unfiltered ("\"maintenance print\" must be followed by the name of a print command.\n");
199b2450 TL	245	help_list (maintenanceprintlist, "maintenance print ", -1, gdb_stdout);
311592ff FF	246	}
311592ff FF	247
976bb0be	248	#endif /* MAINTENANCE_CMDS */
0239d9b3 FF	249
	250	void
	251	_initialize_maint_cmds ()
	252	{
976bb0be	253	#if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
0239d9b3 FF	254	add_prefix_cmd ("maintenance", class_maintenance, maintenance_command,
	255	"Commands for use by GDB maintainers.\n\
	256	Includes commands to dump specific internal GDB structures in\n\
311592ff FF	257	a human readable form, to cause GDB to deliberately dump core,\n\
311592ff FF	258	to test internal functions such as the C++ demangler, etc.",
2e9309df	259	&maintenancelist, "maintenance ", 0,
0239d9b3 FF	260	&cmdlist);
0239d9b3 FF	261
327f7197	262	add_com_alias ("mt", "maintenance", class_maintenance, 1);
311592ff	263
327f7197 JG	264	add_prefix_cmd ("info", class_maintenance, maintenance_info_command,
327f7197 JG	265	"Commands for showing internal info about the program being debugged.",
2e9309df	266	&maintenanceinfolist, "maintenance info ", 0,
0239d9b3 FF	267	&maintenancelist);
0239d9b3 FF	268
b1eaba9a SG	269	add_cmd ("sections", class_maintenance, maintenance_info_sections,
	270	"List the BFD sections of the exec and core files.",
	271	&maintenanceinfolist);
	272
311592ff FF	273	add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
	274	"Maintenance command for printing GDB internal state.",
	275	&maintenanceprintlist, "maintenance print ", 0,
	276	&maintenancelist);
	277
0239d9b3 FF	278	add_cmd ("dump-me", class_maintenance, maintenance_dump_me,
	279	"Get fatal error; make debugger dump its core.\n\
	280	GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
	281	itself a SIGQUIT signal.",
	282	&maintenancelist);
	283
311592ff FF	284	add_cmd ("demangle", class_maintenance, maintenance_demangle,
	285	"Demangle a C++ mangled name.\n\
	286	Call internal GDB demangler routine to demangle a C++ link name\n\
	287	and prints the result.",
	288	&maintenancelist);
	289
43ab4ba5 SS	290	add_cmd ("time", class_maintenance, maintenance_time_display,
	291	"Set the display of time usage.\n\
	292	If nonzero, will cause the execution time for each command to be\n\
	293	displayed, following the command's output.",
	294	&maintenancelist);
	295
	296	add_cmd ("space", class_maintenance, maintenance_space_display,
	297	"Set the display of space usage.\n\
	298	If nonzero, will cause the execution space for each command to be\n\
	299	displayed, following the command's output.",
	300	&maintenancelist);
	301
311592ff	302	add_cmd ("type", class_maintenance, maintenance_print_type,
0239d9b3 FF	303	"Print a type chain for a given symbol.\n\
	304	For each node in a type chain, print the raw data for each member of\n\
	305	the type structure, and the interpretation of the data.",
311592ff	306	&maintenanceprintlist);
0239d9b3	307
311592ff	308	add_cmd ("symbols", class_maintenance, maintenance_print_symbols,
0239d9b3 FF	309	"Print dump of current symbol definitions.\n\
	310	Entries in the full symbol table are dumped to file OUTFILE.\n\
	311	If a SOURCE file is specified, dump only that file's symbols.",
311592ff	312	&maintenanceprintlist);
0239d9b3	313
311592ff	314	add_cmd ("msymbols", class_maintenance, maintenance_print_msymbols,
0239d9b3 FF	315	"Print dump of current minimal symbol definitions.\n\
	316	Entries in the minimal symbol table are dumped to file OUTFILE.\n\
	317	If a SOURCE file is specified, dump only that file's minimal symbols.",
311592ff	318	&maintenanceprintlist);
0239d9b3	319
311592ff	320	add_cmd ("psymbols", class_maintenance, maintenance_print_psymbols,
0239d9b3 FF	321	"Print dump of current partial symbol definitions.\n\
	322	Entries in the partial symbol table are dumped to file OUTFILE.\n\
	323	If a SOURCE file is specified, dump only that file's partial symbols.",
311592ff	324	&maintenanceprintlist);
0239d9b3	325
311592ff	326	add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles,
0239d9b3	327	"Print dump of current object file definitions.",
311592ff	328	&maintenanceprintlist);
71c33ef7 PS	329
	330	add_cmd ("check-symtabs", class_maintenance, maintenance_check_symtabs,
	331	"Check consistency of psymtabs and symtabs.",
	332	&maintenancelist);
0239d9b3	333	#endif /* MAINTENANCE_CMDS */
976bb0be	334	}