1991-03-28 16:26:26 +00:00
|
|
|
|
/* Print values for GNU debugger GDB.
|
* defs.h: Incorporate param.h. All users changed.
* param-no-tm.h: Change users to define TM_FILE_OVERRIDE instead.
* param.h, param-no-tm.h: Removed.
* Update copyrights in all changed files.
* dbxread.c, dwarfread.c, inflow.c, infrun.c, m2-exp.y, putenv.c,
solib.c, symtab.h, tm-umax.h, valprint.c: Lint.
* tm-convex.h, tm-hp300hpux.h, tm-merlin.h, tm-sparc.h,
xm-merlin.h: Avoid host include files in target descriptions.
* getpagesize.h: Removed, libiberty copes now.
1991-11-21 18:42:05 +00:00
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
1991-07-14 07:48:06 +00:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
1991-03-28 16:26:26 +00:00
|
|
|
|
it under the terms of the GNU General Public License as published by
|
1991-07-14 07:48:06 +00:00
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1991-07-14 07:48:06 +00:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
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
|
1991-07-14 07:48:06 +00:00
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
1992-03-29 22:33:35 +00:00
|
|
|
|
#include <string.h>
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#include "frame.h"
|
|
|
|
|
#include "symtab.h"
|
1992-02-22 09:16:11 +00:00
|
|
|
|
#include "gdbtypes.h"
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#include "value.h"
|
1991-11-09 07:45:36 +00:00
|
|
|
|
#include "language.h"
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#include "expression.h"
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "gdbcmd.h"
|
|
|
|
|
#include "target.h"
|
1992-02-22 09:16:11 +00:00
|
|
|
|
#include "breakpoint.h"
|
1992-06-25 10:58:53 +00:00
|
|
|
|
#include "demangle.h"
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1993-04-22 20:42:37 +00:00
|
|
|
|
/* These are just for containing_function_bounds. It might be better
|
|
|
|
|
to move containing_function_bounds to blockframe.c or thereabouts. */
|
|
|
|
|
#include "bfd.h"
|
|
|
|
|
#include "symfile.h"
|
|
|
|
|
#include "objfiles.h"
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
extern int asm_demangle; /* Whether to demangle syms in asm printouts */
|
1991-07-14 07:48:06 +00:00
|
|
|
|
extern int addressprint; /* Whether to print hex addresses in HLL " */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
struct format_data
|
|
|
|
|
{
|
|
|
|
|
int count;
|
|
|
|
|
char format;
|
|
|
|
|
char size;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Last specified output format. */
|
|
|
|
|
|
|
|
|
|
static char last_format = 'x';
|
|
|
|
|
|
|
|
|
|
/* Last specified examination size. 'b', 'h', 'w' or `q'. */
|
|
|
|
|
|
|
|
|
|
static char last_size = 'w';
|
|
|
|
|
|
|
|
|
|
/* Default address to examine next. */
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR next_address;
|
|
|
|
|
|
|
|
|
|
/* Last address examined. */
|
|
|
|
|
|
|
|
|
|
static CORE_ADDR last_examine_address;
|
|
|
|
|
|
|
|
|
|
/* Contents of last address examined.
|
|
|
|
|
This is not valid past the end of the `x' command! */
|
|
|
|
|
|
|
|
|
|
static value last_examine_value;
|
|
|
|
|
|
1993-03-11 01:56:31 +00:00
|
|
|
|
/* Largest offset between a symbolic value and an address, that will be
|
|
|
|
|
printed as `0x1234 <symbol+offset>'. */
|
|
|
|
|
|
|
|
|
|
static unsigned int max_symbolic_offset = UINT_MAX;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Number of auto-display expression currently being displayed.
|
1993-03-11 01:56:31 +00:00
|
|
|
|
So that we can disable it if we get an error or a signal within it.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
-1 when not doing one. */
|
|
|
|
|
|
|
|
|
|
int current_display_number;
|
|
|
|
|
|
|
|
|
|
/* Flag to low-level print routines that this value is being printed
|
|
|
|
|
in an epoch window. We'd like to pass this as a parameter, but
|
|
|
|
|
every routine would need to take it. Perhaps we can encapsulate
|
|
|
|
|
this in the I/O stream once we have GNU stdio. */
|
|
|
|
|
|
|
|
|
|
int inspect_it = 0;
|
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
struct display
|
|
|
|
|
{
|
|
|
|
|
/* Chain link to next auto-display item. */
|
|
|
|
|
struct display *next;
|
|
|
|
|
/* Expression to be evaluated and displayed. */
|
|
|
|
|
struct expression *exp;
|
|
|
|
|
/* Item number of this auto-display item. */
|
|
|
|
|
int number;
|
|
|
|
|
/* Display format specified. */
|
|
|
|
|
struct format_data format;
|
|
|
|
|
/* Innermost block required by this expression when evaluated */
|
|
|
|
|
struct block *block;
|
|
|
|
|
/* Status of this display (enabled or disabled) */
|
1992-03-03 07:07:26 +00:00
|
|
|
|
enum enable status;
|
1992-02-22 09:16:11 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Chain of expressions whose values should be displayed
|
|
|
|
|
automatically each time the program stops. */
|
|
|
|
|
|
|
|
|
|
static struct display *display_chain;
|
|
|
|
|
|
|
|
|
|
static int display_number;
|
|
|
|
|
|
|
|
|
|
/* Prototypes for local functions */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
delete_display PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
enable_display PARAMS ((char *, int));
|
1992-02-22 09:16:11 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
disable_display_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
disassemble_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
containing_function_bounds PARAMS ((CORE_ADDR, CORE_ADDR *, CORE_ADDR *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
printf_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
1993-03-11 01:56:31 +00:00
|
|
|
|
print_frame_nameless_args PARAMS ((struct frame_info *, long, int, int,
|
|
|
|
|
FILE *));
|
1992-02-22 09:16:11 +00:00
|
|
|
|
|
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
display_info PARAMS ((char *, int));
|
1992-02-22 09:16:11 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
do_one_display PARAMS ((struct display *));
|
|
|
|
|
|
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
undisplay_command PARAMS ((char *, int));
|
1992-02-22 09:16:11 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
free_display PARAMS ((struct display *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
display_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
x_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
address_info PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
set_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
output_command PARAMS ((char *, int));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
static void
|
|
|
|
|
call_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
inspect_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_command PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_command_1 PARAMS ((char *, int, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
validate_format PARAMS ((struct format_data, char *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
do_examine PARAMS ((struct format_data, CORE_ADDR));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_formatted PARAMS ((value, int, int));
|
|
|
|
|
|
|
|
|
|
static struct format_data
|
|
|
|
|
decode_format PARAMS ((char **, int, int));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Decode a format specification. *STRING_PTR should point to it.
|
|
|
|
|
OFORMAT and OSIZE are used as defaults for the format and size
|
|
|
|
|
if none are given in the format specification.
|
|
|
|
|
If OSIZE is zero, then the size field of the returned value
|
|
|
|
|
should be set only if a size is explicitly specified by the
|
|
|
|
|
user.
|
|
|
|
|
The structure returned describes all the data
|
|
|
|
|
found in the specification. In addition, *STRING_PTR is advanced
|
|
|
|
|
past the specification and past all whitespace following it. */
|
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
static struct format_data
|
1991-03-28 16:26:26 +00:00
|
|
|
|
decode_format (string_ptr, oformat, osize)
|
|
|
|
|
char **string_ptr;
|
1992-02-22 09:16:11 +00:00
|
|
|
|
int oformat;
|
|
|
|
|
int osize;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct format_data val;
|
|
|
|
|
register char *p = *string_ptr;
|
|
|
|
|
|
|
|
|
|
val.format = '?';
|
|
|
|
|
val.size = '?';
|
|
|
|
|
val.count = 1;
|
|
|
|
|
|
|
|
|
|
if (*p >= '0' && *p <= '9')
|
|
|
|
|
val.count = atoi (p);
|
|
|
|
|
while (*p >= '0' && *p <= '9') p++;
|
|
|
|
|
|
|
|
|
|
/* Now process size or format letters that follow. */
|
|
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g')
|
|
|
|
|
val.size = *p++;
|
|
|
|
|
#ifdef LONG_LONG
|
|
|
|
|
else if (*p == 'l')
|
|
|
|
|
{
|
|
|
|
|
val.size = 'g';
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
else if (*p >= 'a' && *p <= 'z')
|
|
|
|
|
val.format = *p++;
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifndef LONG_LONG
|
|
|
|
|
/* Make sure 'g' size is not used on integer types.
|
|
|
|
|
Well, actually, we can handle hex. */
|
|
|
|
|
if (val.size == 'g' && val.format != 'f' && val.format != 'x')
|
|
|
|
|
val.size = 'w';
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
while (*p == ' ' || *p == '\t') p++;
|
|
|
|
|
*string_ptr = p;
|
|
|
|
|
|
|
|
|
|
/* Set defaults for format and size if not specified. */
|
|
|
|
|
if (val.format == '?')
|
|
|
|
|
{
|
|
|
|
|
if (val.size == '?')
|
|
|
|
|
{
|
|
|
|
|
/* Neither has been specified. */
|
|
|
|
|
val.format = oformat;
|
|
|
|
|
val.size = osize;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/* If a size is specified, any format makes a reasonable
|
|
|
|
|
default except 'i'. */
|
|
|
|
|
val.format = oformat == 'i' ? 'x' : oformat;
|
|
|
|
|
}
|
|
|
|
|
else if (val.size == '?')
|
|
|
|
|
switch (val.format)
|
|
|
|
|
{
|
|
|
|
|
case 'a':
|
|
|
|
|
case 's':
|
|
|
|
|
/* Addresses must be words. */
|
|
|
|
|
val.size = osize ? 'w' : osize;
|
|
|
|
|
break;
|
|
|
|
|
case 'f':
|
|
|
|
|
/* Floating point has to be word or giantword. */
|
|
|
|
|
if (osize == 'w' || osize == 'g')
|
|
|
|
|
val.size = osize;
|
|
|
|
|
else
|
|
|
|
|
/* Default it to giantword if the last used size is not
|
|
|
|
|
appropriate. */
|
|
|
|
|
val.size = osize ? 'g' : osize;
|
|
|
|
|
break;
|
|
|
|
|
case 'c':
|
|
|
|
|
/* Characters default to one byte. */
|
|
|
|
|
val.size = osize ? 'b' : osize;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
/* The default is the size most recently specified. */
|
|
|
|
|
val.size = osize;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print value VAL on stdout according to FORMAT, a letter or 0.
|
|
|
|
|
Do not end with a newline.
|
|
|
|
|
0 means print VAL according to its own type.
|
|
|
|
|
SIZE is the letter for the size of datum being printed.
|
|
|
|
|
This is used to pad hex numbers so they line up. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
print_formatted (val, format, size)
|
|
|
|
|
register value val;
|
1992-02-22 09:16:11 +00:00
|
|
|
|
register int format;
|
|
|
|
|
int size;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
int len = TYPE_LENGTH (VALUE_TYPE (val));
|
|
|
|
|
|
|
|
|
|
if (VALUE_LVAL (val) == lval_memory)
|
|
|
|
|
next_address = VALUE_ADDRESS (val) + len;
|
|
|
|
|
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 's':
|
|
|
|
|
next_address = VALUE_ADDRESS (val)
|
|
|
|
|
+ value_print (value_addr (val), stdout, format, Val_pretty_default);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'i':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
wrap_here (""); /* Force output out, print_insn not using _filtered */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
next_address = VALUE_ADDRESS (val)
|
|
|
|
|
+ print_insn (VALUE_ADDRESS (val), stdout);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
if (format == 0
|
|
|
|
|
|| TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_ARRAY
|
1993-02-02 08:21:50 +00:00
|
|
|
|
|| TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_STRING
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|| TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_STRUCT
|
|
|
|
|
|| TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_UNION
|
|
|
|
|
|| VALUE_REPEATED (val))
|
|
|
|
|
value_print (val, stdout, format, Val_pretty_default);
|
|
|
|
|
else
|
|
|
|
|
print_scalar_formatted (VALUE_CONTENTS (val), VALUE_TYPE (val),
|
|
|
|
|
format, size, stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print a scalar of data of type TYPE, pointed to in GDB by VALADDR,
|
|
|
|
|
according to letters FORMAT and SIZE on STREAM.
|
|
|
|
|
FORMAT may not be zero. Formats s and i are not supported at this level.
|
|
|
|
|
|
|
|
|
|
This is how the elements of an array or structure are printed
|
|
|
|
|
with a format. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_scalar_formatted (valaddr, type, format, size, stream)
|
|
|
|
|
char *valaddr;
|
|
|
|
|
struct type *type;
|
1992-02-22 09:16:11 +00:00
|
|
|
|
int format;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
int size;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
LONGEST val_long;
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
|
|
|
|
|
if (size == 'g' && sizeof (LONGEST) < 8
|
|
|
|
|
&& format == 'x')
|
|
|
|
|
{
|
|
|
|
|
/* ok, we're going to have to get fancy here. Assumption: a
|
|
|
|
|
long is four bytes. FIXME. */
|
1991-11-09 07:45:36 +00:00
|
|
|
|
unsigned long v1, v2;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
v1 = unpack_long (builtin_type_long, valaddr);
|
|
|
|
|
v2 = unpack_long (builtin_type_long, valaddr + 4);
|
|
|
|
|
|
|
|
|
|
#if TARGET_BYTE_ORDER == LITTLE_ENDIAN
|
|
|
|
|
/* Swap the two for printing */
|
1991-11-09 07:45:36 +00:00
|
|
|
|
{
|
|
|
|
|
unsigned long tmp;
|
|
|
|
|
|
|
|
|
|
tmp = v1;
|
|
|
|
|
v1 = v2;
|
|
|
|
|
v2 = tmp;
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 'x':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("08x%08"), v1, v2);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("Output size \"g\" unimplemented for format \"%c\".",
|
|
|
|
|
format);
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
val_long = unpack_long (type, valaddr);
|
|
|
|
|
|
|
|
|
|
/* If value is unsigned, truncate it in case negative. */
|
|
|
|
|
if (format != 'd')
|
|
|
|
|
{
|
|
|
|
|
if (len == sizeof (char))
|
|
|
|
|
val_long &= (1 << 8 * sizeof(char)) - 1;
|
|
|
|
|
else if (len == sizeof (short))
|
|
|
|
|
val_long &= (1 << 8 * sizeof(short)) - 1;
|
|
|
|
|
else if (len == sizeof (long))
|
|
|
|
|
val_long &= (unsigned long) - 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 'x':
|
|
|
|
|
if (!size)
|
|
|
|
|
{
|
|
|
|
|
/* no size specified, like in print. Print varying # of digits. */
|
|
|
|
|
#if defined (LONG_LONG)
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else /* not LONG_LONG. */
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("l"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif /* not LONG_LONG. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
#if defined (LONG_LONG)
|
|
|
|
|
switch (size)
|
|
|
|
|
{
|
|
|
|
|
case 'b':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("02ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'h':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("04ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'w':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("08ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'g':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("016ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output size \"%c\".", size);
|
|
|
|
|
}
|
|
|
|
|
#else /* not LONG_LONG. */
|
|
|
|
|
switch (size)
|
|
|
|
|
{
|
|
|
|
|
case 'b':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("02"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'h':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("04"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'w':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("08"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
case 'g':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format_custom("016"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output size \"%c\".", size);
|
|
|
|
|
}
|
|
|
|
|
#endif /* not LONG_LONG */
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
#ifdef LONG_LONG
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
fprintf_filtered (stream, local_decimal_format_custom("ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
fprintf_filtered (stream, local_decimal_format(), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'u':
|
|
|
|
|
#ifdef LONG_LONG
|
|
|
|
|
fprintf_filtered (stream, "%llu", val_long);
|
|
|
|
|
#else
|
|
|
|
|
fprintf_filtered (stream, "%u", val_long);
|
|
|
|
|
#endif
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'o':
|
|
|
|
|
if (val_long)
|
|
|
|
|
#ifdef LONG_LONG
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_octal_format_custom("ll"), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_octal_format(), val_long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
else
|
|
|
|
|
fprintf_filtered (stream, "0");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'a':
|
1991-05-02 04:28:42 +00:00
|
|
|
|
print_address (unpack_pointer (type, valaddr), stream);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'c':
|
1991-11-09 07:45:36 +00:00
|
|
|
|
value_print (value_from_longest (builtin_type_char, val_long), stream, 0,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
Val_pretty_default);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'f':
|
|
|
|
|
if (len == sizeof (float))
|
|
|
|
|
type = builtin_type_float;
|
|
|
|
|
else if (len == sizeof (double))
|
|
|
|
|
type = builtin_type_double;
|
|
|
|
|
print_floating (valaddr, type, stream);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 0:
|
|
|
|
|
abort ();
|
|
|
|
|
|
1991-04-23 17:27:49 +00:00
|
|
|
|
case 't':
|
|
|
|
|
/* Binary; 't' stands for "two". */
|
|
|
|
|
{
|
|
|
|
|
char bits[8*(sizeof val_long) + 1];
|
|
|
|
|
char *cp = bits;
|
|
|
|
|
int width;
|
|
|
|
|
|
|
|
|
|
if (!size)
|
|
|
|
|
width = 8*(sizeof val_long);
|
|
|
|
|
else
|
|
|
|
|
switch (size)
|
|
|
|
|
{
|
|
|
|
|
case 'b':
|
|
|
|
|
width = 8;
|
|
|
|
|
break;
|
|
|
|
|
case 'h':
|
|
|
|
|
width = 16;
|
|
|
|
|
break;
|
|
|
|
|
case 'w':
|
|
|
|
|
width = 32;
|
|
|
|
|
break;
|
|
|
|
|
case 'g':
|
|
|
|
|
width = 64;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output size \"%c\".", size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
bits[width] = '\0';
|
|
|
|
|
while (width-- > 0)
|
|
|
|
|
{
|
|
|
|
|
bits[width] = (val_long & 1) ? '1' : '0';
|
|
|
|
|
val_long >>= 1;
|
|
|
|
|
}
|
|
|
|
|
if (!size)
|
|
|
|
|
{
|
|
|
|
|
while (*cp && *cp == '0')
|
|
|
|
|
cp++;
|
|
|
|
|
if (*cp == '\0')
|
|
|
|
|
cp--;
|
|
|
|
|
}
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
fprintf_filtered (stream, local_binary_format_prefix());
|
1991-04-23 17:27:49 +00:00
|
|
|
|
fprintf_filtered (stream, cp);
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
fprintf_filtered (stream, local_binary_format_suffix());
|
1991-04-23 17:27:49 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output format \"%c\".", format);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Specify default address for `x' command.
|
|
|
|
|
`info lines' uses this. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
set_next_address (addr)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
{
|
|
|
|
|
next_address = addr;
|
|
|
|
|
|
|
|
|
|
/* Make address available to the user as $_. */
|
|
|
|
|
set_internalvar (lookup_internalvar ("_"),
|
1991-11-09 07:45:36 +00:00
|
|
|
|
value_from_longest (lookup_pointer_type (builtin_type_void),
|
|
|
|
|
(LONGEST) addr));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
1991-07-14 07:48:06 +00:00
|
|
|
|
/* Optionally print address ADDR symbolically as <SYMBOL+OFFSET> on STREAM,
|
|
|
|
|
after LEADIN. Print nothing if no symbolic name is found nearby.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
DO_DEMANGLE controls whether to print a symbol in its native "raw" form,
|
|
|
|
|
or to interpret it as a possible C++ name and convert it back to source
|
* defs.h (STRCMP, STREQ, STREQN): New macros.
* defs.h (demangle_and_match): Remove prototype.
* dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ
and STREQN defined in defs.h.
* dwarfread.c (set_cu_language): For completely unknown languages,
try to deduce the language from the filename. Retain behavior
that for known languages we don't know how to handle, we use
language_unknown.
* dwarfread.c (enum_type, symthesize_typedef): Initialize language
and demangled name fields in symbol.
* dwarfread.c, mipsread.c, partial-stab.h: For all usages of
ADD_PSYMBOL_TO_LIST, add language and objfile parameters.
* dwarfread.c (new_symbol): Attempt to demangle C++ symbol names
and cache the results in SYMBOL_DEMANGLED_NAME for the symbol.
* elfread.c (STREQ): Remove macro, use STREQ defined in defs.h.
Replace usages throughout.
* elfread.c (demangle.h): Include.
* elfread.c (record_minimal_symbol): Remove prototype and function.
* gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES,
B_CLRALL): Moved from symtab.h to gdbtypes.h.
* infcmd.c (jump_command): Remove code to demangle name and add
it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME.
* minsyms.c (demangle.h): Include.
* minsyms.c (lookup_minimal_symbol): Indent comment to match code.
* minsyms.c (install_minimal_symbols): Attempt to demangle symbol
names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME.
* mipsread.c (psymtab_language): Add static variable.
* stabsread.c (demangle.h): Include.
* stabsread.c (define_symbol): Attempt to demangle C++ symbol
names and cache them in the SYMBOL_DEMANGLED_NAME field.
* stack.c (return_command): Remove explicit demangling of name
and use of cleanups. Just use SYMBOL_DEMANGLED_NAME.
* symfile.c (demangle.h): Include.
* symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix
to match macros in symfile.h and allow them to be compiled
if INLINE_ADD_PSYMBOL is not true.
* symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set.
* symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters.
Add code to demangle and cache C++ symbol names. Use macro form
if INLINE_ADD_PSYMBOL is true, otherwise use C function form.
* symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list):
Remove, also defined in symfile.c, which we already fixed.
* symtab.c (expensive_mangler): Remove prototype and function.
* symtab.c (find_methods): Remove physnames parameter and fix
prototype to match.
* symtab.c (completion_list_add_symbol): Name changed to
completion_list_add_name.
* symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both
the normal symbol name and the cached C++ demangled name.
* symtab.c (lookup_demangled_partial_symbol,
lookup_demangled_block_symbol): Remove prototypes and functions.
* symtab.c (lookup_symbol): Remove use of expensive_mangler,
use lookup_block_symbol instead of lookup_demangled_block_symbol.
Remove code to try demangling names and matching them.
* symtab.c (lookup_partial_symbol, lookup_block_symbol):
Fix to try matching the cached demangled name if no match is
found using the regular symbol name.
* symtab.c (find_methods): Remove unused physnames array.
* symtab.c (name_match, NAME_MATCH): Remove function and macro,
replaced with SYMBOL_MATCHES_REGEXP from symtab.h.
* symtab.c (completion_list_add_symbol): Rewrite to use cached
C++ demangled symbol names.
* symtab.h: Much reformatting of structures and such to add
whitespace to make them more readable, and make them more
consistent with other gdb structure definitions.
* symtab.h (general_symbol_info): New struct containing fields
common to all symbols.
* symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME,
SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME,
SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros.
* symtab. (struct minimal_symbol, struct partial_symbol, struct
symbol): Use general_symbol_info struct.
* utils.c (demangle_and_match): Remove, no longer used.
* valops.c (demangle.h): Include.
* xcoffexec.c (eq): Remove macro, replace usages with STREQ.
* blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c,
infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c,
symmisc.c, symtab.c, valops.c: Replace references to minimal
symbol fields with appropriate macros.
* breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c,
coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c,
demangle.c, elfread.c, energize.c, environ.c, exec.c,
gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c,
main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c,
remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c,
sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c,
symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h,
tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp
and strncmp usages with STREQ, STREQN, or STRCMP as appropriate.
* breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c,
mipsread.c, printcmd.c, source.c, stabsread.c, stack.c,
symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME
references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as
appropriate.
* buildsym.c (start_subfile, patch_subfile_names): Default the
source language to what can be deduced from the filename.
* buildsym.c (end_symtab): Update the source language in the
allocated symtab to match what we have been using.
* buildsym.h (struct subfile): Add a language field.
* c-typeprint.c (c_print_type): Remove code to do explicit
demangling.
* dbxread.c (psymtab_language): Add static variable.
* dbxread.c (start_psymtab): Initialize psymtab_language using
deduce_language_from_filename.
1992-12-23 06:34:57 +00:00
|
|
|
|
form. However note that DO_DEMANGLE can be overridden by the specific
|
|
|
|
|
settings of the demangle and asm_demangle variables. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
void
|
1991-07-14 07:48:06 +00:00
|
|
|
|
print_address_symbolic (addr, stream, do_demangle, leadin)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
int do_demangle;
|
1991-07-14 07:48:06 +00:00
|
|
|
|
char *leadin;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
1993-03-11 01:56:31 +00:00
|
|
|
|
CORE_ADDR name_location;
|
1993-04-23 08:42:03 +00:00
|
|
|
|
register struct symbol *symbol;
|
|
|
|
|
char *name;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1993-04-23 08:42:03 +00:00
|
|
|
|
/* First try to find the address in the symbol tables to find
|
|
|
|
|
static functions. If that doesn't succeed we try the minimal symbol
|
|
|
|
|
vector for symbols in non-text space.
|
|
|
|
|
FIXME: Should find a way to get at the static non-text symbols too. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1993-04-23 08:42:03 +00:00
|
|
|
|
symbol = find_pc_function (addr);
|
|
|
|
|
if (symbol)
|
|
|
|
|
{
|
|
|
|
|
name_location = BLOCK_START (SYMBOL_BLOCK_VALUE (symbol));
|
|
|
|
|
if (do_demangle)
|
|
|
|
|
name = SYMBOL_SOURCE_NAME (symbol);
|
|
|
|
|
else
|
|
|
|
|
name = SYMBOL_LINKAGE_NAME (symbol);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
register struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (addr);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1993-04-23 08:42:03 +00:00
|
|
|
|
/* If nothing comes out, don't print anything symbolic. */
|
|
|
|
|
if (msymbol == NULL)
|
|
|
|
|
return;
|
|
|
|
|
name_location = SYMBOL_VALUE_ADDRESS (msymbol);
|
|
|
|
|
if (do_demangle)
|
|
|
|
|
name = SYMBOL_SOURCE_NAME (msymbol);
|
|
|
|
|
else
|
|
|
|
|
name = SYMBOL_LINKAGE_NAME (msymbol);
|
|
|
|
|
}
|
1993-03-11 01:56:31 +00:00
|
|
|
|
|
1993-04-23 08:42:03 +00:00
|
|
|
|
/* If the nearest symbol is too far away, don't print anything symbolic. */
|
1993-03-11 01:56:31 +00:00
|
|
|
|
|
|
|
|
|
/* For when CORE_ADDR is larger than unsigned int, we do math in
|
|
|
|
|
CORE_ADDR. But when we detect unsigned wraparound in the
|
|
|
|
|
CORE_ADDR math, we ignore this test and print the offset,
|
|
|
|
|
because addr+max_symbolic_offset has wrapped through the end
|
|
|
|
|
of the address space back to the beginning, giving bogus comparison. */
|
|
|
|
|
if (addr > name_location + max_symbolic_offset
|
|
|
|
|
&& name_location + max_symbolic_offset > name_location)
|
|
|
|
|
return;
|
|
|
|
|
|
1991-07-14 07:48:06 +00:00
|
|
|
|
fputs_filtered (leadin, stream);
|
|
|
|
|
fputs_filtered ("<", stream);
|
1993-04-23 08:42:03 +00:00
|
|
|
|
fputs_filtered (name, stream);
|
1993-03-11 01:56:31 +00:00
|
|
|
|
if (addr != name_location)
|
|
|
|
|
fprintf_filtered (stream, "+%d>", (int)(addr - name_location));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
else
|
|
|
|
|
fputs_filtered (">", stream);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print address ADDR symbolically on STREAM.
|
|
|
|
|
First print it as a number. Then perhaps print
|
|
|
|
|
<SYMBOL + OFFSET> after the number. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_address (addr, stream)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
1992-03-03 07:07:26 +00:00
|
|
|
|
#ifdef ADDR_BITS_REMOVE
|
|
|
|
|
fprintf_filtered (stream, local_hex_format(), ADDR_BITS_REMOVE(addr));
|
|
|
|
|
#else
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format(), addr);
|
1992-03-03 07:07:26 +00:00
|
|
|
|
#endif
|
1991-07-14 07:48:06 +00:00
|
|
|
|
print_address_symbolic (addr, stream, asm_demangle, " ");
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print address ADDR symbolically on STREAM. Parameter DEMANGLE
|
1991-07-14 07:48:06 +00:00
|
|
|
|
controls whether to print the symbolic name "raw" or demangled.
|
|
|
|
|
Global setting "addressprint" controls whether to print hex address
|
|
|
|
|
or not. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_address_demangle (addr, stream, do_demangle)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
int do_demangle;
|
|
|
|
|
{
|
1991-07-14 07:48:06 +00:00
|
|
|
|
if (addr == 0) {
|
|
|
|
|
fprintf_filtered (stream, "0");
|
|
|
|
|
} else if (addressprint) {
|
1991-11-09 07:45:36 +00:00
|
|
|
|
fprintf_filtered (stream, local_hex_format(), addr);
|
1991-07-14 07:48:06 +00:00
|
|
|
|
print_address_symbolic (addr, stream, do_demangle, " ");
|
|
|
|
|
} else {
|
|
|
|
|
print_address_symbolic (addr, stream, do_demangle, "");
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Examine data at address ADDR in format FMT.
|
|
|
|
|
Fetch it from memory and print on stdout. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
do_examine (fmt, addr)
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
{
|
|
|
|
|
register char format = 0;
|
|
|
|
|
register char size;
|
|
|
|
|
register int count = 1;
|
|
|
|
|
struct type *val_type;
|
|
|
|
|
register int i;
|
|
|
|
|
register int maxelts;
|
|
|
|
|
|
|
|
|
|
format = fmt.format;
|
|
|
|
|
size = fmt.size;
|
|
|
|
|
count = fmt.count;
|
|
|
|
|
next_address = addr;
|
|
|
|
|
|
|
|
|
|
/* String or instruction format implies fetch single bytes
|
|
|
|
|
regardless of the specified size. */
|
|
|
|
|
if (format == 's' || format == 'i')
|
|
|
|
|
size = 'b';
|
|
|
|
|
|
|
|
|
|
if (size == 'b')
|
|
|
|
|
val_type = builtin_type_char;
|
|
|
|
|
else if (size == 'h')
|
|
|
|
|
val_type = builtin_type_short;
|
|
|
|
|
else if (size == 'w')
|
|
|
|
|
val_type = builtin_type_long;
|
|
|
|
|
else if (size == 'g')
|
|
|
|
|
#ifndef LONG_LONG
|
|
|
|
|
val_type = builtin_type_double;
|
|
|
|
|
#else
|
|
|
|
|
val_type = builtin_type_long_long;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
maxelts = 8;
|
|
|
|
|
if (size == 'w')
|
|
|
|
|
maxelts = 4;
|
|
|
|
|
if (size == 'g')
|
|
|
|
|
maxelts = 2;
|
|
|
|
|
if (format == 's' || format == 'i')
|
|
|
|
|
maxelts = 1;
|
|
|
|
|
|
|
|
|
|
/* Print as many objects as specified in COUNT, at most maxelts per line,
|
|
|
|
|
with the address of the next one at the start of each line. */
|
|
|
|
|
|
|
|
|
|
while (count > 0)
|
|
|
|
|
{
|
|
|
|
|
print_address (next_address, stdout);
|
|
|
|
|
printf_filtered (":");
|
|
|
|
|
for (i = maxelts;
|
|
|
|
|
i > 0 && count > 0;
|
|
|
|
|
i--, count--)
|
|
|
|
|
{
|
|
|
|
|
printf_filtered ("\t");
|
|
|
|
|
/* Note that print_formatted sets next_address for the next
|
|
|
|
|
object. */
|
|
|
|
|
last_examine_address = next_address;
|
|
|
|
|
last_examine_value = value_at (val_type, next_address);
|
|
|
|
|
print_formatted (last_examine_value, format, size);
|
|
|
|
|
}
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
validate_format (fmt, cmdname)
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
char *cmdname;
|
|
|
|
|
{
|
|
|
|
|
if (fmt.size != 0)
|
|
|
|
|
error ("Size letters are meaningless in \"%s\" command.", cmdname);
|
|
|
|
|
if (fmt.count != 1)
|
|
|
|
|
error ("Item count other than 1 is meaningless in \"%s\" command.",
|
|
|
|
|
cmdname);
|
|
|
|
|
if (fmt.format == 'i' || fmt.format == 's')
|
|
|
|
|
error ("Format letter \"%c\" is meaningless in \"%s\" command.",
|
|
|
|
|
fmt.format, cmdname);
|
|
|
|
|
}
|
|
|
|
|
|
1993-02-02 08:21:50 +00:00
|
|
|
|
/* Evaluate string EXP as an expression in the current language and
|
|
|
|
|
print the resulting value. EXP may contain a format specifier as the
|
|
|
|
|
first argument ("/x myvar" for example, to print myvar in hex).
|
|
|
|
|
*/
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
print_command_1 (exp, inspect, voidprint)
|
|
|
|
|
char *exp;
|
|
|
|
|
int inspect;
|
|
|
|
|
int voidprint;
|
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
|
|
|
|
register struct cleanup *old_chain = 0;
|
|
|
|
|
register char format = 0;
|
|
|
|
|
register value val;
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
int cleanup = 0;
|
|
|
|
|
|
|
|
|
|
/* Pass inspect flag to the rest of the print routines in a global (sigh). */
|
|
|
|
|
inspect_it = inspect;
|
|
|
|
|
|
|
|
|
|
if (exp && *exp == '/')
|
|
|
|
|
{
|
|
|
|
|
exp++;
|
|
|
|
|
fmt = decode_format (&exp, last_format, 0);
|
|
|
|
|
validate_format (fmt, "print");
|
|
|
|
|
last_format = format = fmt.format;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fmt.count = 1;
|
|
|
|
|
fmt.format = 0;
|
|
|
|
|
fmt.size = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (exp && *exp)
|
|
|
|
|
{
|
1991-04-26 23:00:32 +00:00
|
|
|
|
extern int objectprint;
|
|
|
|
|
struct type *type;
|
1991-11-09 07:45:36 +00:00
|
|
|
|
expr = parse_expression (exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
|
|
|
|
cleanup = 1;
|
|
|
|
|
val = evaluate_expression (expr);
|
1991-04-26 23:00:32 +00:00
|
|
|
|
|
|
|
|
|
/* C++: figure out what type we actually want to print it as. */
|
|
|
|
|
type = VALUE_TYPE (val);
|
|
|
|
|
|
|
|
|
|
if (objectprint
|
1992-02-22 09:16:11 +00:00
|
|
|
|
&& ( TYPE_CODE (type) == TYPE_CODE_PTR
|
1991-04-26 23:00:32 +00:00
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_REF)
|
1992-02-22 09:16:11 +00:00
|
|
|
|
&& ( TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRUCT
|
|
|
|
|
|| TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_UNION))
|
1991-04-26 23:00:32 +00:00
|
|
|
|
{
|
|
|
|
|
value v;
|
|
|
|
|
|
|
|
|
|
v = value_from_vtable_info (val, TYPE_TARGET_TYPE (type));
|
|
|
|
|
if (v != 0)
|
|
|
|
|
{
|
|
|
|
|
val = v;
|
|
|
|
|
type = VALUE_TYPE (val);
|
|
|
|
|
}
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
val = access_value_history (0);
|
|
|
|
|
|
|
|
|
|
if (voidprint || (val && VALUE_TYPE (val) &&
|
|
|
|
|
TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_VOID))
|
|
|
|
|
{
|
|
|
|
|
int histindex = record_latest_value (val);
|
|
|
|
|
|
|
|
|
|
if (inspect)
|
|
|
|
|
printf ("\031(gdb-makebuffer \"%s\" %d '(\"", exp, histindex);
|
|
|
|
|
else
|
|
|
|
|
if (histindex >= 0) printf_filtered ("$%d = ", histindex);
|
|
|
|
|
|
|
|
|
|
print_formatted (val, format, fmt.size);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
if (inspect)
|
|
|
|
|
printf("\") )\030");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (cleanup)
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
inspect_it = 0; /* Reset print routines to normal */
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
print_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
print_command_1 (exp, 0, 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as print, except in epoch, it gets its own window */
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
inspect_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
extern int epoch_interface;
|
|
|
|
|
|
|
|
|
|
print_command_1 (exp, epoch_interface, 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as print, except it doesn't print void results. */
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
call_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
print_command_1 (exp, 0, 0);
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
output_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
|
|
|
|
register struct cleanup *old_chain;
|
|
|
|
|
register char format = 0;
|
|
|
|
|
register value val;
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
|
|
|
|
|
if (exp && *exp == '/')
|
|
|
|
|
{
|
|
|
|
|
exp++;
|
|
|
|
|
fmt = decode_format (&exp, 0, 0);
|
1992-06-25 10:58:53 +00:00
|
|
|
|
validate_format (fmt, "output");
|
1991-03-28 16:26:26 +00:00
|
|
|
|
format = fmt.format;
|
|
|
|
|
}
|
|
|
|
|
|
1991-11-09 07:45:36 +00:00
|
|
|
|
expr = parse_expression (exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
|
|
|
|
|
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
|
|
|
|
|
print_formatted (val, format, fmt.size);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
set_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
1991-11-09 07:45:36 +00:00
|
|
|
|
struct expression *expr = parse_expression (exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
register struct cleanup *old_chain
|
|
|
|
|
= make_cleanup (free_current_contents, &expr);
|
|
|
|
|
evaluate_expression (expr);
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
address_info (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
register struct symbol *sym;
|
1992-02-22 09:16:11 +00:00
|
|
|
|
register struct minimal_symbol *msymbol;
|
1991-05-02 04:28:42 +00:00
|
|
|
|
register long val;
|
1992-06-25 10:58:53 +00:00
|
|
|
|
register long basereg;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
int is_a_field_of_this; /* C++: lookup_symbol sets this to nonzero
|
|
|
|
|
if exp is a field of `this'. */
|
|
|
|
|
|
|
|
|
|
if (exp == 0)
|
|
|
|
|
error ("Argument required.");
|
|
|
|
|
|
|
|
|
|
sym = lookup_symbol (exp, get_selected_block (), VAR_NAMESPACE,
|
|
|
|
|
&is_a_field_of_this, (struct symtab **)NULL);
|
* defs.h (STRCMP, STREQ, STREQN): New macros.
* defs.h (demangle_and_match): Remove prototype.
* dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ
and STREQN defined in defs.h.
* dwarfread.c (set_cu_language): For completely unknown languages,
try to deduce the language from the filename. Retain behavior
that for known languages we don't know how to handle, we use
language_unknown.
* dwarfread.c (enum_type, symthesize_typedef): Initialize language
and demangled name fields in symbol.
* dwarfread.c, mipsread.c, partial-stab.h: For all usages of
ADD_PSYMBOL_TO_LIST, add language and objfile parameters.
* dwarfread.c (new_symbol): Attempt to demangle C++ symbol names
and cache the results in SYMBOL_DEMANGLED_NAME for the symbol.
* elfread.c (STREQ): Remove macro, use STREQ defined in defs.h.
Replace usages throughout.
* elfread.c (demangle.h): Include.
* elfread.c (record_minimal_symbol): Remove prototype and function.
* gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES,
B_CLRALL): Moved from symtab.h to gdbtypes.h.
* infcmd.c (jump_command): Remove code to demangle name and add
it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME.
* minsyms.c (demangle.h): Include.
* minsyms.c (lookup_minimal_symbol): Indent comment to match code.
* minsyms.c (install_minimal_symbols): Attempt to demangle symbol
names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME.
* mipsread.c (psymtab_language): Add static variable.
* stabsread.c (demangle.h): Include.
* stabsread.c (define_symbol): Attempt to demangle C++ symbol
names and cache them in the SYMBOL_DEMANGLED_NAME field.
* stack.c (return_command): Remove explicit demangling of name
and use of cleanups. Just use SYMBOL_DEMANGLED_NAME.
* symfile.c (demangle.h): Include.
* symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix
to match macros in symfile.h and allow them to be compiled
if INLINE_ADD_PSYMBOL is not true.
* symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set.
* symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters.
Add code to demangle and cache C++ symbol names. Use macro form
if INLINE_ADD_PSYMBOL is true, otherwise use C function form.
* symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list):
Remove, also defined in symfile.c, which we already fixed.
* symtab.c (expensive_mangler): Remove prototype and function.
* symtab.c (find_methods): Remove physnames parameter and fix
prototype to match.
* symtab.c (completion_list_add_symbol): Name changed to
completion_list_add_name.
* symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both
the normal symbol name and the cached C++ demangled name.
* symtab.c (lookup_demangled_partial_symbol,
lookup_demangled_block_symbol): Remove prototypes and functions.
* symtab.c (lookup_symbol): Remove use of expensive_mangler,
use lookup_block_symbol instead of lookup_demangled_block_symbol.
Remove code to try demangling names and matching them.
* symtab.c (lookup_partial_symbol, lookup_block_symbol):
Fix to try matching the cached demangled name if no match is
found using the regular symbol name.
* symtab.c (find_methods): Remove unused physnames array.
* symtab.c (name_match, NAME_MATCH): Remove function and macro,
replaced with SYMBOL_MATCHES_REGEXP from symtab.h.
* symtab.c (completion_list_add_symbol): Rewrite to use cached
C++ demangled symbol names.
* symtab.h: Much reformatting of structures and such to add
whitespace to make them more readable, and make them more
consistent with other gdb structure definitions.
* symtab.h (general_symbol_info): New struct containing fields
common to all symbols.
* symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME,
SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME,
SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros.
* symtab. (struct minimal_symbol, struct partial_symbol, struct
symbol): Use general_symbol_info struct.
* utils.c (demangle_and_match): Remove, no longer used.
* valops.c (demangle.h): Include.
* xcoffexec.c (eq): Remove macro, replace usages with STREQ.
* blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c,
infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c,
symmisc.c, symtab.c, valops.c: Replace references to minimal
symbol fields with appropriate macros.
* breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c,
coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c,
demangle.c, elfread.c, energize.c, environ.c, exec.c,
gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c,
main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c,
remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c,
sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c,
symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h,
tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp
and strncmp usages with STREQ, STREQN, or STRCMP as appropriate.
* breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c,
mipsread.c, printcmd.c, source.c, stabsread.c, stack.c,
symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME
references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as
appropriate.
* buildsym.c (start_subfile, patch_subfile_names): Default the
source language to what can be deduced from the filename.
* buildsym.c (end_symtab): Update the source language in the
allocated symtab to match what we have been using.
* buildsym.h (struct subfile): Add a language field.
* c-typeprint.c (c_print_type): Remove code to do explicit
demangling.
* dbxread.c (psymtab_language): Add static variable.
* dbxread.c (start_psymtab): Initialize psymtab_language using
deduce_language_from_filename.
1992-12-23 06:34:57 +00:00
|
|
|
|
if (sym == NULL)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (is_a_field_of_this)
|
|
|
|
|
{
|
|
|
|
|
printf ("Symbol \"%s\" is a field of the local class variable `this'\n", exp);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
msymbol = lookup_minimal_symbol (exp, (struct objfile *) NULL);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
if (msymbol != NULL)
|
1991-11-09 07:45:36 +00:00
|
|
|
|
printf ("Symbol \"%s\" is at %s in a file compiled without debugging.\n",
|
* defs.h (STRCMP, STREQ, STREQN): New macros.
* defs.h (demangle_and_match): Remove prototype.
* dwarfread.c (STREQ, STREQN): Remove macros, replaced with STREQ
and STREQN defined in defs.h.
* dwarfread.c (set_cu_language): For completely unknown languages,
try to deduce the language from the filename. Retain behavior
that for known languages we don't know how to handle, we use
language_unknown.
* dwarfread.c (enum_type, symthesize_typedef): Initialize language
and demangled name fields in symbol.
* dwarfread.c, mipsread.c, partial-stab.h: For all usages of
ADD_PSYMBOL_TO_LIST, add language and objfile parameters.
* dwarfread.c (new_symbol): Attempt to demangle C++ symbol names
and cache the results in SYMBOL_DEMANGLED_NAME for the symbol.
* elfread.c (STREQ): Remove macro, use STREQ defined in defs.h.
Replace usages throughout.
* elfread.c (demangle.h): Include.
* elfread.c (record_minimal_symbol): Remove prototype and function.
* gdbtypes.h, symtab.h (B_SET, B_CLR, B_TST, B_TYPE, B_BYTES,
B_CLRALL): Moved from symtab.h to gdbtypes.h.
* infcmd.c (jump_command): Remove code to demangle name and add
it to a cleanup list. Now just use SYMBOL_DEMANGLED_NAME.
* minsyms.c (demangle.h): Include.
* minsyms.c (lookup_minimal_symbol): Indent comment to match code.
* minsyms.c (install_minimal_symbols): Attempt to demangle symbol
names as C++ names, and cache them in SYMBOL_DEMANGLED_NAME.
* mipsread.c (psymtab_language): Add static variable.
* stabsread.c (demangle.h): Include.
* stabsread.c (define_symbol): Attempt to demangle C++ symbol
names and cache them in the SYMBOL_DEMANGLED_NAME field.
* stack.c (return_command): Remove explicit demangling of name
and use of cleanups. Just use SYMBOL_DEMANGLED_NAME.
* symfile.c (demangle.h): Include.
* symfile.c (add_psymbol_to_list, add_psymbol_addr_to_list): Fix
to match macros in symfile.h and allow them to be compiled
if INLINE_ADD_PSYMBOL is not true.
* symfile.h (INLINE_ADD_PSYMBOL): Default to true if not set.
* symfile.h (ADD_PSYMBOL_*): Add language and objfile parameters.
Add code to demangle and cache C++ symbol names. Use macro form
if INLINE_ADD_PSYMBOL is true, otherwise use C function form.
* symmisc.c (add_psymbol_to_list, add_psymbol_addr_to_list):
Remove, also defined in symfile.c, which we already fixed.
* symtab.c (expensive_mangler): Remove prototype and function.
* symtab.c (find_methods): Remove physnames parameter and fix
prototype to match.
* symtab.c (completion_list_add_symbol): Name changed to
completion_list_add_name.
* symtab.c (COMPLETION_LIST_ADD_SYMBOL): New macro, adds both
the normal symbol name and the cached C++ demangled name.
* symtab.c (lookup_demangled_partial_symbol,
lookup_demangled_block_symbol): Remove prototypes and functions.
* symtab.c (lookup_symbol): Remove use of expensive_mangler,
use lookup_block_symbol instead of lookup_demangled_block_symbol.
Remove code to try demangling names and matching them.
* symtab.c (lookup_partial_symbol, lookup_block_symbol):
Fix to try matching the cached demangled name if no match is
found using the regular symbol name.
* symtab.c (find_methods): Remove unused physnames array.
* symtab.c (name_match, NAME_MATCH): Remove function and macro,
replaced with SYMBOL_MATCHES_REGEXP from symtab.h.
* symtab.c (completion_list_add_symbol): Rewrite to use cached
C++ demangled symbol names.
* symtab.h: Much reformatting of structures and such to add
whitespace to make them more readable, and make them more
consistent with other gdb structure definitions.
* symtab.h (general_symbol_info): New struct containing fields
common to all symbols.
* symtab.h (SYMBOL_LANGUAGE, SYMBOL_DEMANGLED_NAME,
SYMBOL_SOURCE_NAME, SYMBOL_LINKAGE_NAME, SYMBOL_MATCHES_NAME,
SYMBOL_MATCHES_REGEXP, MSYMBOL_INFO, MSYMBOL_TYPE): New macros.
* symtab. (struct minimal_symbol, struct partial_symbol, struct
symbol): Use general_symbol_info struct.
* utils.c (demangle_and_match): Remove, no longer used.
* valops.c (demangle.h): Include.
* xcoffexec.c (eq): Remove macro, replace usages with STREQ.
* blockframe.c, breakpoint.c, c-exp.y, c-valprint.c, dbxread.c,
infcmd.c, m2-exp.y, minsyms.c, objfiles.h, solib.c, stack.c,
symmisc.c, symtab.c, valops.c: Replace references to minimal
symbol fields with appropriate macros.
* breakpoint.c, buildsym.c, c-exp.y, c-typeprint.c, c-valprint.c,
coffread.c, command.c, convex-tdep.c, cp-valprint.c, dbxread.c,
demangle.c, elfread.c, energize.c, environ.c, exec.c,
gdbtypes.c, i960-tdep.c, infrun.c, infrun-hacked.c, language.c,
main.c, minsyms.c, mipsread.c, partial-stab.h, remote-es1800.c,
remote-nindy.c, remote-udi.c, rs6000-tdep.c, solib.c, source.c,
sparc-pinsn.c, stabsread.c, standalone.c, state.c, stuff.c,
symfile.c, symmisc.c, symtab.c, symtab.h, tm-sysv4.h,
tm-ultra3.h, values.c, xcoffexec.c, xcoffread.c: Replace strcmp
and strncmp usages with STREQ, STREQN, or STRCMP as appropriate.
* breakpoint.c, buildsym.c, c-typeprint.c, expprint.c, findvar.c,
mipsread.c, printcmd.c, source.c, stabsread.c, stack.c,
symmisc.c, tm-29k.h, valops.c, values.c: Replace SYMBOL_NAME
references with SYMBOL_SOURCE_NAME or SYMBOL_LINKAGE_NAME as
appropriate.
* buildsym.c (start_subfile, patch_subfile_names): Default the
source language to what can be deduced from the filename.
* buildsym.c (end_symtab): Update the source language in the
allocated symtab to match what we have been using.
* buildsym.h (struct subfile): Add a language field.
* c-typeprint.c (c_print_type): Remove code to do explicit
demangling.
* dbxread.c (psymtab_language): Add static variable.
* dbxread.c (start_psymtab): Initialize psymtab_language using
deduce_language_from_filename.
1992-12-23 06:34:57 +00:00
|
|
|
|
exp, local_hex_string(SYMBOL_VALUE_ADDRESS (msymbol)));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
else
|
|
|
|
|
error ("No symbol \"%s\" in current context.", exp);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
printf ("Symbol \"%s\" is ", SYMBOL_NAME (sym));
|
|
|
|
|
val = SYMBOL_VALUE (sym);
|
1992-06-25 10:58:53 +00:00
|
|
|
|
basereg = SYMBOL_BASEREG (sym);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
switch (SYMBOL_CLASS (sym))
|
|
|
|
|
{
|
|
|
|
|
case LOC_CONST:
|
|
|
|
|
case LOC_CONST_BYTES:
|
|
|
|
|
printf ("constant");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LABEL:
|
1991-11-09 07:45:36 +00:00
|
|
|
|
printf ("a label at address %s", local_hex_string(SYMBOL_VALUE_ADDRESS (sym)));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REGISTER:
|
|
|
|
|
printf ("a variable in register %s", reg_names[val]);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_STATIC:
|
1991-11-09 07:45:36 +00:00
|
|
|
|
printf ("static storage at address %s", local_hex_string(SYMBOL_VALUE_ADDRESS (sym)));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REGPARM:
|
|
|
|
|
printf ("an argument in register %s", reg_names[val]);
|
|
|
|
|
break;
|
1993-04-22 22:27:25 +00:00
|
|
|
|
|
|
|
|
|
case LOC_REGPARM_ADDR:
|
|
|
|
|
printf ("address of an argument in register %s", reg_names[val]);
|
|
|
|
|
break;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
case LOC_ARG:
|
1992-06-25 10:58:53 +00:00
|
|
|
|
if (SYMBOL_BASEREG_VALID (sym))
|
|
|
|
|
{
|
|
|
|
|
printf ("an argument at offset %ld from register %s",
|
|
|
|
|
val, reg_names[basereg]);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
printf ("an argument at offset %ld", val);
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LOCAL_ARG:
|
1992-06-25 10:58:53 +00:00
|
|
|
|
if (SYMBOL_BASEREG_VALID (sym))
|
|
|
|
|
{
|
|
|
|
|
printf ("an argument at offset %ld from register %s",
|
|
|
|
|
val, reg_names[basereg]);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
printf ("an argument at frame offset %ld", val);
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LOCAL:
|
1992-06-25 10:58:53 +00:00
|
|
|
|
if (SYMBOL_BASEREG_VALID (sym))
|
|
|
|
|
{
|
|
|
|
|
printf ("a local variable at offset %ld from register %s",
|
|
|
|
|
val, reg_names[basereg]);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
printf ("a local variable at frame offset %ld", val);
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REF_ARG:
|
1991-05-02 04:28:42 +00:00
|
|
|
|
printf ("a reference argument at offset %ld", val);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_TYPEDEF:
|
|
|
|
|
printf ("a typedef");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BLOCK:
|
1991-11-09 07:45:36 +00:00
|
|
|
|
printf ("a function at address %s",
|
|
|
|
|
local_hex_string(BLOCK_START (SYMBOL_BLOCK_VALUE (sym))));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1993-04-21 22:20:53 +00:00
|
|
|
|
case LOC_OPTIMIZED_OUT:
|
|
|
|
|
printf_filtered ("optimized out");
|
|
|
|
|
break;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
default:
|
|
|
|
|
printf ("of unknown (botched) type");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
printf (".\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
x_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
struct value *val;
|
|
|
|
|
|
|
|
|
|
fmt.format = last_format;
|
|
|
|
|
fmt.size = last_size;
|
|
|
|
|
fmt.count = 1;
|
|
|
|
|
|
|
|
|
|
if (exp && *exp == '/')
|
|
|
|
|
{
|
|
|
|
|
exp++;
|
|
|
|
|
fmt = decode_format (&exp, last_format, last_size);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If we have an expression, evaluate it and use it as the address. */
|
|
|
|
|
|
|
|
|
|
if (exp != 0 && *exp != 0)
|
|
|
|
|
{
|
1991-11-09 07:45:36 +00:00
|
|
|
|
expr = parse_expression (exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Cause expression not to be there any more
|
|
|
|
|
if this command is repeated with Newline.
|
|
|
|
|
But don't clobber a user-defined command's definition. */
|
|
|
|
|
if (from_tty)
|
|
|
|
|
*exp = 0;
|
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
|
|
|
|
val = evaluate_expression (expr);
|
1991-04-26 23:00:32 +00:00
|
|
|
|
if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_REF)
|
|
|
|
|
val = value_ind (val);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* In rvalue contexts, such as this, functions are coerced into
|
|
|
|
|
pointers to functions. This makes "x/i main" work. */
|
|
|
|
|
if (/* last_format == 'i'
|
|
|
|
|
&& */ TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC
|
|
|
|
|
&& VALUE_LVAL (val) == lval_memory)
|
|
|
|
|
next_address = VALUE_ADDRESS (val);
|
|
|
|
|
else
|
1991-05-02 04:28:42 +00:00
|
|
|
|
next_address = value_as_pointer (val);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
do_examine (fmt, next_address);
|
|
|
|
|
|
1992-06-25 10:58:53 +00:00
|
|
|
|
/* If the examine succeeds, we remember its size and format for next time. */
|
|
|
|
|
last_size = fmt.size;
|
|
|
|
|
last_format = fmt.format;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Set a couple of internal variables if appropriate. */
|
|
|
|
|
if (last_examine_value)
|
|
|
|
|
{
|
1991-11-09 07:45:36 +00:00
|
|
|
|
/* Make last address examined available to the user as $_. Use
|
|
|
|
|
the correct pointer type. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
set_internalvar (lookup_internalvar ("_"),
|
1991-11-09 07:45:36 +00:00
|
|
|
|
value_from_longest (
|
|
|
|
|
lookup_pointer_type (VALUE_TYPE (last_examine_value)),
|
|
|
|
|
(LONGEST) last_examine_address));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
/* Make contents of last address examined available to the user as $__.*/
|
|
|
|
|
set_internalvar (lookup_internalvar ("__"), last_examine_value);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Add an expression to the auto-display chain.
|
|
|
|
|
Specify the expression. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
display_command (exp, from_tty)
|
|
|
|
|
char *exp;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
struct format_data fmt;
|
|
|
|
|
register struct expression *expr;
|
|
|
|
|
register struct display *new;
|
|
|
|
|
|
|
|
|
|
if (exp == 0)
|
|
|
|
|
{
|
|
|
|
|
do_displays ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (*exp == '/')
|
|
|
|
|
{
|
|
|
|
|
exp++;
|
|
|
|
|
fmt = decode_format (&exp, 0, 0);
|
|
|
|
|
if (fmt.size && fmt.format == 0)
|
|
|
|
|
fmt.format = 'x';
|
|
|
|
|
if (fmt.format == 'i' || fmt.format == 's')
|
|
|
|
|
fmt.size = 'b';
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fmt.format = 0;
|
|
|
|
|
fmt.size = 0;
|
|
|
|
|
fmt.count = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
innermost_block = 0;
|
1991-11-09 07:45:36 +00:00
|
|
|
|
expr = parse_expression (exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
new = (struct display *) xmalloc (sizeof (struct display));
|
|
|
|
|
|
|
|
|
|
new->exp = expr;
|
|
|
|
|
new->block = innermost_block;
|
|
|
|
|
new->next = display_chain;
|
|
|
|
|
new->number = ++display_number;
|
|
|
|
|
new->format = fmt;
|
|
|
|
|
new->status = enabled;
|
|
|
|
|
display_chain = new;
|
|
|
|
|
|
|
|
|
|
if (from_tty && target_has_execution)
|
|
|
|
|
do_one_display (new);
|
|
|
|
|
|
|
|
|
|
dont_repeat ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
free_display (d)
|
|
|
|
|
struct display *d;
|
|
|
|
|
{
|
1992-06-25 10:58:53 +00:00
|
|
|
|
free ((PTR)d->exp);
|
|
|
|
|
free ((PTR)d);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Clear out the display_chain.
|
|
|
|
|
Done when new symtabs are loaded, since this invalidates
|
|
|
|
|
the types stored in many expressions. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
clear_displays ()
|
|
|
|
|
{
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
while ((d = display_chain) != NULL)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
1992-06-25 10:58:53 +00:00
|
|
|
|
free ((PTR)d->exp);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
display_chain = d->next;
|
1992-06-25 10:58:53 +00:00
|
|
|
|
free ((PTR)d);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Delete the auto-display number NUM. */
|
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
delete_display (num)
|
|
|
|
|
int num;
|
|
|
|
|
{
|
|
|
|
|
register struct display *d1, *d;
|
|
|
|
|
|
|
|
|
|
if (!display_chain)
|
|
|
|
|
error ("No display number %d.", num);
|
|
|
|
|
|
|
|
|
|
if (display_chain->number == num)
|
|
|
|
|
{
|
|
|
|
|
d1 = display_chain;
|
|
|
|
|
display_chain = d1->next;
|
|
|
|
|
free_display (d1);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
for (d = display_chain; ; d = d->next)
|
|
|
|
|
{
|
|
|
|
|
if (d->next == 0)
|
|
|
|
|
error ("No display number %d.", num);
|
|
|
|
|
if (d->next->number == num)
|
|
|
|
|
{
|
|
|
|
|
d1 = d->next;
|
|
|
|
|
d->next = d1->next;
|
|
|
|
|
free_display (d1);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Delete some values from the auto-display chain.
|
|
|
|
|
Specify the element numbers. */
|
|
|
|
|
|
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
undisplay_command (args, from_tty)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
char *args;
|
1992-06-25 10:58:53 +00:00
|
|
|
|
int from_tty;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
register char *p = args;
|
|
|
|
|
register char *p1;
|
|
|
|
|
register int num;
|
|
|
|
|
|
|
|
|
|
if (args == 0)
|
|
|
|
|
{
|
|
|
|
|
if (query ("Delete all auto-display expressions? "))
|
|
|
|
|
clear_displays ();
|
|
|
|
|
dont_repeat ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
|
|
|
|
while (*p1 >= '0' && *p1 <= '9') p1++;
|
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
|
|
|
|
|
|
|
|
|
num = atoi (p);
|
|
|
|
|
|
|
|
|
|
delete_display (num);
|
|
|
|
|
|
|
|
|
|
p = p1;
|
|
|
|
|
while (*p == ' ' || *p == '\t') p++;
|
|
|
|
|
}
|
|
|
|
|
dont_repeat ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Display a single auto-display.
|
|
|
|
|
Do nothing if the display cannot be printed in the current context,
|
|
|
|
|
or if the display is disabled. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
do_one_display (d)
|
|
|
|
|
struct display *d;
|
|
|
|
|
{
|
|
|
|
|
int within_current_scope;
|
|
|
|
|
|
|
|
|
|
if (d->status == disabled)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (d->block)
|
|
|
|
|
within_current_scope = contained_in (get_selected_block (), d->block);
|
|
|
|
|
else
|
|
|
|
|
within_current_scope = 1;
|
|
|
|
|
if (!within_current_scope)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
current_display_number = d->number;
|
|
|
|
|
|
|
|
|
|
printf_filtered ("%d: ", d->number);
|
|
|
|
|
if (d->format.size)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
|
|
|
|
|
printf_filtered ("x/");
|
|
|
|
|
if (d->format.count != 1)
|
|
|
|
|
printf_filtered ("%d", d->format.count);
|
|
|
|
|
printf_filtered ("%c", d->format.format);
|
|
|
|
|
if (d->format.format != 'i' && d->format.format != 's')
|
|
|
|
|
printf_filtered ("%c", d->format.size);
|
|
|
|
|
printf_filtered (" ");
|
|
|
|
|
print_expression (d->exp, stdout);
|
|
|
|
|
if (d->format.count != 1)
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
else
|
|
|
|
|
printf_filtered (" ");
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
addr = value_as_pointer (evaluate_expression (d->exp));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
if (d->format.format == 'i')
|
|
|
|
|
addr = ADDR_BITS_REMOVE (addr);
|
|
|
|
|
|
|
|
|
|
do_examine (d->format, addr);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (d->format.format)
|
|
|
|
|
printf_filtered ("/%c ", d->format.format);
|
|
|
|
|
print_expression (d->exp, stdout);
|
|
|
|
|
printf_filtered (" = ");
|
|
|
|
|
print_formatted (evaluate_expression (d->exp),
|
|
|
|
|
d->format.format, d->format.size);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
current_display_number = -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Display all of the values on the auto-display chain which can be
|
|
|
|
|
evaluated in the current scope. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
do_displays ()
|
|
|
|
|
{
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
do_one_display (d);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Delete the auto-display which we were in the process of displaying.
|
|
|
|
|
This is done when there is an error or a signal. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
disable_display (num)
|
|
|
|
|
int num;
|
|
|
|
|
{
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
if (d->number == num)
|
|
|
|
|
{
|
|
|
|
|
d->status = disabled;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
printf ("No display number %d.\n", num);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
disable_current_display ()
|
|
|
|
|
{
|
|
|
|
|
if (current_display_number >= 0)
|
|
|
|
|
{
|
|
|
|
|
disable_display (current_display_number);
|
|
|
|
|
fprintf (stderr, "Disabling display %d to avoid infinite recursion.\n",
|
|
|
|
|
current_display_number);
|
|
|
|
|
}
|
|
|
|
|
current_display_number = -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
display_info (ignore, from_tty)
|
|
|
|
|
char *ignore;
|
|
|
|
|
int from_tty;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
|
|
|
|
if (!display_chain)
|
|
|
|
|
printf ("There are no auto-display expressions now.\n");
|
|
|
|
|
else
|
|
|
|
|
printf_filtered ("Auto-display expressions now in effect:\n\
|
|
|
|
|
Num Enb Expression\n");
|
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
{
|
|
|
|
|
printf_filtered ("%d: %c ", d->number, "ny"[(int)d->status]);
|
|
|
|
|
if (d->format.size)
|
|
|
|
|
printf_filtered ("/%d%c%c ", d->format.count, d->format.size,
|
|
|
|
|
d->format.format);
|
|
|
|
|
else if (d->format.format)
|
|
|
|
|
printf_filtered ("/%c ", d->format.format);
|
|
|
|
|
print_expression (d->exp, stdout);
|
|
|
|
|
if (d->block && !contained_in (get_selected_block (), d->block))
|
|
|
|
|
printf_filtered (" (cannot be evaluated in the current context)");
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-22 09:16:11 +00:00
|
|
|
|
static void
|
1992-06-25 10:58:53 +00:00
|
|
|
|
enable_display (args, from_tty)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
char *args;
|
1992-06-25 10:58:53 +00:00
|
|
|
|
int from_tty;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
register char *p = args;
|
|
|
|
|
register char *p1;
|
|
|
|
|
register int num;
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
|
|
|
|
if (p == 0)
|
|
|
|
|
{
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
d->status = enabled;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
|
|
|
|
while (*p1 >= '0' && *p1 <= '9')
|
|
|
|
|
p1++;
|
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
|
|
|
|
|
|
|
|
|
num = atoi (p);
|
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
if (d->number == num)
|
|
|
|
|
{
|
|
|
|
|
d->status = enabled;
|
|
|
|
|
goto win;
|
|
|
|
|
}
|
|
|
|
|
printf ("No display number %d.\n", num);
|
|
|
|
|
win:
|
|
|
|
|
p = p1;
|
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1992-02-22 09:16:11 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
disable_display_command (args, from_tty)
|
|
|
|
|
char *args;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
register char *p = args;
|
|
|
|
|
register char *p1;
|
|
|
|
|
register struct display *d;
|
|
|
|
|
|
|
|
|
|
if (p == 0)
|
|
|
|
|
{
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
d->status = disabled;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
|
|
|
|
while (*p1 >= '0' && *p1 <= '9')
|
|
|
|
|
p1++;
|
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
|
|
|
|
|
|
|
|
|
disable_display (atoi (p));
|
|
|
|
|
|
|
|
|
|
p = p1;
|
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Print the value in stack frame FRAME of a variable
|
|
|
|
|
specified by a struct symbol. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_variable_value (var, frame, stream)
|
|
|
|
|
struct symbol *var;
|
|
|
|
|
FRAME frame;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
value val = read_var_value (var, frame);
|
|
|
|
|
value_print (val, stream, 0, Val_pretty_default);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print the arguments of a stack frame, given the function FUNC
|
|
|
|
|
running in that frame (as a symbol), the info on the frame,
|
|
|
|
|
and the number of args according to the stack frame (or -1 if unknown). */
|
|
|
|
|
|
|
|
|
|
/* References here and elsewhere to "number of args according to the
|
|
|
|
|
stack frame" appear in all cases to refer to "number of ints of args
|
|
|
|
|
according to the stack frame". At least for VAX, i386, isi. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_frame_args (func, fi, num, stream)
|
|
|
|
|
struct symbol *func;
|
|
|
|
|
struct frame_info *fi;
|
|
|
|
|
int num;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
struct block *b;
|
|
|
|
|
int nsyms = 0;
|
|
|
|
|
int first = 1;
|
|
|
|
|
register int i;
|
|
|
|
|
register struct symbol *sym;
|
|
|
|
|
register value val;
|
|
|
|
|
/* Offset of next stack argument beyond the one we have seen that is
|
|
|
|
|
at the highest offset.
|
|
|
|
|
-1 if we haven't come to a stack argument yet. */
|
1991-05-02 04:28:42 +00:00
|
|
|
|
long highest_offset = -1;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
int arg_size;
|
|
|
|
|
/* Number of ints of arguments that we have printed so far. */
|
|
|
|
|
int args_printed = 0;
|
|
|
|
|
|
|
|
|
|
if (func)
|
|
|
|
|
{
|
|
|
|
|
b = SYMBOL_BLOCK_VALUE (func);
|
|
|
|
|
nsyms = BLOCK_NSYMS (b);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < nsyms; i++)
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
|
|
|
|
sym = BLOCK_SYM (b, i);
|
|
|
|
|
|
1991-11-09 07:45:36 +00:00
|
|
|
|
/* Keep track of the highest stack argument offset seen, and
|
|
|
|
|
skip over any kinds of symbols we don't care about. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
switch (SYMBOL_CLASS (sym)) {
|
|
|
|
|
case LOC_ARG:
|
|
|
|
|
case LOC_REF_ARG:
|
|
|
|
|
{
|
1991-05-02 04:28:42 +00:00
|
|
|
|
long current_offset = SYMBOL_VALUE (sym);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
arg_size = TYPE_LENGTH (SYMBOL_TYPE (sym));
|
|
|
|
|
|
|
|
|
|
/* Compute address of next argument by adding the size of
|
|
|
|
|
this argument and rounding to an int boundary. */
|
|
|
|
|
current_offset
|
|
|
|
|
= ((current_offset + arg_size + sizeof (int) - 1)
|
|
|
|
|
& ~(sizeof (int) - 1));
|
|
|
|
|
|
|
|
|
|
/* If this is the highest offset seen yet, set highest_offset. */
|
|
|
|
|
if (highest_offset == -1
|
|
|
|
|
|| (current_offset > highest_offset))
|
|
|
|
|
highest_offset = current_offset;
|
|
|
|
|
|
|
|
|
|
/* Add the number of ints we're about to print to args_printed. */
|
|
|
|
|
args_printed += (arg_size + sizeof (int) - 1) / sizeof (int);
|
|
|
|
|
}
|
|
|
|
|
|
1991-11-09 07:45:36 +00:00
|
|
|
|
/* We care about types of symbols, but don't need to keep track of
|
|
|
|
|
stack offsets in them. */
|
|
|
|
|
case LOC_REGPARM:
|
1993-04-22 22:27:25 +00:00
|
|
|
|
case LOC_REGPARM_ADDR:
|
1991-11-09 07:45:36 +00:00
|
|
|
|
case LOC_LOCAL_ARG:
|
1991-03-28 16:26:26 +00:00
|
|
|
|
break;
|
1991-11-09 07:45:36 +00:00
|
|
|
|
|
|
|
|
|
/* Other types of symbols we just skip over. */
|
|
|
|
|
default:
|
|
|
|
|
continue;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-21 22:20:53 +00:00
|
|
|
|
/* We have to look up the symbol because arguments can have
|
|
|
|
|
two entries (one a parameter, one a local) and the one we
|
|
|
|
|
want is the local, which lookup_symbol will find for us.
|
|
|
|
|
This includes gcc1 (not gcc2) on the sparc when passing a
|
|
|
|
|
small structure and gcc2 when the argument type is float
|
|
|
|
|
and it is passed as a double and converted to float by
|
|
|
|
|
the prologue (in the latter case the type of the LOC_ARG
|
|
|
|
|
symbol is double and the type of the LOC_LOCAL symbol is
|
|
|
|
|
float). It's possible this should be dealt with in
|
|
|
|
|
symbol reading the way it now is for LOC_REGPARM. */
|
|
|
|
|
/* But if the parameter name is null, don't try it.
|
* Makefile.in (VERSION): Bump to 4.7.4.
* Makefile.in (SFILES_MAINDIR): Add typeprint.c, c-typeprint.c,
m2-typeprint.c, c-valprint.c cp-valprint.c m2-valprint.c.
* Makefile.in (HFILES): Add valprint.h.
* Makefile.in (OBS): Add typeprint.o, c-typeprint.o,
m2-typeprint.o, c-valprint.o, cp-valprint.o m2-valprint.o.
* typeprint.c, typeprint.h: New files for language independent
type printing functions.
* c-typeprint.c, m2-typeprint.c: New files for language dependent
type printing functions and definitions.
* valprint.h: New include file for language independent value
printing definitions.
* c-valprint.c, cp-valprint.c, m2-valprint.c: New files for language
dependent value printing functions.
* c-exp.y (production ptype): Add range_type variable and use new
create_range_type function.
* c-exp.y (tokentab2, tokentab3), c-lang.c (c_op_print_tab),
infcmd.c (path_var_name), language.c (unk_op_print_tab),
m2-lang.c (m2_op_print_tab): Change from ANSI-obsolescent
"const static" to ANSI-conformant "static const".
* c-exp.y (c_create_fundamental_type): Remove unused nbytes.
* c-exp.y (c_language_defn, cplus_language_defn): Add c_print_type,
and c_val_print.
* c-lang.h (c_print_type, c_val_print): Add prototypes.
* coffread.c (decode_type): Add range_type variable and call to
new create_range_type function.
* complaints.c (complain): Remove unused val variable.
* complaints.c (_initialize_complaints): Make it void.
* convex-tdep.c (value_of_trapped_internalvar): Add range_type
variable and call new create_range_type function.
* defs.h (enum val_prettyprint): Move enum from value.h to here
so we can avoid having to include value.h just for prototypes that
need the enum (thanks ANSI).
* dwarfread.c (struct_type): Local anonymous_size variable is
only used if !BITS_BIG_ENDIAN.
* dwarfread.c (decode_subscript_data_item): Add rangetype
variable and call new create_range_type function.
* elfread.c (elf_symfile_read): Remove unused dbx and text_sect
variables.
* eval.c (evaluate_subexp): Remove unused local variable name
and the statement with no side effects that initializes it.
* expprint.c (print_subexp): Change local_printstr to
LA_PRINT_STRING.
* gdbtypes.c (create_range_type): New function that creates
a range type using code fragments from object file readers as
an example of what has to be initialized.
* gdbtypes.c (create_array_type): Removed index_type, low_bound,
and high_bound parameters, replaced with a single range_type
parameter. Change function body to use passed in range_type
rather than handcrafting one.
* gdbtypes.h (create_range_type): Add prototype.
* gdbtypes.h (create_array_type): Change prototype parameters.
* infrun.c (normal_stop): Remove unused local variables tem and c.
* infrun.c (hook_stop_stub): Return 0 rather than random value.
* language.c (unk_lang_print_type, unk_lang_val_print): Add
stub functions that call error if called.
* language.c (unknown_language_defn, auto_language_defn,
local_language_defn): Add initializers unk_lang_print_type and
unk_lang_val_print.
* language.h (struct language_defn): Reformat for larger
comments, add la_print_type and la_val_print members. Add
LA_PRINT_TYPE and LA_VAL_PRINT macros. Change local_printchar
to LA_PRINT_CHAR and local_printstr to LA_PRINT_STRING.
* m2-lang.c (m2_create_fundamental_type): Remove unused local
variable nbytes.
* m2-lang.c (m2_language_defn): Add initializers m2_print_type
and m2_val_print.
* m2-lang.h (m2_print_type, m2_val_print): Add prototypes.
* main.c (execute_command): Remove unused local variable cmdlines.
* main.c (echo_command), stabsread.c (read_type), printcmd.c
(clear_displays), symmisc.c (block_depth), values.c
(clear_value_history):
Make testing of truth value of assignment result explicit.
* mipsread.c (upgrade_type): Update FIXME to include future use
of create_range_type.
* printcmd.c (ptype_command, ptype_eval, whatis_command,
whatis_exp, maintenance_print_type): Move prototypes and functions
to new typeprint.c.
* printcmd.c (_initialize_printcmd): Move add_com calls for
ptype_command and whatis_command to new typeprint.c.
* ser-bsd.c (serial_open): Remove unused variable sgttyb.
* source.c (find_source_lines): Local variable c only used
when LSEEK_NOT_LINEAR is defined.
* stabsread.c (read_array_type): Use new create_range_type
function.
* stabsread.c (read_range_type): Add new index_type variable and
call new create_range_type function rather than handcrafting
range types.
* symmisc.c (type_print_1): Change usages to LA_PRINT_TYPE.
* symtab.c (typedef_print usages): Use c_typedef_print, renamed.
* symtab.c (type_print_base usages): Use c_type_print_base.
* symtab.c (type_print_varspec_prefix usages): Use
c_type_print_varspec_prefix.
* symtab.c (type_print_method_args usages): Use
cp_type_print_method_args.
* valprint.c: Completely ripped apart and the fragments used
to create c-valprint.c, cp-valprint.c, m2-valprint.c, and
valprint.h. Remaining stuff is language independent.
* value.h (struct fn_field): Forward declare for prototypes.
* value.h (type_print_1): Remove prototype.
* value.h (enum val_prettyprint): Moved to defs.h.
* value.h (typedef_print): Prototype renamed to c_typedef_print.
* value.h (baseclass_offset): Add prototype.
**** start-sanitize-chill ****
* Makefile.in (SFILES_MAINDIR): Add ch-typeprint.c, ch-valprint.c.
* Makefile.in (OBS): Add ch-typeprint.o, ch-valprint.o.
* ch-typeprint.c: New file for language dependent type printing.
* ch-valprint.c: New file for language dependent value printing.
* ch-exp.y (parse_number): Remove prototype and stub function.
* ch-exp.y (decode_integer_literal): Removed unused digits and
temp variables.
* ch-exp.y (convert_float): Completely ifdef out for now.
* ch-exp.y (tokentab2, tokentab3, tokentab4, tokentab5),
ch-lang.c (chill_op_print_tab):
Change from ANSI-obsolescent "const static" to ANSI-conformant
"static const".
* ch-exp.y (yylex): Add unhandled storage class enumeration
literals to switch statement for completeness.
* ch-lang.c (chill_create_fundamental_types): Remove unused
nbytes variable. Change dummy type to 2 bytes to match int.
Handle FT_VOID types gratuituously added to chill DWARF by
compiler. Change FT_CHAR case to generate an TYPE_CODE_CHAR
type rather than a one byte TYPE_CODE_INT type.
* ch-lang.c (chill_language_defn): Add chill_print_type and
chill_val_print.
* ch-lang.h (chill_print_type, chill_val_print): Add prototypes.
**** end-sanitize-chill ****
1992-12-18 20:21:32 +00:00
|
|
|
|
Null parameter names occur on the RS/6000, for traceback tables.
|
|
|
|
|
FIXME, should we even print them? */
|
|
|
|
|
|
|
|
|
|
if (*SYMBOL_NAME (sym))
|
1993-04-21 22:20:53 +00:00
|
|
|
|
sym = lookup_symbol
|
|
|
|
|
(SYMBOL_NAME (sym),
|
|
|
|
|
b, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL);
|
1991-11-09 07:45:36 +00:00
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Print the current arg. */
|
|
|
|
|
if (! first)
|
|
|
|
|
fprintf_filtered (stream, ", ");
|
|
|
|
|
wrap_here (" ");
|
1993-04-21 22:20:53 +00:00
|
|
|
|
fprintf_symbol_filtered (stream, SYMBOL_SOURCE_NAME (sym),
|
|
|
|
|
SYMBOL_LANGUAGE (sym), DMGL_PARAMS | DMGL_ANSI);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
fputs_filtered ("=", stream);
|
|
|
|
|
|
|
|
|
|
/* Avoid value_print because it will deref ref parameters. We just
|
|
|
|
|
want to print their addresses. Print ??? for args whose address
|
1991-05-30 08:52:52 +00:00
|
|
|
|
we do not know. We pass 2 as "recurse" to val_print because our
|
|
|
|
|
standard indentation here is 4 spaces, and val_print indents
|
|
|
|
|
2 for each recurse. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
val = read_var_value (sym, FRAME_INFO_ID (fi));
|
|
|
|
|
if (val)
|
|
|
|
|
val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), VALUE_ADDRESS (val),
|
1991-05-30 08:52:52 +00:00
|
|
|
|
stream, 0, 0, 2, Val_no_prettyprint);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
else
|
|
|
|
|
fputs_filtered ("???", stream);
|
|
|
|
|
first = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Don't print nameless args in situations where we don't know
|
|
|
|
|
enough about the stack to find them. */
|
|
|
|
|
if (num != -1)
|
|
|
|
|
{
|
1991-05-02 04:28:42 +00:00
|
|
|
|
long start;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
if (highest_offset == -1)
|
|
|
|
|
start = FRAME_ARGS_SKIP;
|
|
|
|
|
else
|
|
|
|
|
start = highest_offset;
|
|
|
|
|
|
1993-02-02 08:21:50 +00:00
|
|
|
|
print_frame_nameless_args (fi, start, num - args_printed,
|
|
|
|
|
first, stream);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print nameless args on STREAM.
|
1993-02-02 08:21:50 +00:00
|
|
|
|
FI is the frameinfo for this frame, START is the offset
|
1991-03-28 16:26:26 +00:00
|
|
|
|
of the first nameless arg, and NUM is the number of nameless args to
|
|
|
|
|
print. FIRST is nonzero if this is the first argument (not just
|
|
|
|
|
the first nameless arg). */
|
|
|
|
|
static void
|
1993-02-02 08:21:50 +00:00
|
|
|
|
print_frame_nameless_args (fi, start, num, first, stream)
|
|
|
|
|
struct frame_info *fi;
|
1991-05-02 04:28:42 +00:00
|
|
|
|
long start;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
int num;
|
|
|
|
|
int first;
|
|
|
|
|
FILE *stream;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
1993-02-02 08:21:50 +00:00
|
|
|
|
CORE_ADDR argsaddr;
|
|
|
|
|
long arg_value;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
for (i = 0; i < num; i++)
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
1993-02-02 08:21:50 +00:00
|
|
|
|
#ifdef NAMELESS_ARG_VALUE
|
|
|
|
|
NAMELESS_ARG_VALUE (fi, start, &arg_value);
|
|
|
|
|
#else
|
|
|
|
|
argsaddr = FRAME_ARGS_ADDRESS (fi);
|
|
|
|
|
if (!argsaddr)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
arg_value = read_memory_integer (argsaddr + start, sizeof (int));
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
if (!first)
|
|
|
|
|
fprintf_filtered (stream, ", ");
|
1993-02-02 08:21:50 +00:00
|
|
|
|
|
|
|
|
|
#ifdef PRINT_NAMELESS_INTEGER
|
|
|
|
|
PRINT_NAMELESS_INTEGER (stream, arg_value);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else
|
1993-02-02 08:21:50 +00:00
|
|
|
|
#ifdef PRINT_TYPELESS_INTEGER
|
|
|
|
|
PRINT_TYPELESS_INTEGER (stream, builtin_type_int, (LONGEST) arg_value);
|
|
|
|
|
#else
|
|
|
|
|
fprintf_filtered (stream, "%d", arg_value);
|
|
|
|
|
#endif /* PRINT_TYPELESS_INTEGER */
|
|
|
|
|
#endif /* PRINT_NAMELESS_INTEGER */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
first = 0;
|
|
|
|
|
start += sizeof (int);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
printf_command (arg, from_tty)
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
register char *f;
|
|
|
|
|
register char *s = arg;
|
|
|
|
|
char *string;
|
|
|
|
|
value *val_args;
|
|
|
|
|
int nargs = 0;
|
|
|
|
|
int allocated_args = 20;
|
|
|
|
|
char *arg_bytes;
|
|
|
|
|
|
|
|
|
|
val_args = (value *) xmalloc (allocated_args * sizeof (value));
|
|
|
|
|
|
|
|
|
|
if (s == 0)
|
|
|
|
|
error_no_arg ("format-control string and values to print");
|
|
|
|
|
|
|
|
|
|
/* Skip white space before format string */
|
|
|
|
|
while (*s == ' ' || *s == '\t') s++;
|
|
|
|
|
|
|
|
|
|
/* A format string should follow, enveloped in double quotes */
|
|
|
|
|
if (*s++ != '"')
|
|
|
|
|
error ("Bad format string, missing '\"'.");
|
|
|
|
|
|
|
|
|
|
/* Parse the format-control string and copy it into the string STRING,
|
|
|
|
|
processing some kinds of escape sequence. */
|
|
|
|
|
|
|
|
|
|
f = string = (char *) alloca (strlen (s) + 1);
|
|
|
|
|
while (*s != '"')
|
|
|
|
|
{
|
|
|
|
|
int c = *s++;
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
error ("Bad format string, non-terminated '\"'.");
|
|
|
|
|
/* doesn't return */
|
|
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
|
switch (c = *s++)
|
|
|
|
|
{
|
|
|
|
|
case '\\':
|
|
|
|
|
*f++ = '\\';
|
|
|
|
|
break;
|
|
|
|
|
case 'n':
|
|
|
|
|
*f++ = '\n';
|
|
|
|
|
break;
|
|
|
|
|
case 't':
|
|
|
|
|
*f++ = '\t';
|
|
|
|
|
break;
|
|
|
|
|
case 'r':
|
|
|
|
|
*f++ = '\r';
|
|
|
|
|
break;
|
|
|
|
|
case '"':
|
|
|
|
|
*f++ = '"';
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
/* ??? TODO: handle other escape sequences */
|
|
|
|
|
error ("Unrecognized \\ escape character in format string.");
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
*f++ = c;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Skip over " and following space and comma. */
|
|
|
|
|
s++;
|
|
|
|
|
*f++ = '\0';
|
|
|
|
|
while (*s == ' ' || *s == '\t') s++;
|
|
|
|
|
|
|
|
|
|
if (*s != ',' && *s != 0)
|
|
|
|
|
error ("Invalid argument syntax");
|
|
|
|
|
|
|
|
|
|
if (*s == ',') s++;
|
|
|
|
|
while (*s == ' ' || *s == '\t') s++;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
/* Now scan the string for %-specs and see what kinds of args they want.
|
|
|
|
|
argclass[I] classifies the %-specs so we can give vprintf something
|
|
|
|
|
of the right size. */
|
|
|
|
|
|
|
|
|
|
enum argclass {int_arg, string_arg, double_arg, long_long_arg};
|
|
|
|
|
enum argclass *argclass;
|
|
|
|
|
int nargs_wanted;
|
|
|
|
|
int argindex;
|
|
|
|
|
int lcount;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
argclass = (enum argclass *) alloca (strlen (s) * sizeof *argclass);
|
|
|
|
|
nargs_wanted = 0;
|
|
|
|
|
f = string;
|
|
|
|
|
while (*f)
|
|
|
|
|
if (*f++ == '%')
|
|
|
|
|
{
|
|
|
|
|
lcount = 0;
|
|
|
|
|
while (strchr ("0123456789.hlL-+ #", *f))
|
|
|
|
|
{
|
|
|
|
|
if (*f == 'l' || *f == 'L')
|
|
|
|
|
lcount++;
|
|
|
|
|
f++;
|
|
|
|
|
}
|
|
|
|
|
if (*f == 's')
|
|
|
|
|
argclass[nargs_wanted++] = string_arg;
|
|
|
|
|
else if (*f == 'e' || *f == 'f' || *f == 'g')
|
|
|
|
|
argclass[nargs_wanted++] = double_arg;
|
|
|
|
|
else if (lcount > 1)
|
|
|
|
|
argclass[nargs_wanted++] = long_long_arg;
|
|
|
|
|
else if (*f != '%')
|
|
|
|
|
argclass[nargs_wanted++] = int_arg;
|
|
|
|
|
f++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now, parse all arguments and evaluate them.
|
|
|
|
|
Store the VALUEs in VAL_ARGS. */
|
|
|
|
|
|
|
|
|
|
while (*s != '\0')
|
|
|
|
|
{
|
|
|
|
|
char *s1;
|
|
|
|
|
if (nargs == allocated_args)
|
1992-02-22 09:16:11 +00:00
|
|
|
|
val_args = (value *) xrealloc ((char *) val_args,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
(allocated_args *= 2)
|
|
|
|
|
* sizeof (value));
|
|
|
|
|
s1 = s;
|
|
|
|
|
val_args[nargs] = parse_to_comma_and_eval (&s1);
|
|
|
|
|
|
|
|
|
|
/* If format string wants a float, unchecked-convert the value to
|
|
|
|
|
floating point of the same size */
|
|
|
|
|
|
|
|
|
|
if (argclass[nargs] == double_arg)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_LENGTH (VALUE_TYPE (val_args[nargs])) == sizeof (float))
|
|
|
|
|
VALUE_TYPE (val_args[nargs]) = builtin_type_float;
|
|
|
|
|
if (TYPE_LENGTH (VALUE_TYPE (val_args[nargs])) == sizeof (double))
|
|
|
|
|
VALUE_TYPE (val_args[nargs]) = builtin_type_double;
|
|
|
|
|
}
|
|
|
|
|
nargs++;
|
|
|
|
|
s = s1;
|
|
|
|
|
if (*s == ',')
|
|
|
|
|
s++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (nargs != nargs_wanted)
|
|
|
|
|
error ("Wrong number of arguments for specified format-string");
|
|
|
|
|
|
|
|
|
|
/* Now lay out an argument-list containing the arguments
|
|
|
|
|
as doubles, integers and C pointers. */
|
|
|
|
|
|
|
|
|
|
arg_bytes = (char *) alloca (sizeof (double) * nargs);
|
|
|
|
|
argindex = 0;
|
|
|
|
|
for (i = 0; i < nargs; i++)
|
|
|
|
|
{
|
|
|
|
|
if (argclass[i] == string_arg)
|
|
|
|
|
{
|
|
|
|
|
char *str;
|
1991-05-02 04:28:42 +00:00
|
|
|
|
CORE_ADDR tem;
|
|
|
|
|
int j;
|
|
|
|
|
tem = value_as_pointer (val_args[i]);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
/* This is a %s argument. Find the length of the string. */
|
|
|
|
|
for (j = 0; ; j++)
|
|
|
|
|
{
|
|
|
|
|
char c;
|
|
|
|
|
QUIT;
|
|
|
|
|
read_memory (tem + j, &c, 1);
|
|
|
|
|
if (c == 0)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Copy the string contents into a string inside GDB. */
|
|
|
|
|
str = (char *) alloca (j + 1);
|
|
|
|
|
read_memory (tem, str, j);
|
|
|
|
|
str[j] = 0;
|
|
|
|
|
|
|
|
|
|
/* Pass address of internal copy as the arg to vprintf. */
|
|
|
|
|
*((int *) &arg_bytes[argindex]) = (int) str;
|
|
|
|
|
argindex += sizeof (int);
|
|
|
|
|
}
|
|
|
|
|
else if (VALUE_TYPE (val_args[i])->code == TYPE_CODE_FLT)
|
|
|
|
|
{
|
|
|
|
|
*((double *) &arg_bytes[argindex]) = value_as_double (val_args[i]);
|
|
|
|
|
argindex += sizeof (double);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
#ifdef LONG_LONG
|
|
|
|
|
if (argclass[i] == long_long_arg)
|
|
|
|
|
{
|
|
|
|
|
*(long long *) &arg_bytes[argindex] = value_as_long (val_args[i]);
|
|
|
|
|
argindex += sizeof (long long);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
#endif
|
|
|
|
|
{
|
1991-05-02 04:28:42 +00:00
|
|
|
|
*((long *) &arg_bytes[argindex]) = value_as_long (val_args[i]);
|
|
|
|
|
argindex += sizeof (long);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* There is not a standard way to make a va_list, so we need
|
|
|
|
|
to do various things for different systems. */
|
|
|
|
|
#if defined (__INT_VARARGS_H)
|
|
|
|
|
{
|
|
|
|
|
va_list list;
|
|
|
|
|
|
|
|
|
|
list.__va_arg = 0;
|
|
|
|
|
list.__va_stk = (int *) arg_bytes;
|
|
|
|
|
list.__va_reg = (int *) arg_bytes;
|
|
|
|
|
vprintf (string, list);
|
|
|
|
|
}
|
|
|
|
|
#else /* No __INT_VARARGS_H. */
|
|
|
|
|
vprintf (string, arg_bytes);
|
|
|
|
|
#endif /* No __INT_VARARGS_H. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Helper function for asdump_command. Finds the bounds of a function
|
|
|
|
|
for a specified section of text. PC is an address within the
|
|
|
|
|
function which you want bounds for; *LOW and *HIGH are set to the
|
|
|
|
|
beginning (inclusive) and end (exclusive) of the function. This
|
|
|
|
|
function returns 1 on success and 0 on failure. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
containing_function_bounds (pc, low, high)
|
|
|
|
|
CORE_ADDR pc, *low, *high;
|
|
|
|
|
{
|
1993-04-22 20:42:37 +00:00
|
|
|
|
CORE_ADDR scan;
|
|
|
|
|
CORE_ADDR limit;
|
|
|
|
|
struct obj_section *sec;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
if (!find_pc_partial_function (pc, 0, low))
|
|
|
|
|
return 0;
|
|
|
|
|
|
1993-04-22 20:42:37 +00:00
|
|
|
|
sec = find_pc_section (pc);
|
|
|
|
|
if (sec == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
limit = sec->endaddr;
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
scan = *low;
|
1993-04-22 20:42:37 +00:00
|
|
|
|
while (scan < limit)
|
|
|
|
|
{
|
|
|
|
|
++scan;
|
|
|
|
|
if (!find_pc_partial_function (scan, 0, high))
|
|
|
|
|
return 0;
|
|
|
|
|
if (*low != *high)
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
*high = limit;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Dump a specified section of assembly code. With no command line
|
|
|
|
|
arguments, this command will dump the assembly code for the
|
|
|
|
|
function surrounding the pc value in the selected frame. With one
|
|
|
|
|
argument, it will dump the assembly code surrounding that pc value.
|
|
|
|
|
Two arguments are interpeted as bounds within which to dump
|
|
|
|
|
assembly. */
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static void
|
|
|
|
|
disassemble_command (arg, from_tty)
|
|
|
|
|
char *arg;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR low, high;
|
|
|
|
|
CORE_ADDR pc;
|
|
|
|
|
char *space_index;
|
|
|
|
|
|
|
|
|
|
if (!arg)
|
|
|
|
|
{
|
|
|
|
|
if (!selected_frame)
|
|
|
|
|
error ("No frame selected.\n");
|
|
|
|
|
|
|
|
|
|
pc = get_frame_pc (selected_frame);
|
|
|
|
|
if (!containing_function_bounds (pc, &low, &high))
|
|
|
|
|
error ("No function contains pc specified by selected frame.\n");
|
|
|
|
|
}
|
|
|
|
|
else if (!(space_index = (char *) strchr (arg, ' ')))
|
|
|
|
|
{
|
|
|
|
|
/* One argument. */
|
|
|
|
|
pc = parse_and_eval_address (arg);
|
|
|
|
|
if (!containing_function_bounds (pc, &low, &high))
|
|
|
|
|
error ("No function contains specified pc.\n");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Two arguments. */
|
|
|
|
|
*space_index = '\0';
|
|
|
|
|
low = parse_and_eval_address (arg);
|
|
|
|
|
high = parse_and_eval_address (space_index + 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
printf_filtered ("Dump of assembler code ");
|
|
|
|
|
if (!space_index)
|
|
|
|
|
{
|
|
|
|
|
char *name;
|
|
|
|
|
find_pc_partial_function (pc, &name, 0);
|
|
|
|
|
printf_filtered ("for function %s:\n", name);
|
|
|
|
|
}
|
|
|
|
|
else
|
1993-03-11 01:56:31 +00:00
|
|
|
|
{
|
|
|
|
|
printf_filtered ("from %s ", local_hex_string(low));
|
|
|
|
|
printf_filtered ("to %s:\n", local_hex_string(high));
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
/* Dump the specified range. */
|
|
|
|
|
for (pc = low; pc < high; )
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
|
|
|
|
print_address (pc, stdout);
|
|
|
|
|
printf_filtered (":\t");
|
|
|
|
|
pc += print_insn (pc, stdout);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
printf_filtered ("End of assembler dump.\n");
|
|
|
|
|
fflush (stdout);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_printcmd ()
|
|
|
|
|
{
|
|
|
|
|
current_display_number = -1;
|
|
|
|
|
|
|
|
|
|
add_info ("address", address_info,
|
|
|
|
|
"Describe where variable VAR is stored.");
|
|
|
|
|
|
|
|
|
|
add_com ("x", class_vars, x_command,
|
|
|
|
|
"Examine memory: x/FMT ADDRESS.\n\
|
|
|
|
|
ADDRESS is an expression for the memory address to examine.\n\
|
|
|
|
|
FMT is a repeat count followed by a format letter and a size letter.\n\
|
|
|
|
|
Format letters are o(octal), x(hex), d(decimal), u(unsigned decimal),\n\
|
1993-04-21 22:20:53 +00:00
|
|
|
|
t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n\
|
1991-03-28 16:26:26 +00:00
|
|
|
|
Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\
|
|
|
|
|
The specified number of objects of the specified size are printed\n\
|
|
|
|
|
according to the format.\n\n\
|
|
|
|
|
Defaults for format and size letters are those previously used.\n\
|
|
|
|
|
Default count is 1. Default address is following last thing printed\n\
|
|
|
|
|
with this command or \"print\".");
|
|
|
|
|
|
|
|
|
|
add_com ("disassemble", class_vars, disassemble_command,
|
|
|
|
|
"Disassemble a specified section of memory.\n\
|
|
|
|
|
Default is the function surrounding the pc of the selected frame.\n\
|
|
|
|
|
With a single argument, the function surrounding that address is dumped.\n\
|
|
|
|
|
Two arguments are taken as a range of memory to dump.");
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
add_com ("whereis", class_vars, whereis_command,
|
|
|
|
|
"Print line number and file of definition of variable.");
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
add_info ("display", display_info,
|
|
|
|
|
"Expressions to display when program stops, with code numbers.");
|
|
|
|
|
|
|
|
|
|
add_cmd ("undisplay", class_vars, undisplay_command,
|
|
|
|
|
"Cancel some expressions to be displayed when program stops.\n\
|
|
|
|
|
Arguments are the code numbers of the expressions to stop displaying.\n\
|
|
|
|
|
No argument means cancel all automatic-display expressions.\n\
|
|
|
|
|
\"delete display\" has the same effect as this command.\n\
|
|
|
|
|
Do \"info display\" to see current list of code numbers.",
|
|
|
|
|
&cmdlist);
|
|
|
|
|
|
|
|
|
|
add_com ("display", class_vars, display_command,
|
|
|
|
|
"Print value of expression EXP each time the program stops.\n\
|
|
|
|
|
/FMT may be used before EXP as in the \"print\" command.\n\
|
|
|
|
|
/FMT \"i\" or \"s\" or including a size-letter is allowed,\n\
|
|
|
|
|
as in the \"x\" command, and then EXP is used to get the address to examine\n\
|
|
|
|
|
and examining is done as in the \"x\" command.\n\n\
|
|
|
|
|
With no argument, display all currently requested auto-display expressions.\n\
|
|
|
|
|
Use \"undisplay\" to cancel display requests previously made.");
|
|
|
|
|
|
|
|
|
|
add_cmd ("display", class_vars, enable_display,
|
|
|
|
|
"Enable some expressions to be displayed when program stops.\n\
|
|
|
|
|
Arguments are the code numbers of the expressions to resume displaying.\n\
|
|
|
|
|
No argument means enable all automatic-display expressions.\n\
|
|
|
|
|
Do \"info display\" to see current list of code numbers.", &enablelist);
|
|
|
|
|
|
|
|
|
|
add_cmd ("display", class_vars, disable_display_command,
|
|
|
|
|
"Disable some expressions to be displayed when program stops.\n\
|
|
|
|
|
Arguments are the code numbers of the expressions to stop displaying.\n\
|
|
|
|
|
No argument means disable all automatic-display expressions.\n\
|
|
|
|
|
Do \"info display\" to see current list of code numbers.", &disablelist);
|
|
|
|
|
|
|
|
|
|
add_cmd ("display", class_vars, undisplay_command,
|
|
|
|
|
"Cancel some expressions to be displayed when program stops.\n\
|
|
|
|
|
Arguments are the code numbers of the expressions to stop displaying.\n\
|
|
|
|
|
No argument means cancel all automatic-display expressions.\n\
|
|
|
|
|
Do \"info display\" to see current list of code numbers.", &deletelist);
|
|
|
|
|
|
|
|
|
|
add_com ("printf", class_vars, printf_command,
|
|
|
|
|
"printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\
|
|
|
|
|
This is useful for formatted output in user-defined commands.");
|
|
|
|
|
add_com ("output", class_vars, output_command,
|
|
|
|
|
"Like \"print\" but don't put in value history and don't print newline.\n\
|
|
|
|
|
This is useful in user-defined commands.");
|
|
|
|
|
|
|
|
|
|
add_prefix_cmd ("set", class_vars, set_command,
|
* c-exp.y, m2-exp.y (yyreds, yytoks): Remap like other yy* names.
* c-exp.y, m2-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined
and YYDEBUG is not already defined.
* c-exp.y (strncmp): Replace throughout with STREQN, missed
them during the previous replacements.
* printcmd.c (_initialize_printcmd): Update internal documentation
for "set" command to note that the assignment syntax is language
dependent.
**** start-sanitize-chill ****
* ch-exp.y (yyreds, yytoks): Remap like other yy* names.
* ch-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined
and YYDEBUG is not already defined.
* ch-exp.y (GDB_REGNAME, GDB_LAST, GDB_VARIABLE, GDB_ASSIGNMENT,
single_assignment_action): New terminals and nonterminal for gdb
extensions to chill expression grammer.
* ch-exp.y (match_dollar_tokens): Lexer routine to match all
tokens that start with '$' (register names, convenience vars, etc).
* ch-exp.y (tokentab2): Add GDB_ASSIGNMENT.
* ch-exp.y (yylex): Call match_dollar_tokens.
**** end-sanitize-chill ****
1992-12-31 04:05:05 +00:00
|
|
|
|
"Evaluate expression EXP and assign result to variable VAR, using assignment\n\
|
|
|
|
|
syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
|
|
|
|
|
example). VAR may be a debugger \"convenience\" variable (names starting\n\
|
|
|
|
|
with $), a register (a few standard names starting with $), or an actual\n\
|
|
|
|
|
variable in the program being debugged. EXP is any valid expression.\n\
|
1991-03-28 16:26:26 +00:00
|
|
|
|
Use \"set variable\" for variables with names identical to set subcommands.\n\
|
|
|
|
|
\nWith a subcommand, this command modifies parts of the gdb environment.\n\
|
|
|
|
|
You can see these environment settings with the \"show\" command.",
|
|
|
|
|
&setlist, "set ", 1, &cmdlist);
|
|
|
|
|
|
|
|
|
|
/* "call" is the same as "set", but handy for dbx users to call fns. */
|
|
|
|
|
add_com ("call", class_vars, call_command,
|
|
|
|
|
"Call a function in the inferior process.\n\
|
1991-11-09 07:45:36 +00:00
|
|
|
|
The argument is the function name and arguments, in the notation of the\n\
|
|
|
|
|
current working language. The result is printed and saved in the value\n\
|
|
|
|
|
history, if it is not void.");
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
add_cmd ("variable", class_vars, set_command,
|
* c-exp.y, m2-exp.y (yyreds, yytoks): Remap like other yy* names.
* c-exp.y, m2-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined
and YYDEBUG is not already defined.
* c-exp.y (strncmp): Replace throughout with STREQN, missed
them during the previous replacements.
* printcmd.c (_initialize_printcmd): Update internal documentation
for "set" command to note that the assignment syntax is language
dependent.
**** start-sanitize-chill ****
* ch-exp.y (yyreds, yytoks): Remap like other yy* names.
* ch-exp.y (YYDEBUG): Define if MAINTENANCE_CMDS is defined
and YYDEBUG is not already defined.
* ch-exp.y (GDB_REGNAME, GDB_LAST, GDB_VARIABLE, GDB_ASSIGNMENT,
single_assignment_action): New terminals and nonterminal for gdb
extensions to chill expression grammer.
* ch-exp.y (match_dollar_tokens): Lexer routine to match all
tokens that start with '$' (register names, convenience vars, etc).
* ch-exp.y (tokentab2): Add GDB_ASSIGNMENT.
* ch-exp.y (yylex): Call match_dollar_tokens.
**** end-sanitize-chill ****
1992-12-31 04:05:05 +00:00
|
|
|
|
"Evaluate expression EXP and assign result to variable VAR, using assignment\n\
|
|
|
|
|
syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
|
|
|
|
|
example). VAR may be a debugger \"convenience\" variable (names starting\n\
|
|
|
|
|
with $), a register (a few standard names starting with $), or an actual\n\
|
|
|
|
|
variable in the program being debugged. EXP is any valid expression.\n\
|
1991-03-28 16:26:26 +00:00
|
|
|
|
This may usually be abbreviated to simply \"set\".",
|
|
|
|
|
&setlist);
|
|
|
|
|
|
|
|
|
|
add_com ("print", class_vars, print_command,
|
|
|
|
|
concat ("Print value of expression EXP.\n\
|
|
|
|
|
Variables accessible are those of the lexical environment of the selected\n\
|
|
|
|
|
stack frame, plus all those whose scope is global or an entire file.\n\
|
|
|
|
|
\n\
|
|
|
|
|
$NUM gets previous value number NUM. $ and $$ are the last two values.\n\
|
|
|
|
|
$$NUM refers to NUM'th value back from the last one.\n\
|
|
|
|
|
Names starting with $ refer to registers (with the values they would have\n\
|
|
|
|
|
if the program were to return to the stack frame now selected, restoring\n\
|
|
|
|
|
all registers saved by frames farther in) or else to debugger\n\
|
|
|
|
|
\"convenience\" variables (any such name not a known register).\n\
|
|
|
|
|
Use assignment expressions to give values to convenience variables.\n",
|
|
|
|
|
"\n\
|
|
|
|
|
{TYPE}ADREXP refers to a datum of data type TYPE, located at address ADREXP.\n\
|
|
|
|
|
@ is a binary operator for treating consecutive data objects\n\
|
|
|
|
|
anywhere in memory as an array. FOO@NUM gives an array whose first\n\
|
|
|
|
|
element is FOO, whose second element is stored in the space following\n\
|
|
|
|
|
where FOO is stored, etc. FOO must be an expression whose value\n\
|
|
|
|
|
resides in memory.\n",
|
|
|
|
|
"\n\
|
|
|
|
|
EXP may be preceded with /FMT, where FMT is a format letter\n\
|
* defs.h: Incorporate param.h. All users changed.
* param-no-tm.h: Change users to define TM_FILE_OVERRIDE instead.
* param.h, param-no-tm.h: Removed.
* Update copyrights in all changed files.
* dbxread.c, dwarfread.c, inflow.c, infrun.c, m2-exp.y, putenv.c,
solib.c, symtab.h, tm-umax.h, valprint.c: Lint.
* tm-convex.h, tm-hp300hpux.h, tm-merlin.h, tm-sparc.h,
xm-merlin.h: Avoid host include files in target descriptions.
* getpagesize.h: Removed, libiberty copes now.
1991-11-21 18:42:05 +00:00
|
|
|
|
but no count or size letter (see \"x\" command).", NULL));
|
1991-03-28 16:26:26 +00:00
|
|
|
|
add_com_alias ("p", "print", class_vars, 1);
|
|
|
|
|
|
|
|
|
|
add_com ("inspect", class_vars, inspect_command,
|
|
|
|
|
"Same as \"print\" command, except that if you are running in the epoch\n\
|
|
|
|
|
environment, the value is printed in its own window.");
|
1993-03-11 01:56:31 +00:00
|
|
|
|
|
|
|
|
|
add_show_from_set (
|
|
|
|
|
add_set_cmd ("max-symbolic-offset", no_class, var_uinteger,
|
|
|
|
|
(char *)&max_symbolic_offset,
|
|
|
|
|
"Set the largest offset that will be printed in <symbol+1234> form.",
|
|
|
|
|
&setprintlist),
|
|
|
|
|
&showprintlist);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|