1999-04-16 01:35:26 +00:00
|
|
|
|
/* Print values for GNU debugger GDB.
|
2000-07-11 08:51:59 +00:00
|
|
|
|
|
2002-01-17 22:15:18 +00:00
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
2004-02-19 22:43:03 +00:00
|
|
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software
|
2002-01-17 22:15:18 +00:00
|
|
|
|
Foundation, Inc.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "gdb_string.h"
|
|
|
|
|
#include "frame.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "gdbtypes.h"
|
|
|
|
|
#include "value.h"
|
|
|
|
|
#include "language.h"
|
|
|
|
|
#include "expression.h"
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "gdbcmd.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include "breakpoint.h"
|
|
|
|
|
#include "demangle.h"
|
|
|
|
|
#include "valprint.h"
|
|
|
|
|
#include "annotate.h"
|
1999-07-07 20:19:36 +00:00
|
|
|
|
#include "symfile.h" /* for overlay functions */
|
|
|
|
|
#include "objfiles.h" /* ditto */
|
* completer.c (gdb_completer_loc_break_characters): New variable.
(line_completion_function): If we are completing on locations,
back up the start of word pointer past all characters which can
appear in a location spec.
(location_completer): New function.
* completer.h: Add prototype for location_completer.
* symtab.c (make_source_files_completion_list)
(add_filename_to_list, not_interesting_fname): New functions.
(filename_seen): New function, body extracted from
output_source_filename.
(output_source_filename): Call filename_seen to check if the file
was already printed.
(make_symbol_completion_list): If TEXT includes a
double-quoted string, return an empty list, not NULL.
(make_file_symbol_completion_list): New function, similar to
make_symbol_completion_list but with an additional argument
SRCFILE.
* symtab.h (make_file_symbol_completion_list)
(make_source_files_completion_list): Add prototypes.
* breakpoint.c (_initialize_breakpoint): Make location_completer
be the completion function for all commands which set breakpoints
and watchpoints.
(top-level): #include "completer.h".
* tracepoint.c (_initialize_tracepoint): Make location_completer
be the completion function for the "trace" command.
(top-level): #include "completer.h".
* printcmd.c (_initialize_printcmd): Make location_completer be
the completion function for the "print", "inspect", "call", and
"disassemble" commands.
(top-level): #include "completer.h".
* infcmd.c (_initialize_infcmd): Make location_completer be the
completion function for the "go", "jump", and "until" commands.
(top-level): #include "completer.h".
2001-06-11 16:05:25 +00:00
|
|
|
|
#include "completer.h" /* for completion functions */
|
2000-02-03 04:14:45 +00:00
|
|
|
|
#include "ui-out.h"
|
2002-07-11 20:46:19 +00:00
|
|
|
|
#include "gdb_assert.h"
|
2003-02-19 David Carlton <carlton@math.stanford.edu>
* Makefile.in (SFILES): Add block.c.
(block_h): New.
(COMMON_OBS): Add block.o.
(block.o): New.
(x86-64-tdep.o): Add $(block_h).
(values.o, valops.o, tracepoint.o, symtab.o, symmisc.o, symfile.o)
(stack.o, printcmd.o, p-exp.tab.o, parse.o, objfiles.o)
(objc-exp.tab.o, objc-lang.o, nlmread.o, mips-tdep.o, mdebugread.o)
(m2-exp.tab.o, linespec.o, jv-lang.o, jv-exp.tab.o, infcmd.o)
(f-valprint.o, findvar.o, f-exp.tab.o, expprint.o, coffread.o)
(c-exp.tab.o, buildsym.o, breakpoint.o, blockframe.o, ax-gdb.o)
(alpha-tdep.o, ada-lang.o, ada-exp.tab.o, mi-cmd-stack.o): Ditto.
* value.h: Add opaque declaration for struct block.
* parser-defs.h, objc-lang.h, buildsym.h, breakpoint.h: Ditto.
* ada-lang.h: Ditto.
* x86-64-tdep.c: #include "block.h"
* values.c, valops.c, tracepoint.c, symtab.c, symmisc.c: Ditto.
* symfile.c, stack.c, printcmd.c, p-exp.y, parse.c: Ditto.
* objfiles.c, objc-exp.y, objc-lang.c, nlmread.c: Ditto.
* mips-tdep.c, mdebugread.c, m2-exp.y, linespec.c: Ditto.
* jv-lang.c, jv-exp.y, infcmd.c, f-valprint.c: Ditto.
* findvar.c, f-exp.y, expprint.c, coffread.c, c-exp.y: Ditto.
* buildsym.c, breakpoint.c, blockframe.c, ax-gdb.c: Ditto.
* alpha-tdep.c, ada-lang.c, ada-exp.y: Ditto.
* blockframe.c (blockvector_for_pc_sect): Move to "block.c".
(blockvector_for_pc, block_for_pc_sect, block_for_pc): Ditto.
* symtab.c (block_function): Ditto.
(contained_in): Ditto.
* frame.h: Move block_for_pc and block_for_pc_sect declarations to
block.h. Add opaque declaration for struct block.
* symtab.h: Move block_function and contained_in declarations to
block.h. Add opaque declarations for struct block, struct
blockvector.
(struct block): Move to block.h.
(struct blockvector): Ditto.
(BLOCK_START, BLOCK_END, BLOCK_FUNCTION, BLOCK_SUPERBLOCK)
(BLOCK_GCC_COMPILED, BLOCK_HASHTABLE, BLOCK_NSYMS, BLOCK_SYM)
(BLOCK_BUCKETS, BLOCK_BUCKET, BLOCK_HASHTABLE_SIZE)
(ALL_BLOCK_SYMBOLS, BLOCK_SHOULD_SORT, BLOCKVECTOR_NBLOCKS)
(BLOCKVECTOR_BLOCK, GLOBAL_BLOCK, STATIC_BLOCK, FIRST_LOCAL_BLOCK):
Ditto.
* block.c: New file.
* block.h: New file.
2003-02-19 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: #include "block.h"
2003-02-20 00:01:07 +00:00
|
|
|
|
#include "block.h"
|
2003-05-03 19:13:04 +00:00
|
|
|
|
#include "disasm.h"
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2004-02-10 Andrew Cagney <cagney@redhat.com>
* defs.h: Do not include "tui.h".
* gdb_curses.h: New file.
* tui/tui-hooks.h: New file.
* tui/tui.h (tui_update_all_exec_infos): Delete declaration.
(tui_install_hooks, tui_remove_hooks): Delete declarations.
(tui_initialize_io): Delete declaration.
(tui_initialize_readline: Delete redundant declaration.
(struct tui_point): Delete definition.
* tui/tui-data.h (struct tui_point): Define.
* cli/cli-decode.c [TUI]: Include "tui/tui.h".
* utils.c: Include "tui/tui.h".
* tui/tui-data.h: Include "tui/tui.h" and "gdb_curses.h".
* printcmd.c [TUI]: Include "tui/tui.h".
* cli/cli-cmds.c [TUI]: Include "tui/tui.h".
* tui/tui-command.c: Include "gdb_curses.h".
* tui/tui.c, tui/tui-winsource.c, tui/tui-wingeneral.c: Ditto.
* tui/tui-windata.c, tui/tui-win.c, tui/tui-stack.c: Ditto.
* tui/tui-source.c, tui/tui-regs.c, tui/tui-layout.c: Ditto.
* tui/tui-io.c, tui/tui-disasm.c, tui/tui-data.c: : Ditto.
* tui/tui-hooks.c: Include "tui-hooks.h" and "gdb_curses.h".
* Makefile.in: Update all dependencies.
(tui_hooks_h, gdb_curses_h): Define.
(SUBDIR_TUI_CFLAGS): Remove -I${srcdir}/tui.
2004-02-10 19:08:19 +00:00
|
|
|
|
#ifdef TUI
|
|
|
|
|
#include "tui/tui.h" /* For tui_active et.al. */
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
extern int asm_demangle; /* Whether to demangle syms in asm printouts */
|
|
|
|
|
extern int addressprint; /* Whether to print hex addresses in HLL " */
|
|
|
|
|
|
|
|
|
|
struct format_data
|
1999-07-07 20:19:36 +00:00
|
|
|
|
{
|
|
|
|
|
int count;
|
|
|
|
|
char format;
|
|
|
|
|
char size;
|
|
|
|
|
};
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* 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;
|
|
|
|
|
|
|
|
|
|
/* Default section to examine next. */
|
|
|
|
|
|
|
|
|
|
static asection *next_section;
|
|
|
|
|
|
|
|
|
|
/* 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! */
|
|
|
|
|
|
2001-11-10 21:34:56 +00:00
|
|
|
|
static struct value *last_examine_value;
|
1999-04-16 01:35:26 +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;
|
|
|
|
|
|
|
|
|
|
/* Append the source filename and linenumber of the symbol when
|
|
|
|
|
printing a symbolic value as `<symbol at filename:linenum>' if set. */
|
|
|
|
|
static int print_symbol_filename = 0;
|
|
|
|
|
|
|
|
|
|
/* Number of auto-display expression currently being displayed.
|
|
|
|
|
So that we can disable it if we get an error or a signal within it.
|
|
|
|
|
-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;
|
|
|
|
|
|
|
|
|
|
struct display
|
1999-07-07 20:19:36 +00:00
|
|
|
|
{
|
|
|
|
|
/* 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) */
|
2001-08-02 11:58:29 +00:00
|
|
|
|
int enabled_p;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
};
|
1999-04-16 01:35:26 +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 exported functions. */
|
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
void output_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
void _initialize_printcmd (void);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* Prototypes for local functions. */
|
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void delete_display (int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void enable_display (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void disable_display_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void printf_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void display_info (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void do_one_display (struct display *);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void undisplay_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void free_display (struct display *);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void display_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
void x_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void address_info (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void set_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void call_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void inspect_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void print_command (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void print_command_1 (char *, int, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void validate_format (struct format_data, char *);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void do_examine (struct format_data, CORE_ADDR addr,
|
|
|
|
|
asection * section);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2001-11-10 21:34:56 +00:00
|
|
|
|
static void print_formatted (struct value *, int, int, struct ui_file *);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static struct format_data decode_format (char **, int, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-05-28 01:12:42 +00:00
|
|
|
|
static void sym_info (char *, int);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35: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. */
|
|
|
|
|
|
|
|
|
|
static struct format_data
|
2000-07-30 01:48:28 +00:00
|
|
|
|
decode_format (char **string_ptr, int oformat, int osize)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct format_data val;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char *p = *string_ptr;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
val.format = '?';
|
|
|
|
|
val.size = '?';
|
|
|
|
|
val.count = 1;
|
|
|
|
|
|
|
|
|
|
if (*p >= '0' && *p <= '9')
|
|
|
|
|
val.count = atoi (p);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*p >= '0' && *p <= '9')
|
|
|
|
|
p++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* Now process size or format letters that follow. */
|
|
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g')
|
|
|
|
|
val.size = *p++;
|
|
|
|
|
else if (*p >= 'a' && *p <= 'z')
|
|
|
|
|
val.format = *p++;
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
*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':
|
|
|
|
|
/* Pick the appropriate size for an address. */
|
|
|
|
|
if (TARGET_PTR_BIT == 64)
|
|
|
|
|
val.size = osize ? 'g' : osize;
|
|
|
|
|
else if (TARGET_PTR_BIT == 32)
|
|
|
|
|
val.size = osize ? 'w' : osize;
|
|
|
|
|
else if (TARGET_PTR_BIT == 16)
|
|
|
|
|
val.size = osize ? 'h' : osize;
|
|
|
|
|
else
|
|
|
|
|
/* Bad value for TARGET_PTR_BIT */
|
2001-02-25 04:45:12 +00:00
|
|
|
|
internal_error (__FILE__, __LINE__, "failed internal consistency check");
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-05 23:13:56 +00:00
|
|
|
|
/* Print value VAL on stream according to FORMAT, a letter or 0.
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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
|
2003-09-16 Andrew Cagney <cagney@redhat.com>
* buildsym.c: Remove more occurances of "register".
* coffread.c, dbxread.c, dcache.c, dwarf2read.c: Ditto.
* environ.c, eval.c, f-valprint.c, findvar.c: Ditto.
* gdbtypes.c, gnu-v2-abi.c, h8300-tdep.c, hppa-tdep.c: Ditto.
* infcmd.c, mdebugread.c, minsyms.c, mips-tdep.c: Ditto.
* printcmd.c, remote-vx.c, sh-stub.c, sh-tdep.c: Ditto.
* sh64-tdep.c, source.c, stabsread.c, stack.c: Ditto.
* standalone.c, symfile.c, symmisc.c, symtab.c: Ditto.
* utils.c, valops.c, values.c, xcoffread.c: Ditto.
2003-09-16 18:56:35 +00:00
|
|
|
|
print_formatted (struct value *val, int format, int size,
|
2000-07-30 01:48:28 +00:00
|
|
|
|
struct ui_file *stream)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct type *type = check_typedef (VALUE_TYPE (val));
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
|
|
|
|
|
if (VALUE_LVAL (val) == lval_memory)
|
|
|
|
|
{
|
|
|
|
|
next_address = VALUE_ADDRESS (val) + len;
|
|
|
|
|
next_section = VALUE_BFD_SECTION (val);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 's':
|
|
|
|
|
/* FIXME: Need to handle wchar_t's here... */
|
|
|
|
|
next_address = VALUE_ADDRESS (val)
|
1999-10-05 23:13:56 +00:00
|
|
|
|
+ val_print_string (VALUE_ADDRESS (val), -1, 1, stream);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
next_section = VALUE_BFD_SECTION (val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'i':
|
|
|
|
|
/* The old comment says
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Force output out, print_insn not using _filtered".
|
|
|
|
|
I'm not completely sure what that means, I suspect most print_insn
|
|
|
|
|
now do use _filtered, so I guess it's obsolete.
|
|
|
|
|
--Yes, it does filter now, and so this is obsolete. -JB */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* We often wrap here if there are long symbolic names. */
|
|
|
|
|
wrap_here (" ");
|
|
|
|
|
next_address = VALUE_ADDRESS (val)
|
2003-05-03 19:13:04 +00:00
|
|
|
|
+ gdb_print_insn (VALUE_ADDRESS (val), stream);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
next_section = VALUE_BFD_SECTION (val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
if (format == 0
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_ARRAY
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_STRING
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_STRUCT
|
2003-09-11 David Carlton <carlton@kealia.com>
* gdbtypes.h: Add TYPE_CODE_NAMESPACE.
* gdbtypes.c (init_type): Handle TYPE_CODE_NAMESPACE.
(recursive_dump_type): Ditto.
* printcmd.c (print_formatted): Ditto.
* typeprint.c (print_type_scalar): Ditto.
* c-typeprint.c (c_type_print_varspec_prefix): Ditto.
(c_type_print_varspec_suffix, c_type_print_base): Ditto.
* cp-support.h: Declare cp_check_possible_namespace_symbols,
maint_cplus_cmd_list.
* cp-support.c: Make maint_cplus_cmd_list extern.
* cp-namespace.c: Include objfiles.h, gdbtypes.h, dictionary.h,
command.h.
(lookup_symbol_file): Look in possible namespace blocks when
appropriate.
(initialize_namespace_symtab): New.
(get_possible_namespace_block, free_namespace_block)
(check_possible_namespace_symbols)
(check_possible_namespace_symbols_loop)
(check_one_possible_namespace_symbol)
(lookup_possible_namespace_symbol, maintenance_cplus_namespace)
(_initialize_cp_namespace): Ditto.
* block.h: Declare allocate_block.
* block.c (allocate_block): New.
* jv-lang.c (get_java_class_symtab): Allocate blocks via
allocate_block.
* symfile.h: Update declaration of add_psymbol_to_list.
* symfile.c (add_psymbol_to_list): Return the partial symbol in
question.
* dwarf2read.c (dwarf2_build_psymtabs_hard): Add argument to
scan_partial_symbols_call.
(scan_partial_symbols): Add NAMESPACE argument; update calls to
helper functions.
(add_partial_symbol): If necessary, scan mangled names for names
of namespaces.
(add_partial_namespace): Add NAMESPACE argument; generate partial
symbols associated to namespaces.
(add_partial_enumeration): Add NAMESPACE argument.
(new_symbol): Allow namespace syms.
(read_namespace): Generate namespace syms.
* objfiles.h: Add opaque declaration of struct symtab.
(struct objfile): Add cp_namespace_symtab member.
* objfiles.c (allocate_objfile): Set
objfile->cp_namespace_symtab.
* Makefile.in (cp-namespace.o): Depend on objfiles_h, gdbtypes_h,
dictionary_h, command_h.
2003-09-11 David Carlton <carlton@kealia.com>
* gdb.c++/namespace.exp: Add tests for namespace types.
* gdb.c++/maint.exp (test_help): Test 'help maint cp namespace'.
(test_namespace): New.
2003-09-11 19:49:20 +00:00
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_UNION
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_NAMESPACE)
|
1999-07-07 20:19:36 +00:00
|
|
|
|
/* If format is 0, use the 'natural' format for
|
|
|
|
|
* that type of value. If the type is non-scalar,
|
|
|
|
|
* we have to use language rules to print it as
|
|
|
|
|
* a series of scalars.
|
|
|
|
|
*/
|
1999-10-05 23:13:56 +00:00
|
|
|
|
value_print (val, stream, format, Val_pretty_default);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
1999-07-07 20:19:36 +00:00
|
|
|
|
/* User specified format, so don't look to the
|
|
|
|
|
* the type to tell us what to do.
|
|
|
|
|
*/
|
1999-04-16 01:35:26 +00:00
|
|
|
|
print_scalar_formatted (VALUE_CONTENTS (val), type,
|
1999-10-05 23:13:56 +00:00
|
|
|
|
format, size, stream);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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
|
2003-03-18 22:03:29 +00:00
|
|
|
|
print_scalar_formatted (void *valaddr, struct type *type, int format, int size,
|
2000-07-30 01:48:28 +00:00
|
|
|
|
struct ui_file *stream)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2004-02-23 19:41:47 +00:00
|
|
|
|
LONGEST val_long = 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
unsigned int len = TYPE_LENGTH (type);
|
|
|
|
|
|
2004-02-27 00:01:14 +00:00
|
|
|
|
if (len > sizeof(LONGEST) &&
|
|
|
|
|
(TYPE_CODE (type) == TYPE_CODE_INT
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_ENUM))
|
|
|
|
|
{
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 'o':
|
|
|
|
|
print_octal_chars (stream, valaddr, len);
|
|
|
|
|
return;
|
|
|
|
|
case 'u':
|
|
|
|
|
case 'd':
|
|
|
|
|
print_decimal_chars (stream, valaddr, len);
|
|
|
|
|
return;
|
|
|
|
|
case 't':
|
|
|
|
|
print_binary_chars (stream, valaddr, len);
|
|
|
|
|
return;
|
|
|
|
|
case 'x':
|
|
|
|
|
print_hex_chars (stream, valaddr, len);
|
|
|
|
|
return;
|
|
|
|
|
case 'c':
|
|
|
|
|
print_char_chars (stream, valaddr, len);
|
|
|
|
|
return;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
};
|
|
|
|
|
}
|
|
|
|
|
|
2004-02-19 22:43:03 +00:00
|
|
|
|
if (format != 'f')
|
1999-04-16 01:35:26 +00:00
|
|
|
|
val_long = unpack_long (type, valaddr);
|
|
|
|
|
|
2001-07-10 21:17:49 +00:00
|
|
|
|
/* If the value is a pointer, and pointers and addresses are not the
|
2002-09-10 02:04:38 +00:00
|
|
|
|
same, then at this point, the value's length (in target bytes) is
|
|
|
|
|
TARGET_ADDR_BIT/TARGET_CHAR_BIT, not TYPE_LENGTH (type). */
|
2001-07-10 21:17:49 +00:00
|
|
|
|
if (TYPE_CODE (type) == TYPE_CODE_PTR)
|
2002-09-10 02:04:38 +00:00
|
|
|
|
len = TARGET_ADDR_BIT / TARGET_CHAR_BIT;
|
2001-07-10 21:17:49 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* If we are printing it as unsigned, truncate it in case it is actually
|
|
|
|
|
a negative signed value (e.g. "print/u (short)-1" should print 65535
|
|
|
|
|
(if shorts are 16 bits) instead of 4294967295). */
|
|
|
|
|
if (format != 'd')
|
|
|
|
|
{
|
|
|
|
|
if (len < sizeof (LONGEST))
|
|
|
|
|
val_long &= ((LONGEST) 1 << HOST_CHAR_BIT * len) - 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch (format)
|
|
|
|
|
{
|
|
|
|
|
case 'x':
|
|
|
|
|
if (!size)
|
|
|
|
|
{
|
|
|
|
|
/* no size specified, like in print. Print varying # of digits. */
|
|
|
|
|
print_longest (stream, 'x', 1, val_long);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
switch (size)
|
|
|
|
|
{
|
|
|
|
|
case 'b':
|
|
|
|
|
case 'h':
|
|
|
|
|
case 'w':
|
|
|
|
|
case 'g':
|
|
|
|
|
print_longest (stream, size, 1, val_long);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output size \"%c\".", size);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'd':
|
|
|
|
|
print_longest (stream, 'd', 1, val_long);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'u':
|
|
|
|
|
print_longest (stream, 'u', 0, val_long);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'o':
|
|
|
|
|
if (val_long)
|
|
|
|
|
print_longest (stream, 'o', 1, val_long);
|
|
|
|
|
else
|
|
|
|
|
fprintf_filtered (stream, "0");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'a':
|
2000-03-22 20:55:15 +00:00
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr = unpack_pointer (type, valaddr);
|
|
|
|
|
print_address (addr, stream);
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'c':
|
1999-06-21 13:27:42 +00:00
|
|
|
|
value_print (value_from_longest (builtin_type_true_char, val_long),
|
|
|
|
|
stream, 0, Val_pretty_default);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'f':
|
2001-12-07 21:07:59 +00:00
|
|
|
|
if (len == TYPE_LENGTH (builtin_type_float))
|
2001-09-12 04:18:08 +00:00
|
|
|
|
type = builtin_type_float;
|
2001-12-07 21:07:59 +00:00
|
|
|
|
else if (len == TYPE_LENGTH (builtin_type_double))
|
2001-09-12 04:18:08 +00:00
|
|
|
|
type = builtin_type_double;
|
2001-12-07 21:07:59 +00:00
|
|
|
|
else if (len == TYPE_LENGTH (builtin_type_long_double))
|
|
|
|
|
type = builtin_type_long_double;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
print_floating (valaddr, type, stream);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 0:
|
2001-02-25 04:45:12 +00:00
|
|
|
|
internal_error (__FILE__, __LINE__, "failed internal consistency check");
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
/* Binary; 't' stands for "two". */
|
|
|
|
|
{
|
1999-07-07 20:19:36 +00:00
|
|
|
|
char bits[8 * (sizeof val_long) + 1];
|
|
|
|
|
char buf[8 * (sizeof val_long) + 32];
|
1999-04-16 01:35:26 +00:00
|
|
|
|
char *cp = bits;
|
|
|
|
|
int width;
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (!size)
|
|
|
|
|
width = 8 * (sizeof val_long);
|
|
|
|
|
else
|
|
|
|
|
switch (size)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
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);
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
bits[width] = '\0';
|
|
|
|
|
while (width-- > 0)
|
|
|
|
|
{
|
|
|
|
|
bits[width] = (val_long & 1) ? '1' : '0';
|
|
|
|
|
val_long >>= 1;
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (!size)
|
|
|
|
|
{
|
|
|
|
|
while (*cp && *cp == '0')
|
|
|
|
|
cp++;
|
|
|
|
|
if (*cp == '\0')
|
|
|
|
|
cp--;
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
strcpy (buf, local_binary_format_prefix ());
|
1999-04-16 01:35:26 +00:00
|
|
|
|
strcat (buf, cp);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
strcat (buf, local_binary_format_suffix ());
|
2003-08-04 David Carlton <carlton@kealia.com>
* charset.c (cached_iconv_convert): Add __FILE__ and __LINE__ args
to internal_error call.
* source.c (forward_search_command): Add "%s" format argument.
(reverse_search_command): Ditto.
* top.c (quit_confirm): Ditto.
* cli/cli-setshow.c (do_setshow_command): Ditto.
* cp-valprint.c (cp_print_class_method): Replace
{f,}printf_{un,}filtered by {f,}puts_{un,}filtered.
(cp_print_class_member): Ditto.
* event-top.c (command_line_handler): Ditto.
* linux-proc.c (linux_info_proc_cmd): Ditto.
* p-typeprint.c (pascal_type_print_base): Ditto.
* p-valprint.c (pascal_object_print_class_method): Ditto.
(pascal_object_print_class_member): Ditto.
* printcmd.c (print_scalar_formatted,printf_command): Ditto.
* remote.c (remote_cisco_section_offsets): Ditto.
* top.c (command_line_input): Ditto.
* utils.c (vwarning,error_stream,quit): Ditto.
* valprint.c (print_floating,print_binary_chars)
(print_octal_chars,print_decimal_chars,print_hex_chars): Ditto.
2003-08-04 David Carlton <carlton@kealia.com>
* mi-main.c (mi_error_last_message): Add "%s" second argument to
xasprintf call.
2003-08-04 David Carlton <carlton@kealia.com>
* generic/gdbtk.c (gdbtk_source_start_file): Add "%s" first
argument to error call.
(tk_command): Ditto.
(view_command): Ditto.
2003-08-04 17:08:24 +00:00
|
|
|
|
fputs_filtered (buf, stream);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
error ("Undefined output format \"%c\".", format);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Specify default address for `x' command.
|
|
|
|
|
`info lines' uses this. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
set_next_address (CORE_ADDR addr)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
next_address = addr;
|
|
|
|
|
|
|
|
|
|
/* Make address available to the user as $_. */
|
|
|
|
|
set_internalvar (lookup_internalvar ("_"),
|
* gdbarch.sh (POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Two new
functions which architectures can redefine, defaulting to
generic_pointer_to_address and generic_address_to_pointer.
* findvar.c (extract_typed_address, store_typed_address,
generic_pointer_to_address, generic_address_to_pointer): New
functions.
(POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Provide default
definitions.
(extract_address, store_address): Doc fixes.
* values.c (value_as_pointer): Doc fix.
(value_from_pointer): New function.
* defs.h (extract_typed_address, store_typed_address): New
declarations.
* inferior.h (generic_address_to_pointer,
generic_pointer_to_address): New declarations.
* value.h (value_from_pointer): New declaration.
* ax-gdb.c (const_var_ref): Use value_from_pointer, not
value_from_longest.
* blockframe.c (generic_push_dummy_frame): Use read_pc and
read_sp, not read_register.
* c-valprint.c (c_val_print): Use extract_typed_address instead of
extract_address to extract vtable entries and references.
* cp-valprint.c (cp_print_value_fields): Use value_from_pointer
instead of value_from_longest to extract the vtable's address.
* eval.c (evaluate_subexp_standard): Use value_from_pointer
instead of value_from_longest to compute `this', and for doing
pointer-to-member dereferencing.
* findvar.c (read_register): Use extract_unsigned_integer, not
extract_address.
(read_var_value): Use store_typed_address instead of store_address
for building label values.
(locate_var_value): Use value_from_pointer instead of
value_from_longest.
* hppa-tdep.c (find_stub_with_shl_get): Use value_from_pointer,
instead of value_from_longest, to build arguments to __d_shl_get.
* printcmd.c (set_next_address): Use value_from_pointer, not
value_from_longest.
(x_command): Use value_from_pointer, not value_from_longest.
* tracepoint.c (set_traceframe_context): Use value_from_pointer,
not value_from_longest.
* valarith.c (value_add, value_sub): Use value_from_pointer, not
value_from_longest.
* valops.c (find_function_in_inferior, value_coerce_array,
value_coerce_function, value_addr, hand_function_call): Same.
* value.h (COERCE_REF): Use unpack_pointer, not unpack_long.
* values.c (unpack_long): Use extract_typed_address to produce
addresses from pointers and references, not extract_address.
(value_from_longest): Use store_typed_address instead of
store_address to produce pointer and reference values.
2000-04-14 18:43:41 +00:00
|
|
|
|
value_from_pointer (lookup_pointer_type (builtin_type_void),
|
|
|
|
|
addr));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Optionally print address ADDR symbolically as <SYMBOL+OFFSET> on STREAM,
|
|
|
|
|
after LEADIN. Print nothing if no symbolic name is found nearby.
|
|
|
|
|
Optionally also print source file and line number, if available.
|
|
|
|
|
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
|
|
|
|
|
form. However note that DO_DEMANGLE can be overridden by the specific
|
|
|
|
|
settings of the demangle and asm_demangle variables. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_address_symbolic (CORE_ADDR addr, struct ui_file *stream, int do_demangle,
|
|
|
|
|
char *leadin)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
{
|
|
|
|
|
char *name = NULL;
|
|
|
|
|
char *filename = NULL;
|
|
|
|
|
int unmapped = 0;
|
|
|
|
|
int offset = 0;
|
|
|
|
|
int line = 0;
|
|
|
|
|
|
2000-04-21 04:10:18 +00:00
|
|
|
|
/* throw away both name and filename */
|
|
|
|
|
struct cleanup *cleanup_chain = make_cleanup (free_current_contents, &name);
|
|
|
|
|
make_cleanup (free_current_contents, &filename);
|
2000-02-05 07:30:26 +00:00
|
|
|
|
|
|
|
|
|
if (build_address_symbolic (addr, do_demangle, &name, &offset, &filename, &line, &unmapped))
|
2000-04-21 04:10:18 +00:00
|
|
|
|
{
|
|
|
|
|
do_cleanups (cleanup_chain);
|
|
|
|
|
return;
|
|
|
|
|
}
|
2000-02-05 07:30:26 +00:00
|
|
|
|
|
|
|
|
|
fputs_filtered (leadin, stream);
|
|
|
|
|
if (unmapped)
|
|
|
|
|
fputs_filtered ("<*", stream);
|
|
|
|
|
else
|
|
|
|
|
fputs_filtered ("<", stream);
|
|
|
|
|
fputs_filtered (name, stream);
|
|
|
|
|
if (offset != 0)
|
|
|
|
|
fprintf_filtered (stream, "+%u", (unsigned int) offset);
|
|
|
|
|
|
|
|
|
|
/* Append source filename and line number if desired. Give specific
|
|
|
|
|
line # of this addr, if we have it; else line # of the nearest symbol. */
|
|
|
|
|
if (print_symbol_filename && filename != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (line != -1)
|
|
|
|
|
fprintf_filtered (stream, " at %s:%d", filename, line);
|
|
|
|
|
else
|
|
|
|
|
fprintf_filtered (stream, " in %s", filename);
|
|
|
|
|
}
|
|
|
|
|
if (unmapped)
|
|
|
|
|
fputs_filtered ("*>", stream);
|
|
|
|
|
else
|
|
|
|
|
fputs_filtered (">", stream);
|
|
|
|
|
|
|
|
|
|
do_cleanups (cleanup_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given an address ADDR return all the elements needed to print the
|
|
|
|
|
address in a symbolic form. NAME can be mangled or not depending
|
|
|
|
|
on DO_DEMANGLE (and also on the asm_demangle global variable,
|
|
|
|
|
manipulated via ''set print asm-demangle''). Return 0 in case of
|
|
|
|
|
success, when all the info in the OUT paramters is valid. Return 1
|
|
|
|
|
otherwise. */
|
|
|
|
|
int
|
|
|
|
|
build_address_symbolic (CORE_ADDR addr, /* IN */
|
|
|
|
|
int do_demangle, /* IN */
|
|
|
|
|
char **name, /* OUT */
|
|
|
|
|
int *offset, /* OUT */
|
|
|
|
|
char **filename, /* OUT */
|
|
|
|
|
int *line, /* OUT */
|
|
|
|
|
int *unmapped) /* OUT */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msymbol;
|
|
|
|
|
struct symbol *symbol;
|
|
|
|
|
struct symtab *symtab = 0;
|
|
|
|
|
CORE_ADDR name_location = 0;
|
|
|
|
|
asection *section = 0;
|
2000-02-05 07:30:26 +00:00
|
|
|
|
char *name_temp = "";
|
|
|
|
|
|
|
|
|
|
/* Let's say it is unmapped. */
|
|
|
|
|
*unmapped = 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-02-05 07:30:26 +00:00
|
|
|
|
/* Determine if the address is in an overlay, and whether it is
|
|
|
|
|
mapped. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (overlay_debugging)
|
|
|
|
|
{
|
|
|
|
|
section = find_pc_overlay (addr);
|
|
|
|
|
if (pc_in_unmapped_range (addr, section))
|
|
|
|
|
{
|
2000-02-05 07:30:26 +00:00
|
|
|
|
*unmapped = 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
addr = overlay_mapped_address (addr, section);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* First try to find the address in the symbol table, then
|
|
|
|
|
in the minsyms. Take the closest one. */
|
|
|
|
|
|
|
|
|
|
/* This is defective in the sense that it only finds text symbols. So
|
|
|
|
|
really this is kind of pointless--we should make sure that the
|
|
|
|
|
minimal symbols have everything we need (by changing that we could
|
|
|
|
|
save some memory, but for many debug format--ELF/DWARF or
|
|
|
|
|
anything/stabs--it would be inconvenient to eliminate those minimal
|
|
|
|
|
symbols anyway). */
|
|
|
|
|
msymbol = lookup_minimal_symbol_by_pc_section (addr, section);
|
|
|
|
|
symbol = find_pc_sect_function (addr, section);
|
|
|
|
|
|
|
|
|
|
if (symbol)
|
|
|
|
|
{
|
|
|
|
|
name_location = BLOCK_START (SYMBOL_BLOCK_VALUE (symbol));
|
2003-02-04 21:37:03 +00:00
|
|
|
|
if (do_demangle || asm_demangle)
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 17:17:25 +00:00
|
|
|
|
name_temp = SYMBOL_PRINT_NAME (symbol);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 21:36:23 +00:00
|
|
|
|
name_temp = DEPRECATED_SYMBOL_NAME (symbol);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (msymbol != NULL)
|
|
|
|
|
{
|
|
|
|
|
if (SYMBOL_VALUE_ADDRESS (msymbol) > name_location || symbol == NULL)
|
|
|
|
|
{
|
|
|
|
|
/* The msymbol is closer to the address than the symbol;
|
|
|
|
|
use the msymbol instead. */
|
|
|
|
|
symbol = 0;
|
|
|
|
|
symtab = 0;
|
|
|
|
|
name_location = SYMBOL_VALUE_ADDRESS (msymbol);
|
2003-02-04 21:37:03 +00:00
|
|
|
|
if (do_demangle || asm_demangle)
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 17:17:25 +00:00
|
|
|
|
name_temp = SYMBOL_PRINT_NAME (msymbol);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 21:36:23 +00:00
|
|
|
|
name_temp = DEPRECATED_SYMBOL_NAME (msymbol);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (symbol == NULL && msymbol == NULL)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
return 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* If the nearest symbol is too far away, don't print anything symbolic. */
|
|
|
|
|
|
|
|
|
|
/* 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)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
return 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2000-02-05 07:30:26 +00:00
|
|
|
|
*offset = addr - name_location;
|
|
|
|
|
|
|
|
|
|
*name = xstrdup (name_temp);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (print_symbol_filename)
|
|
|
|
|
{
|
|
|
|
|
struct symtab_and_line sal;
|
|
|
|
|
|
|
|
|
|
sal = find_pc_sect_line (addr, section, 0);
|
|
|
|
|
|
|
|
|
|
if (sal.symtab)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
{
|
|
|
|
|
*filename = xstrdup (sal.symtab->filename);
|
|
|
|
|
*line = sal.line;
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else if (symtab && symbol && symbol->line)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
{
|
|
|
|
|
*filename = xstrdup (symtab->filename);
|
|
|
|
|
*line = symbol->line;
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else if (symtab)
|
2000-02-05 07:30:26 +00:00
|
|
|
|
{
|
|
|
|
|
*filename = xstrdup (symtab->filename);
|
|
|
|
|
*line = -1;
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
2000-02-05 07:30:26 +00:00
|
|
|
|
return 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print address ADDR on STREAM. USE_LOCAL means the same thing as for
|
|
|
|
|
print_longest. */
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_address_numeric (CORE_ADDR addr, int use_local, struct ui_file *stream)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2001-03-01 03:56:45 +00:00
|
|
|
|
/* Truncate address to the size of a target address, avoiding shifts
|
2000-07-11 08:51:59 +00:00
|
|
|
|
larger or equal than the width of a CORE_ADDR. The local
|
2001-03-01 03:56:45 +00:00
|
|
|
|
variable ADDR_BIT stops the compiler reporting a shift overflow
|
|
|
|
|
when it won't occur. */
|
2000-07-11 08:51:59 +00:00
|
|
|
|
/* NOTE: This assumes that the significant address information is
|
|
|
|
|
kept in the least significant bits of ADDR - the upper bits were
|
|
|
|
|
either zero or sign extended. Should ADDRESS_TO_POINTER() or
|
|
|
|
|
some ADDRESS_TO_PRINTABLE() be used to do the conversion? */
|
2001-03-01 03:56:45 +00:00
|
|
|
|
|
2000-08-25 20:51:19 +00:00
|
|
|
|
int addr_bit = TARGET_ADDR_BIT;
|
2001-03-01 03:56:45 +00:00
|
|
|
|
|
2000-08-25 20:51:19 +00:00
|
|
|
|
if (addr_bit < (sizeof (CORE_ADDR) * HOST_CHAR_BIT))
|
|
|
|
|
addr &= ((CORE_ADDR) 1 << addr_bit) - 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
print_longest (stream, 'x', use_local, (ULONGEST) addr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print address ADDR symbolically on STREAM.
|
|
|
|
|
First print it as a number. Then perhaps print
|
|
|
|
|
<SYMBOL + OFFSET> after the number. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_address (CORE_ADDR addr, struct ui_file *stream)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
print_address_numeric (addr, 1, stream);
|
|
|
|
|
print_address_symbolic (addr, stream, asm_demangle, " ");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print address ADDR symbolically on STREAM. Parameter DEMANGLE
|
|
|
|
|
controls whether to print the symbolic name "raw" or demangled.
|
|
|
|
|
Global setting "addressprint" controls whether to print hex address
|
|
|
|
|
or not. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_address_demangle (CORE_ADDR addr, struct ui_file *stream, int do_demangle)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (addr == 0)
|
|
|
|
|
{
|
|
|
|
|
fprintf_filtered (stream, "0");
|
|
|
|
|
}
|
|
|
|
|
else if (addressprint)
|
|
|
|
|
{
|
|
|
|
|
print_address_numeric (addr, 1, stream);
|
|
|
|
|
print_address_symbolic (addr, stream, do_demangle, " ");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
print_address_symbolic (addr, stream, do_demangle, "");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* These are the types that $__ will get after an examine command of one
|
|
|
|
|
of these sizes. */
|
|
|
|
|
|
|
|
|
|
static struct type *examine_i_type;
|
|
|
|
|
|
|
|
|
|
static struct type *examine_b_type;
|
|
|
|
|
static struct type *examine_h_type;
|
|
|
|
|
static struct type *examine_w_type;
|
|
|
|
|
static struct type *examine_g_type;
|
|
|
|
|
|
|
|
|
|
/* Examine data at address ADDR in format FMT.
|
|
|
|
|
Fetch it from memory and print on gdb_stdout. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
do_examine (struct format_data fmt, CORE_ADDR addr, asection *sect)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char format = 0;
|
|
|
|
|
char size;
|
|
|
|
|
int count = 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
struct type *val_type = NULL;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
int i;
|
|
|
|
|
int maxelts;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
format = fmt.format;
|
|
|
|
|
size = fmt.size;
|
|
|
|
|
count = fmt.count;
|
|
|
|
|
next_address = addr;
|
|
|
|
|
next_section = sect;
|
|
|
|
|
|
|
|
|
|
/* String or instruction format implies fetch single bytes
|
|
|
|
|
regardless of the specified size. */
|
|
|
|
|
if (format == 's' || format == 'i')
|
|
|
|
|
size = 'b';
|
|
|
|
|
|
|
|
|
|
if (format == 'i')
|
|
|
|
|
val_type = examine_i_type;
|
|
|
|
|
else if (size == 'b')
|
|
|
|
|
val_type = examine_b_type;
|
|
|
|
|
else if (size == 'h')
|
|
|
|
|
val_type = examine_h_type;
|
|
|
|
|
else if (size == 'w')
|
|
|
|
|
val_type = examine_w_type;
|
|
|
|
|
else if (size == 'g')
|
|
|
|
|
val_type = examine_g_type;
|
|
|
|
|
|
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
QUIT;
|
|
|
|
|
print_address (next_address, gdb_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;
|
|
|
|
|
|
|
|
|
|
if (last_examine_value)
|
|
|
|
|
value_free (last_examine_value);
|
|
|
|
|
|
|
|
|
|
/* The value to be displayed is not fetched greedily.
|
1999-07-07 20:19:36 +00:00
|
|
|
|
Instead, to avoid the posibility of a fetched value not
|
|
|
|
|
being used, its retreval is delayed until the print code
|
|
|
|
|
uses it. When examining an instruction stream, the
|
|
|
|
|
disassembler will perform its own memory fetch using just
|
|
|
|
|
the address stored in LAST_EXAMINE_VALUE. FIXME: Should
|
|
|
|
|
the disassembler be modified so that LAST_EXAMINE_VALUE
|
|
|
|
|
is left with the byte sequence from the last complete
|
|
|
|
|
instruction fetched from memory? */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
last_examine_value = value_at_lazy (val_type, next_address, sect);
|
|
|
|
|
|
|
|
|
|
if (last_examine_value)
|
|
|
|
|
release_value (last_examine_value);
|
|
|
|
|
|
1999-10-05 23:13:56 +00:00
|
|
|
|
print_formatted (last_examine_value, format, size, gdb_stdout);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
validate_format (struct format_data fmt, char *cmdname)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
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);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Evaluate string EXP as an expression in the current language and
|
1999-07-07 20:19:36 +00:00
|
|
|
|
print the resulting value. EXP may contain a format specifier as the
|
|
|
|
|
first argument ("/x myvar" for example, to print myvar in hex).
|
|
|
|
|
*/
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_command_1 (char *exp, int inspect, int voidprint)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct cleanup *old_chain = 0;
|
|
|
|
|
char format = 0;
|
2001-11-10 21:34:56 +00:00
|
|
|
|
struct value *val;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
struct type *type;
|
|
|
|
|
expr = parse_expression (exp);
|
2000-04-26 12:41:48 +00:00
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
cleanup = 1;
|
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
val = access_value_history (0);
|
|
|
|
|
|
|
|
|
|
if (voidprint || (val && VALUE_TYPE (val) &&
|
1999-07-07 20:19:36 +00:00
|
|
|
|
TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_VOID))
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
int histindex = record_latest_value (val);
|
|
|
|
|
|
|
|
|
|
if (histindex >= 0)
|
|
|
|
|
annotate_value_history_begin (histindex, VALUE_TYPE (val));
|
|
|
|
|
else
|
|
|
|
|
annotate_value_begin (VALUE_TYPE (val));
|
|
|
|
|
|
|
|
|
|
if (inspect)
|
|
|
|
|
printf_unfiltered ("\031(gdb-makebuffer \"%s\" %d '(\"", exp, histindex);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
else if (histindex >= 0)
|
|
|
|
|
printf_filtered ("$%d = ", histindex);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (histindex >= 0)
|
|
|
|
|
annotate_value_history_value ();
|
|
|
|
|
|
1999-10-05 23:13:56 +00:00
|
|
|
|
print_formatted (val, format, fmt.size, gdb_stdout);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
|
|
|
|
|
if (histindex >= 0)
|
|
|
|
|
annotate_value_history_end ();
|
|
|
|
|
else
|
|
|
|
|
annotate_value_end ();
|
|
|
|
|
|
|
|
|
|
if (inspect)
|
1999-07-07 20:19:36 +00:00
|
|
|
|
printf_unfiltered ("\") )\030");
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (cleanup)
|
|
|
|
|
do_cleanups (old_chain);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
inspect_it = 0; /* Reset print routines to normal */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
print_command_1 (exp, 0, 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as print, except in epoch, it gets its own window */
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
inspect_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
extern int epoch_interface;
|
|
|
|
|
|
|
|
|
|
print_command_1 (exp, epoch_interface, 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Same as print, except it doesn't print void results. */
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
call_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
print_command_1 (exp, 0, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
output_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct expression *expr;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
char format = 0;
|
2001-11-10 21:34:56 +00:00
|
|
|
|
struct value *val;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
struct format_data fmt;
|
|
|
|
|
|
|
|
|
|
if (exp && *exp == '/')
|
|
|
|
|
{
|
|
|
|
|
exp++;
|
|
|
|
|
fmt = decode_format (&exp, 0, 0);
|
|
|
|
|
validate_format (fmt, "output");
|
|
|
|
|
format = fmt.format;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
expr = parse_expression (exp);
|
2000-04-26 12:41:48 +00:00
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
|
|
|
|
|
annotate_value_begin (VALUE_TYPE (val));
|
|
|
|
|
|
1999-10-05 23:13:56 +00:00
|
|
|
|
print_formatted (val, format, fmt.size, gdb_stdout);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
annotate_value_end ();
|
|
|
|
|
|
1999-10-05 23:13:56 +00:00
|
|
|
|
wrap_here ("");
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
set_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct expression *expr = parse_expression (exp);
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct cleanup *old_chain =
|
2000-04-26 12:41:48 +00:00
|
|
|
|
make_cleanup (free_current_contents, &expr);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
evaluate_expression (expr);
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
sym_info (char *arg, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msymbol;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
struct objfile *objfile;
|
|
|
|
|
struct obj_section *osect;
|
|
|
|
|
asection *sect;
|
|
|
|
|
CORE_ADDR addr, sect_addr;
|
|
|
|
|
int matches = 0;
|
|
|
|
|
unsigned int offset;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (!arg)
|
|
|
|
|
error_no_arg ("address");
|
|
|
|
|
|
|
|
|
|
addr = parse_and_eval_address (arg);
|
|
|
|
|
ALL_OBJSECTIONS (objfile, osect)
|
1999-07-07 20:19:36 +00:00
|
|
|
|
{
|
|
|
|
|
sect = osect->the_bfd_section;
|
|
|
|
|
sect_addr = overlay_mapped_address (addr, sect);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (osect->addr <= sect_addr && sect_addr < osect->endaddr &&
|
|
|
|
|
(msymbol = lookup_minimal_symbol_by_pc_section (sect_addr, sect)))
|
|
|
|
|
{
|
|
|
|
|
matches = 1;
|
|
|
|
|
offset = sect_addr - SYMBOL_VALUE_ADDRESS (msymbol);
|
|
|
|
|
if (offset)
|
|
|
|
|
printf_filtered ("%s + %u in ",
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 17:17:25 +00:00
|
|
|
|
SYMBOL_PRINT_NAME (msymbol), offset);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
else
|
|
|
|
|
printf_filtered ("%s in ",
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 17:17:25 +00:00
|
|
|
|
SYMBOL_PRINT_NAME (msymbol));
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (pc_in_unmapped_range (addr, sect))
|
|
|
|
|
printf_filtered ("load address range of ");
|
|
|
|
|
if (section_is_overlay (sect))
|
|
|
|
|
printf_filtered ("%s overlay ",
|
|
|
|
|
section_is_mapped (sect) ? "mapped" : "unmapped");
|
|
|
|
|
printf_filtered ("section %s", sect->name);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (matches == 0)
|
|
|
|
|
printf_filtered ("No symbol matches %s.\n", arg);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
address_info (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct symbol *sym;
|
|
|
|
|
struct minimal_symbol *msymbol;
|
|
|
|
|
long val;
|
|
|
|
|
long basereg;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
asection *section;
|
|
|
|
|
CORE_ADDR load_addr;
|
|
|
|
|
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.");
|
|
|
|
|
|
2003-05-14 Elena Zannoni <ezannoni@redhat.com>
* symtab.h (enum domain_enum): Rename from namespace_enum.
(UNDEF_DOMAIN, VAR_DOMAIN, STRUCT_DOMAIN, LABEL_DOMAIN,
VARIABLES_DOMAIN, FUNCTIONS_DOMAIN, TYPES_DOMAIN, METHODS_DOMAIN):
Rename from UNDEF_NAMESPACE, VAR_NAMESPACE, STRUCT_NAMESPACE,
LABEL_NAMESPACE, VARIABLES_NAMESPACE, FUNCTIONS_NAMESPACE,
TYPES_NAMESPACE, METHODS_NAMESPACE.
(SYMBOL_NAMESPACE): Rename to SYMBOL_DOMAIN.
(struct symbol, struct partial_symbol): Rename field
'namespace_enum namespace' to 'domain_enum domain'.
(PSYMBOL_NAMESPACE): Rename to PSYMBOL_DOMAIN.
Delete old define kludge for namespace.
* ada-exp.y, ada-lang.c, ada-lang.h, alpha-tdep.c, arm-tdep.c,
blockframe.c, c-exp.y, c-valprint.c, coffread.c, dbxread.c,
dwarf2read.c, dwarfread.c, f-exp.y, gdbtypes.c, gdbtypes.h,
gnu-v3-abi.c, hppa-tdep.c, hpread.c, jv-exp.y, jv-lang.c,
language.c, linespec.c, m2-exp.y, m3-nat.c, mdebugread.c,
mips-tdep.c, nlmread.c, objc-exp.y, objc-lang.c, objfiles.c,
p-exp.y, p-valprint.c, parse.c, printcmd.c, scm-lang.c, source.c,
stabsread.c, stack.c, symfile.c, symfile.h, symmisc.c, symtab.c,
valops.c, values.c, xcoffread.c, xstormy16-tdep.c: Replace all
occurrences of the above.
2003-05-12 Elena Zannoni <ezannoni@redhat.com>
* mi-mi-cmd-stack.c (list_args_or_locals): Rename VAR_NAMESPACE to
VAR_DOMAIN.
2003-05-14 17:43:20 +00:00
|
|
|
|
sym = lookup_symbol (exp, get_selected_block (0), VAR_DOMAIN,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
&is_a_field_of_this, (struct symtab **) NULL);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (sym == NULL)
|
|
|
|
|
{
|
|
|
|
|
if (is_a_field_of_this)
|
|
|
|
|
{
|
|
|
|
|
printf_filtered ("Symbol \"");
|
|
|
|
|
fprintf_symbol_filtered (gdb_stdout, exp,
|
|
|
|
|
current_language->la_language, DMGL_ANSI);
|
2002-10-12 03:06:01 +00:00
|
|
|
|
printf_filtered ("\" is a field of the local class variable ");
|
|
|
|
|
if (current_language->la_language == language_objc)
|
2002-10-23 21:33:07 +00:00
|
|
|
|
printf_filtered ("`self'\n"); /* ObjC equivalent of "this" */
|
2002-10-12 03:06:01 +00:00
|
|
|
|
else
|
2002-10-23 21:33:07 +00:00
|
|
|
|
printf_filtered ("`this'\n");
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
msymbol = lookup_minimal_symbol (exp, NULL, NULL);
|
|
|
|
|
|
|
|
|
|
if (msymbol != NULL)
|
|
|
|
|
{
|
|
|
|
|
load_addr = SYMBOL_VALUE_ADDRESS (msymbol);
|
|
|
|
|
|
|
|
|
|
printf_filtered ("Symbol \"");
|
|
|
|
|
fprintf_symbol_filtered (gdb_stdout, exp,
|
|
|
|
|
current_language->la_language, DMGL_ANSI);
|
|
|
|
|
printf_filtered ("\" is at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in a file compiled without debugging");
|
|
|
|
|
section = SYMBOL_BFD_SECTION (msymbol);
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
printf_filtered (".\n");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
error ("No symbol \"%s\" in current context.", exp);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
printf_filtered ("Symbol \"");
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 21:36:23 +00:00
|
|
|
|
fprintf_symbol_filtered (gdb_stdout, DEPRECATED_SYMBOL_NAME (sym),
|
1999-04-16 01:35:26 +00:00
|
|
|
|
current_language->la_language, DMGL_ANSI);
|
|
|
|
|
printf_filtered ("\" is ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
val = SYMBOL_VALUE (sym);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
basereg = SYMBOL_BASEREG (sym);
|
|
|
|
|
section = SYMBOL_BFD_SECTION (sym);
|
|
|
|
|
|
|
|
|
|
switch (SYMBOL_CLASS (sym))
|
|
|
|
|
{
|
|
|
|
|
case LOC_CONST:
|
|
|
|
|
case LOC_CONST_BYTES:
|
|
|
|
|
printf_filtered ("constant");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LABEL:
|
|
|
|
|
printf_filtered ("a label at address ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
print_address_numeric (load_addr = SYMBOL_VALUE_ADDRESS (sym),
|
1999-04-16 01:35:26 +00:00
|
|
|
|
1, gdb_stdout);
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
Based on a patch from Daniel Berlin (dberlin@dberlin.org).
* symtab.h: Add opaque declarations of struct axs_value and
struct agent_expr.
(enum address_class): Add LOC_COMPUTED and LOC_COMPUTED_ARG.
(struct location_funcs): New type.
(struct symbol): Add "loc" to aux_value.
(SYMBOL_LOCATION_BATON, SYMBOL_LOCATION_FUNCS): New macros.
* dwarf2read.c: Include "dwarf2expr.h".
(dwarf2_symbol_mark_computed): New function.
(read_func_scope): Use it.
(var_decode_location): New function.
(new_symbol): Use it.
* dwarf2expr.c, dwarf2expr.h, dwarf2loc.c, dwarf2loc.h: New files.
* Makefile.in (SFILES): Add dwarf2loc.c and dwarf2expr.c.
(dwarf2expr_h, dwarf2loc_h): New variables.
(COMMON_OBS): Add dwarf2expr.o and dwarf2loc.o.
(dwarf2expr.o, dwarf2loc.o): New rules.
(dwarf2read.o): Add $(dwarf2expr_h) and $(dwarf2loc_h).
* buildsym.c (finish_block): Handle LOC_COMPUTED and
LOC_COMPUTED_ARG.
* findvar.c (symbol_read_needs_frame, read_var_value): Likewise.
* m2-exp.y (yylex): Likewise.
* printcmd.c (address_info, print_frame_args): Likewise.
* stack.c (print_block_frame_locals, print_frame_arg_vars): Likewise.
* symmisc.c (print_symbol, print_partial_symbols): Likewise.
* ada-lang.c (ada_resolve_subexp, symtab_for_sym)
(ada_add_block_symbols, fill_in_ada_prototype): Likewise.
* symtab.c (lookup_block_symbol): Likewise.
2003-02-21 15:24:18 +00:00
|
|
|
|
case LOC_COMPUTED:
|
|
|
|
|
case LOC_COMPUTED_ARG:
|
2004-01-26 20:36:32 +00:00
|
|
|
|
/* FIXME: cagney/2004-01-26: It should be possible to
|
|
|
|
|
unconditionally call the SYMBOL_OPS method when available.
|
2004-02-06 18:30:47 +00:00
|
|
|
|
Unfortunately DWARF 2 stores the frame-base (instead of the
|
2004-01-26 20:36:32 +00:00
|
|
|
|
function) location in a function's symbol. Oops! For the
|
|
|
|
|
moment enable this when/where applicable. */
|
|
|
|
|
SYMBOL_OPS (sym)->describe_location (sym, gdb_stdout);
|
Based on a patch from Daniel Berlin (dberlin@dberlin.org).
* symtab.h: Add opaque declarations of struct axs_value and
struct agent_expr.
(enum address_class): Add LOC_COMPUTED and LOC_COMPUTED_ARG.
(struct location_funcs): New type.
(struct symbol): Add "loc" to aux_value.
(SYMBOL_LOCATION_BATON, SYMBOL_LOCATION_FUNCS): New macros.
* dwarf2read.c: Include "dwarf2expr.h".
(dwarf2_symbol_mark_computed): New function.
(read_func_scope): Use it.
(var_decode_location): New function.
(new_symbol): Use it.
* dwarf2expr.c, dwarf2expr.h, dwarf2loc.c, dwarf2loc.h: New files.
* Makefile.in (SFILES): Add dwarf2loc.c and dwarf2expr.c.
(dwarf2expr_h, dwarf2loc_h): New variables.
(COMMON_OBS): Add dwarf2expr.o and dwarf2loc.o.
(dwarf2expr.o, dwarf2loc.o): New rules.
(dwarf2read.o): Add $(dwarf2expr_h) and $(dwarf2loc_h).
* buildsym.c (finish_block): Handle LOC_COMPUTED and
LOC_COMPUTED_ARG.
* findvar.c (symbol_read_needs_frame, read_var_value): Likewise.
* m2-exp.y (yylex): Likewise.
* printcmd.c (address_info, print_frame_args): Likewise.
* stack.c (print_block_frame_locals, print_frame_arg_vars): Likewise.
* symmisc.c (print_symbol, print_partial_symbols): Likewise.
* ada-lang.c (ada_resolve_subexp, symtab_for_sym)
(ada_add_block_symbols, fill_in_ada_prototype): Likewise.
* symtab.c (lookup_block_symbol): Likewise.
2003-02-21 15:24:18 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
case LOC_REGISTER:
|
|
|
|
|
printf_filtered ("a variable in register %s", REGISTER_NAME (val));
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_STATIC:
|
|
|
|
|
printf_filtered ("static storage at address ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
print_address_numeric (load_addr = SYMBOL_VALUE_ADDRESS (sym),
|
1999-04-16 01:35:26 +00:00
|
|
|
|
1, gdb_stdout);
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_INDIRECT:
|
|
|
|
|
printf_filtered ("external global (indirect addressing), at address *(");
|
|
|
|
|
print_address_numeric (load_addr = SYMBOL_VALUE_ADDRESS (sym),
|
|
|
|
|
1, gdb_stdout);
|
|
|
|
|
printf_filtered (")");
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REGPARM:
|
|
|
|
|
printf_filtered ("an argument in register %s", REGISTER_NAME (val));
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REGPARM_ADDR:
|
|
|
|
|
printf_filtered ("address of an argument in register %s", REGISTER_NAME (val));
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_ARG:
|
|
|
|
|
printf_filtered ("an argument at offset %ld", val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LOCAL_ARG:
|
|
|
|
|
printf_filtered ("an argument at frame offset %ld", val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_LOCAL:
|
|
|
|
|
printf_filtered ("a local variable at frame offset %ld", val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REF_ARG:
|
|
|
|
|
printf_filtered ("a reference argument at offset %ld", val);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BASEREG:
|
|
|
|
|
printf_filtered ("a variable at offset %ld from register %s",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
val, REGISTER_NAME (basereg));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BASEREG_ARG:
|
|
|
|
|
printf_filtered ("an argument at offset %ld from register %s",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
val, REGISTER_NAME (basereg));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_TYPEDEF:
|
|
|
|
|
printf_filtered ("a typedef");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BLOCK:
|
|
|
|
|
printf_filtered ("a function at address ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
print_address_numeric (load_addr = BLOCK_START (SYMBOL_BLOCK_VALUE (sym)),
|
1999-04-16 01:35:26 +00:00
|
|
|
|
1, gdb_stdout);
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_UNRESOLVED:
|
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msym;
|
|
|
|
|
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 21:36:23 +00:00
|
|
|
|
msym = lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (sym), NULL, NULL);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (msym == NULL)
|
|
|
|
|
printf_filtered ("unresolved");
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
section = SYMBOL_BFD_SECTION (msym);
|
|
|
|
|
printf_filtered ("static storage at address ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
print_address_numeric (load_addr = SYMBOL_VALUE_ADDRESS (msym),
|
1999-04-16 01:35:26 +00:00
|
|
|
|
1, gdb_stdout);
|
|
|
|
|
if (section_is_overlay (section))
|
|
|
|
|
{
|
|
|
|
|
load_addr = overlay_unmapped_address (load_addr, section);
|
|
|
|
|
printf_filtered (",\n -- loaded at ");
|
|
|
|
|
print_address_numeric (load_addr, 1, gdb_stdout);
|
|
|
|
|
printf_filtered (" in overlay section %s", section->name);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
2002-10-21 14:55:18 +00:00
|
|
|
|
case LOC_HP_THREAD_LOCAL_STATIC:
|
1999-04-16 01:35:26 +00:00
|
|
|
|
printf_filtered (
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"a thread-local variable at offset %ld from the thread base register %s",
|
|
|
|
|
val, REGISTER_NAME (basereg));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_OPTIMIZED_OUT:
|
|
|
|
|
printf_filtered ("optimized out");
|
|
|
|
|
break;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
default:
|
|
|
|
|
printf_filtered ("of unknown (botched) type");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
printf_filtered (".\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
x_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
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)
|
|
|
|
|
{
|
|
|
|
|
expr = parse_expression (exp);
|
|
|
|
|
/* Cause expression not to be there any more
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if this command is repeated with Newline.
|
|
|
|
|
But don't clobber a user-defined command's definition. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (from_tty)
|
|
|
|
|
*exp = 0;
|
2000-04-26 12:41:48 +00:00
|
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_REF)
|
|
|
|
|
val = value_ind (val);
|
|
|
|
|
/* In rvalue contexts, such as this, functions are coerced into
|
1999-07-07 20:19:36 +00:00
|
|
|
|
pointers to functions. This makes "x/i main" work. */
|
2001-03-01 03:56:45 +00:00
|
|
|
|
if (/* last_format == 'i' && */
|
|
|
|
|
TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC
|
1999-07-07 20:19:36 +00:00
|
|
|
|
&& VALUE_LVAL (val) == lval_memory)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
next_address = VALUE_ADDRESS (val);
|
|
|
|
|
else
|
* value.h (value_as_address): Rename value_as_pointer.
* eval.c, findvar.c, gnu-v2-abi.c, gnu-v3-abi.c, jv-lang.c,
jv-valprint.c, printcmd.c, stack.c, top.c, valarith.c, valops.c,
values.c: Update.
2001-10-16 01:58:07 +00:00
|
|
|
|
next_address = value_as_address (val);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (VALUE_BFD_SECTION (val))
|
|
|
|
|
next_section = VALUE_BFD_SECTION (val);
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
do_examine (fmt, next_address, next_section);
|
|
|
|
|
|
|
|
|
|
/* If the examine succeeds, we remember its size and format for next time. */
|
|
|
|
|
last_size = fmt.size;
|
|
|
|
|
last_format = fmt.format;
|
|
|
|
|
|
|
|
|
|
/* Set a couple of internal variables if appropriate. */
|
|
|
|
|
if (last_examine_value)
|
|
|
|
|
{
|
|
|
|
|
/* Make last address examined available to the user as $_. Use
|
1999-07-07 20:19:36 +00:00
|
|
|
|
the correct pointer type. */
|
* gdbarch.sh (POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Two new
functions which architectures can redefine, defaulting to
generic_pointer_to_address and generic_address_to_pointer.
* findvar.c (extract_typed_address, store_typed_address,
generic_pointer_to_address, generic_address_to_pointer): New
functions.
(POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Provide default
definitions.
(extract_address, store_address): Doc fixes.
* values.c (value_as_pointer): Doc fix.
(value_from_pointer): New function.
* defs.h (extract_typed_address, store_typed_address): New
declarations.
* inferior.h (generic_address_to_pointer,
generic_pointer_to_address): New declarations.
* value.h (value_from_pointer): New declaration.
* ax-gdb.c (const_var_ref): Use value_from_pointer, not
value_from_longest.
* blockframe.c (generic_push_dummy_frame): Use read_pc and
read_sp, not read_register.
* c-valprint.c (c_val_print): Use extract_typed_address instead of
extract_address to extract vtable entries and references.
* cp-valprint.c (cp_print_value_fields): Use value_from_pointer
instead of value_from_longest to extract the vtable's address.
* eval.c (evaluate_subexp_standard): Use value_from_pointer
instead of value_from_longest to compute `this', and for doing
pointer-to-member dereferencing.
* findvar.c (read_register): Use extract_unsigned_integer, not
extract_address.
(read_var_value): Use store_typed_address instead of store_address
for building label values.
(locate_var_value): Use value_from_pointer instead of
value_from_longest.
* hppa-tdep.c (find_stub_with_shl_get): Use value_from_pointer,
instead of value_from_longest, to build arguments to __d_shl_get.
* printcmd.c (set_next_address): Use value_from_pointer, not
value_from_longest.
(x_command): Use value_from_pointer, not value_from_longest.
* tracepoint.c (set_traceframe_context): Use value_from_pointer,
not value_from_longest.
* valarith.c (value_add, value_sub): Use value_from_pointer, not
value_from_longest.
* valops.c (find_function_in_inferior, value_coerce_array,
value_coerce_function, value_addr, hand_function_call): Same.
* value.h (COERCE_REF): Use unpack_pointer, not unpack_long.
* values.c (unpack_long): Use extract_typed_address to produce
addresses from pointers and references, not extract_address.
(value_from_longest): Use store_typed_address instead of
store_address to produce pointer and reference values.
2000-04-14 18:43:41 +00:00
|
|
|
|
struct type *pointer_type
|
|
|
|
|
= lookup_pointer_type (VALUE_TYPE (last_examine_value));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
set_internalvar (lookup_internalvar ("_"),
|
* gdbarch.sh (POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Two new
functions which architectures can redefine, defaulting to
generic_pointer_to_address and generic_address_to_pointer.
* findvar.c (extract_typed_address, store_typed_address,
generic_pointer_to_address, generic_address_to_pointer): New
functions.
(POINTER_TO_ADDRESS, ADDRESS_TO_POINTER): Provide default
definitions.
(extract_address, store_address): Doc fixes.
* values.c (value_as_pointer): Doc fix.
(value_from_pointer): New function.
* defs.h (extract_typed_address, store_typed_address): New
declarations.
* inferior.h (generic_address_to_pointer,
generic_pointer_to_address): New declarations.
* value.h (value_from_pointer): New declaration.
* ax-gdb.c (const_var_ref): Use value_from_pointer, not
value_from_longest.
* blockframe.c (generic_push_dummy_frame): Use read_pc and
read_sp, not read_register.
* c-valprint.c (c_val_print): Use extract_typed_address instead of
extract_address to extract vtable entries and references.
* cp-valprint.c (cp_print_value_fields): Use value_from_pointer
instead of value_from_longest to extract the vtable's address.
* eval.c (evaluate_subexp_standard): Use value_from_pointer
instead of value_from_longest to compute `this', and for doing
pointer-to-member dereferencing.
* findvar.c (read_register): Use extract_unsigned_integer, not
extract_address.
(read_var_value): Use store_typed_address instead of store_address
for building label values.
(locate_var_value): Use value_from_pointer instead of
value_from_longest.
* hppa-tdep.c (find_stub_with_shl_get): Use value_from_pointer,
instead of value_from_longest, to build arguments to __d_shl_get.
* printcmd.c (set_next_address): Use value_from_pointer, not
value_from_longest.
(x_command): Use value_from_pointer, not value_from_longest.
* tracepoint.c (set_traceframe_context): Use value_from_pointer,
not value_from_longest.
* valarith.c (value_add, value_sub): Use value_from_pointer, not
value_from_longest.
* valops.c (find_function_in_inferior, value_coerce_array,
value_coerce_function, value_addr, hand_function_call): Same.
* value.h (COERCE_REF): Use unpack_pointer, not unpack_long.
* values.c (unpack_long): Use extract_typed_address to produce
addresses from pointers and references, not extract_address.
(value_from_longest): Use store_typed_address instead of
store_address to produce pointer and reference values.
2000-04-14 18:43:41 +00:00
|
|
|
|
value_from_pointer (pointer_type,
|
|
|
|
|
last_examine_address));
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
|
|
|
|
/* Make contents of last address examined available to the user as $__. */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* If the last value has not been fetched from memory then don't
|
|
|
|
|
fetch it now - instead mark it by voiding the $__ variable. */
|
|
|
|
|
if (VALUE_LAZY (last_examine_value))
|
|
|
|
|
set_internalvar (lookup_internalvar ("__"),
|
|
|
|
|
allocate_value (builtin_type_void));
|
|
|
|
|
else
|
|
|
|
|
set_internalvar (lookup_internalvar ("__"), last_examine_value);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* Add an expression to the auto-display chain.
|
|
|
|
|
Specify the expression. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
display_command (char *exp, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
struct format_data fmt;
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct expression *expr;
|
|
|
|
|
struct display *new;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
int display_it = 1;
|
|
|
|
|
|
|
|
|
|
#if defined(TUI)
|
2003-02-14 13:58:06 +00:00
|
|
|
|
/* NOTE: cagney/2003-02-13 The `tui_active' was previously
|
|
|
|
|
`tui_version'. */
|
2004-02-16 19:43:12 +00:00
|
|
|
|
if (tui_active && exp != NULL && *exp == '$')
|
2004-01-23 23:25:17 +00:00
|
|
|
|
display_it = (tui_set_layout_for_display_command (exp) == TUI_FAILURE);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (display_it)
|
|
|
|
|
{
|
|
|
|
|
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;
|
|
|
|
|
expr = parse_expression (exp);
|
|
|
|
|
|
|
|
|
|
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;
|
2001-08-02 11:58:29 +00:00
|
|
|
|
new->enabled_p = 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
display_chain = new;
|
|
|
|
|
|
|
|
|
|
if (from_tty && target_has_execution)
|
|
|
|
|
do_one_display (new);
|
|
|
|
|
|
|
|
|
|
dont_repeat ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
free_display (struct display *d)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2000-12-15 01:01:51 +00:00
|
|
|
|
xfree (d->exp);
|
|
|
|
|
xfree (d);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Clear out the display_chain.
|
|
|
|
|
Done when new symtabs are loaded, since this invalidates
|
|
|
|
|
the types stored in many expressions. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
clear_displays (void)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
while ((d = display_chain) != NULL)
|
|
|
|
|
{
|
2000-12-15 01:01:51 +00:00
|
|
|
|
xfree (d->exp);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
display_chain = d->next;
|
2000-12-15 01:01:51 +00:00
|
|
|
|
xfree (d);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Delete the auto-display number NUM. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
delete_display (int num)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct display *d1, *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
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
|
1999-07-07 20:19:36 +00:00
|
|
|
|
for (d = display_chain;; d = d->next)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
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
|
2000-07-30 01:48:28 +00:00
|
|
|
|
undisplay_command (char *args, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char *p = args;
|
|
|
|
|
char *p1;
|
|
|
|
|
int num;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (args == 0)
|
|
|
|
|
{
|
|
|
|
|
if (query ("Delete all auto-display expressions? "))
|
|
|
|
|
clear_displays ();
|
|
|
|
|
dont_repeat ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*p1 >= '0' && *p1 <= '9')
|
|
|
|
|
p1++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
|
|
|
|
|
|
|
|
|
num = atoi (p);
|
|
|
|
|
|
|
|
|
|
delete_display (num);
|
|
|
|
|
|
|
|
|
|
p = p1;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
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
|
2000-07-30 01:48:28 +00:00
|
|
|
|
do_one_display (struct display *d)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
int within_current_scope;
|
|
|
|
|
|
2001-08-02 11:58:29 +00:00
|
|
|
|
if (d->enabled_p == 0)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (d->block)
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-05 22:04:43 +00:00
|
|
|
|
within_current_scope = contained_in (get_selected_block (0), d->block);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else
|
|
|
|
|
within_current_scope = 1;
|
|
|
|
|
if (!within_current_scope)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
current_display_number = d->number;
|
|
|
|
|
|
|
|
|
|
annotate_display_begin ();
|
|
|
|
|
printf_filtered ("%d", d->number);
|
|
|
|
|
annotate_display_number_end ();
|
|
|
|
|
printf_filtered (": ");
|
|
|
|
|
if (d->format.size)
|
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr;
|
2001-11-10 21:34:56 +00:00
|
|
|
|
struct value *val;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
annotate_display_format ();
|
|
|
|
|
|
|
|
|
|
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 (" ");
|
|
|
|
|
|
|
|
|
|
annotate_display_expression ();
|
|
|
|
|
|
|
|
|
|
print_expression (d->exp, gdb_stdout);
|
|
|
|
|
annotate_display_expression_end ();
|
|
|
|
|
|
|
|
|
|
if (d->format.count != 1)
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
else
|
|
|
|
|
printf_filtered (" ");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
val = evaluate_expression (d->exp);
|
* value.h (value_as_address): Rename value_as_pointer.
* eval.c, findvar.c, gnu-v2-abi.c, gnu-v3-abi.c, jv-lang.c,
jv-valprint.c, printcmd.c, stack.c, top.c, valarith.c, valops.c,
values.c: Update.
2001-10-16 01:58:07 +00:00
|
|
|
|
addr = value_as_address (val);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (d->format.format == 'i')
|
|
|
|
|
addr = ADDR_BITS_REMOVE (addr);
|
|
|
|
|
|
|
|
|
|
annotate_display_value ();
|
|
|
|
|
|
|
|
|
|
do_examine (d->format, addr, VALUE_BFD_SECTION (val));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
annotate_display_format ();
|
|
|
|
|
|
|
|
|
|
if (d->format.format)
|
|
|
|
|
printf_filtered ("/%c ", d->format.format);
|
|
|
|
|
|
|
|
|
|
annotate_display_expression ();
|
|
|
|
|
|
|
|
|
|
print_expression (d->exp, gdb_stdout);
|
|
|
|
|
annotate_display_expression_end ();
|
|
|
|
|
|
|
|
|
|
printf_filtered (" = ");
|
|
|
|
|
|
|
|
|
|
annotate_display_expression ();
|
|
|
|
|
|
|
|
|
|
print_formatted (evaluate_expression (d->exp),
|
1999-10-05 23:13:56 +00:00
|
|
|
|
d->format.format, d->format.size, gdb_stdout);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
annotate_display_end ();
|
|
|
|
|
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
current_display_number = -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Display all of the values on the auto-display chain which can be
|
|
|
|
|
evaluated in the current scope. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
do_displays (void)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
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
|
2000-07-30 01:48:28 +00:00
|
|
|
|
disable_display (int num)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
if (d->number == num)
|
|
|
|
|
{
|
2001-08-02 11:58:29 +00:00
|
|
|
|
d->enabled_p = 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
printf_unfiltered ("No display number %d.\n", num);
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
disable_current_display (void)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (current_display_number >= 0)
|
|
|
|
|
{
|
|
|
|
|
disable_display (current_display_number);
|
|
|
|
|
fprintf_unfiltered (gdb_stderr, "Disabling display %d to avoid infinite recursion.\n",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
current_display_number);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
current_display_number = -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
display_info (char *ignore, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (!display_chain)
|
|
|
|
|
printf_unfiltered ("There are no auto-display expressions now.\n");
|
|
|
|
|
else
|
1999-07-07 20:19:36 +00:00
|
|
|
|
printf_filtered ("Auto-display expressions now in effect:\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
Num Enb Expression\n");
|
|
|
|
|
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
{
|
2001-08-02 11:58:29 +00:00
|
|
|
|
printf_filtered ("%d: %c ", d->number, "ny"[(int) d->enabled_p]);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (d->format.size)
|
|
|
|
|
printf_filtered ("/%d%c%c ", d->format.count, d->format.size,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
d->format.format);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
else if (d->format.format)
|
|
|
|
|
printf_filtered ("/%c ", d->format.format);
|
|
|
|
|
print_expression (d->exp, gdb_stdout);
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-05 22:04:43 +00:00
|
|
|
|
if (d->block && !contained_in (get_selected_block (0), d->block))
|
1999-04-16 01:35:26 +00:00
|
|
|
|
printf_filtered (" (cannot be evaluated in the current context)");
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
gdb_flush (gdb_stdout);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
enable_display (char *args, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char *p = args;
|
|
|
|
|
char *p1;
|
|
|
|
|
int num;
|
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (p == 0)
|
|
|
|
|
{
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
2001-08-02 11:58:29 +00:00
|
|
|
|
d->enabled_p = 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
|
|
|
|
while (*p1 >= '0' && *p1 <= '9')
|
|
|
|
|
p1++;
|
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
num = atoi (p);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
for (d = display_chain; d; d = d->next)
|
|
|
|
|
if (d->number == num)
|
|
|
|
|
{
|
2001-08-02 11:58:29 +00:00
|
|
|
|
d->enabled_p = 1;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
goto win;
|
|
|
|
|
}
|
|
|
|
|
printf_unfiltered ("No display number %d.\n", num);
|
|
|
|
|
win:
|
|
|
|
|
p = p1;
|
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
disable_display_command (char *args, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char *p = args;
|
|
|
|
|
char *p1;
|
|
|
|
|
struct display *d;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (p == 0)
|
|
|
|
|
{
|
|
|
|
|
for (d = display_chain; d; d = d->next)
|
2001-08-02 11:58:29 +00:00
|
|
|
|
d->enabled_p = 0;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p1 = p;
|
|
|
|
|
while (*p1 >= '0' && *p1 <= '9')
|
|
|
|
|
p1++;
|
|
|
|
|
if (*p1 && *p1 != ' ' && *p1 != '\t')
|
|
|
|
|
error ("Arguments must be display numbers.");
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
disable_display (atoi (p));
|
|
|
|
|
|
|
|
|
|
p = p1;
|
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
|
p++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* Print the value in stack frame FRAME of a variable
|
|
|
|
|
specified by a struct symbol. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
print_variable_value (struct symbol *var, struct frame_info *frame,
|
|
|
|
|
struct ui_file *stream)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2001-11-10 21:34:56 +00:00
|
|
|
|
struct value *val = read_var_value (var, frame);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
value_print (val, stream, 0, Val_pretty_default);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
printf_command (char *arg, int from_tty)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
2003-09-14 Andrew Cagney <cagney@redhat.com>
* alpha-nat.c: Remove some occurances of "register".
* alpha-tdep.c, arm-tdep.c, blockframe.c, breakpoint.c: Ditto.
* buildsym.c, c-typeprint.c, c-valprint.c, coffread.c: Ditto.
* corefile.c, cp-support.c, cp-valprint.c, cris-tdep.c: Ditto.
* dbxread.c, dcache.c, dwarf2read.c, elfread.c: Ditto.
* environ.c, eval.c, event-top.c, f-typeprint.c: Ditto.
* f-valprint.c, findvar.c, frame.c, gdbtypes.c: Ditto.
* h8300-tdep.c, hppa-tdep.c, hppab-nat.c, hppah-nat.c: Ditto.
* hppam3-nat.c, hpread.c, ia64-aix-nat.c, ia64-linux-nat.c: Ditto.
* infcall.c, infcmd.c, inflow.c, infptrace.c, infrun.c: Ditto.
* infttrace.c, irix5-nat.c, jv-typeprint.c: Ditto.
* jv-valprint.c, m68k-tdep.c, m68klinux-nat.c, main.c: Ditto.
* mdebugread.c, minsyms.c, mips-linux-tdep.c: Ditto.
* mips-nat.c, mips-tdep.c, mipsread.c, mipsv4-nat.c: Ditto.
* ns32k-tdep.c, objfiles.c, p-typeprint.c: Ditto.
* p-valprint.c, ppc-linux-nat.c, printcmd.c: Ditto.
* remote-mips.c, remote-vx.c, rs6000-nat.c: Ditto.
* rs6000-tdep.c, scm-exp.c, sh-tdep.c, sh64-tdep.c: Ditto.
* solib.c, somread.c, source.c, sparc-tdep.c: Ditto.
* stabsread.c, stack.c, standalone.c, symfile.c: Ditto.
* symmisc.c, symtab.c, top.c, tracepoint.c: Ditto.
* typeprint.c, utils.c, valarith.c, valops.c: Ditto.
* values.c, vax-tdep.c, xcoffread.c: Ditto.
2003-09-14 16:32:14 +00:00
|
|
|
|
char *f = NULL;
|
|
|
|
|
char *s = arg;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
char *string = NULL;
|
2001-11-10 21:34:56 +00:00
|
|
|
|
struct value **val_args;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
char *substrings;
|
|
|
|
|
char *current_substring;
|
|
|
|
|
int nargs = 0;
|
|
|
|
|
int allocated_args = 20;
|
|
|
|
|
struct cleanup *old_cleanups;
|
|
|
|
|
|
2001-12-25 22:24:39 +00:00
|
|
|
|
val_args = (struct value **) xmalloc (allocated_args
|
|
|
|
|
* sizeof (struct value *));
|
2000-04-26 12:41:48 +00:00
|
|
|
|
old_cleanups = make_cleanup (free_current_contents, &val_args);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (s == 0)
|
|
|
|
|
error_no_arg ("format-control string and values to print");
|
|
|
|
|
|
|
|
|
|
/* Skip white space before format string */
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*s == ' ' || *s == '\t')
|
|
|
|
|
s++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* 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 '\"'.");
|
|
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
|
switch (c = *s++)
|
|
|
|
|
{
|
|
|
|
|
case '\\':
|
|
|
|
|
*f++ = '\\';
|
|
|
|
|
break;
|
|
|
|
|
case 'a':
|
|
|
|
|
*f++ = '\a';
|
|
|
|
|
break;
|
|
|
|
|
case 'b':
|
|
|
|
|
*f++ = '\b';
|
|
|
|
|
break;
|
|
|
|
|
case 'f':
|
|
|
|
|
*f++ = '\f';
|
|
|
|
|
break;
|
|
|
|
|
case 'n':
|
|
|
|
|
*f++ = '\n';
|
|
|
|
|
break;
|
|
|
|
|
case 'r':
|
|
|
|
|
*f++ = '\r';
|
|
|
|
|
break;
|
|
|
|
|
case 't':
|
|
|
|
|
*f++ = '\t';
|
|
|
|
|
break;
|
|
|
|
|
case 'v':
|
|
|
|
|
*f++ = '\v';
|
|
|
|
|
break;
|
|
|
|
|
case '"':
|
|
|
|
|
*f++ = '"';
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
/* ??? TODO: handle other escape sequences */
|
|
|
|
|
error ("Unrecognized escape character \\%c in format string.",
|
|
|
|
|
c);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
*f++ = c;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Skip over " and following space and comma. */
|
|
|
|
|
s++;
|
|
|
|
|
*f++ = '\0';
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (*s == ' ' || *s == '\t')
|
|
|
|
|
s++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
if (*s != ',' && *s != 0)
|
|
|
|
|
error ("Invalid argument syntax");
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
if (*s == ',')
|
|
|
|
|
s++;
|
|
|
|
|
while (*s == ' ' || *s == '\t')
|
|
|
|
|
s++;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* Need extra space for the '\0's. Doubling the size is sufficient. */
|
|
|
|
|
substrings = alloca (strlen (string) * 2);
|
|
|
|
|
current_substring = substrings;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
/* Now scan the string for %-specs and see what kinds of args they want.
|
|
|
|
|
argclass[I] classifies the %-specs so we can give printf_filtered
|
|
|
|
|
something of the right size. */
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
enum argclass
|
|
|
|
|
{
|
|
|
|
|
no_arg, int_arg, string_arg, double_arg, long_long_arg
|
|
|
|
|
};
|
1999-04-16 01:35:26 +00:00
|
|
|
|
enum argclass *argclass;
|
|
|
|
|
enum argclass this_argclass;
|
|
|
|
|
char *last_arg;
|
|
|
|
|
int nargs_wanted;
|
|
|
|
|
int lcount;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
argclass = (enum argclass *) alloca (strlen (s) * sizeof *argclass);
|
|
|
|
|
nargs_wanted = 0;
|
|
|
|
|
f = string;
|
|
|
|
|
last_arg = string;
|
|
|
|
|
while (*f)
|
|
|
|
|
if (*f++ == '%')
|
|
|
|
|
{
|
|
|
|
|
lcount = 0;
|
1999-07-07 20:19:36 +00:00
|
|
|
|
while (strchr ("0123456789.hlL-+ #", *f))
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (*f == 'l' || *f == 'L')
|
|
|
|
|
lcount++;
|
|
|
|
|
f++;
|
|
|
|
|
}
|
|
|
|
|
switch (*f)
|
|
|
|
|
{
|
|
|
|
|
case 's':
|
|
|
|
|
this_argclass = string_arg;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'e':
|
|
|
|
|
case 'f':
|
|
|
|
|
case 'g':
|
|
|
|
|
this_argclass = double_arg;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '*':
|
|
|
|
|
error ("`*' not supported for precision or width in printf");
|
|
|
|
|
|
|
|
|
|
case 'n':
|
|
|
|
|
error ("Format specifier `n' not supported in printf");
|
|
|
|
|
|
|
|
|
|
case '%':
|
|
|
|
|
this_argclass = no_arg;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
if (lcount > 1)
|
|
|
|
|
this_argclass = long_long_arg;
|
|
|
|
|
else
|
|
|
|
|
this_argclass = int_arg;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
f++;
|
|
|
|
|
if (this_argclass != no_arg)
|
|
|
|
|
{
|
|
|
|
|
strncpy (current_substring, last_arg, f - last_arg);
|
|
|
|
|
current_substring += f - last_arg;
|
|
|
|
|
*current_substring++ = '\0';
|
|
|
|
|
last_arg = f;
|
|
|
|
|
argclass[nargs_wanted++] = this_argclass;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Now, parse all arguments and evaluate them.
|
|
|
|
|
Store the VALUEs in VAL_ARGS. */
|
|
|
|
|
|
|
|
|
|
while (*s != '\0')
|
|
|
|
|
{
|
|
|
|
|
char *s1;
|
|
|
|
|
if (nargs == allocated_args)
|
2001-12-25 22:24:39 +00:00
|
|
|
|
val_args = (struct value **) xrealloc ((char *) val_args,
|
|
|
|
|
(allocated_args *= 2)
|
|
|
|
|
* sizeof (struct value *));
|
1999-04-16 01:35:26 +00:00
|
|
|
|
s1 = s;
|
|
|
|
|
val_args[nargs] = parse_to_comma_and_eval (&s1);
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
/* If format string wants a float, unchecked-convert the value to
|
|
|
|
|
floating point of the same size */
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (argclass[nargs] == double_arg)
|
|
|
|
|
{
|
|
|
|
|
struct type *type = VALUE_TYPE (val_args[nargs]);
|
|
|
|
|
if (TYPE_LENGTH (type) == sizeof (float))
|
1999-07-07 20:19:36 +00:00
|
|
|
|
VALUE_TYPE (val_args[nargs]) = builtin_type_float;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (TYPE_LENGTH (type) == sizeof (double))
|
1999-07-07 20:19:36 +00:00
|
|
|
|
VALUE_TYPE (val_args[nargs]) = builtin_type_double;
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
nargs++;
|
|
|
|
|
s = s1;
|
|
|
|
|
if (*s == ',')
|
|
|
|
|
s++;
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (nargs != nargs_wanted)
|
|
|
|
|
error ("Wrong number of arguments for specified format-string");
|
|
|
|
|
|
|
|
|
|
/* Now actually print them. */
|
|
|
|
|
current_substring = substrings;
|
|
|
|
|
for (i = 0; i < nargs; i++)
|
|
|
|
|
{
|
|
|
|
|
switch (argclass[i])
|
|
|
|
|
{
|
|
|
|
|
case string_arg:
|
|
|
|
|
{
|
|
|
|
|
char *str;
|
|
|
|
|
CORE_ADDR tem;
|
|
|
|
|
int j;
|
* value.h (value_as_address): Rename value_as_pointer.
* eval.c, findvar.c, gnu-v2-abi.c, gnu-v3-abi.c, jv-lang.c,
jv-valprint.c, printcmd.c, stack.c, top.c, valarith.c, valops.c,
values.c: Update.
2001-10-16 01:58:07 +00:00
|
|
|
|
tem = value_as_address (val_args[i]);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* This is a %s argument. Find the length of the string. */
|
1999-07-07 20:19:36 +00:00
|
|
|
|
for (j = 0;; j++)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
|
|
|
|
char c;
|
|
|
|
|
QUIT;
|
2000-05-20 10:29:51 +00:00
|
|
|
|
read_memory (tem + j, &c, 1);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (c == 0)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Copy the string contents into a string inside GDB. */
|
|
|
|
|
str = (char *) alloca (j + 1);
|
2000-07-24 18:13:27 +00:00
|
|
|
|
if (j != 0)
|
|
|
|
|
read_memory (tem, str, j);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
str[j] = 0;
|
|
|
|
|
|
|
|
|
|
printf_filtered (current_substring, str);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case double_arg:
|
|
|
|
|
{
|
|
|
|
|
double val = value_as_double (val_args[i]);
|
|
|
|
|
printf_filtered (current_substring, val);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case long_long_arg:
|
|
|
|
|
#if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG)
|
|
|
|
|
{
|
|
|
|
|
long long val = value_as_long (val_args[i]);
|
|
|
|
|
printf_filtered (current_substring, val);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
#else
|
|
|
|
|
error ("long long not supported in printf");
|
|
|
|
|
#endif
|
|
|
|
|
case int_arg:
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: there should be separate int_arg and long_arg. */
|
|
|
|
|
long val = value_as_long (val_args[i]);
|
|
|
|
|
printf_filtered (current_substring, val);
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-07-07 20:19:36 +00:00
|
|
|
|
default: /* purecov: deadcode */
|
|
|
|
|
error ("internal error in printf_command"); /* purecov: deadcode */
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
/* Skip to the next substring. */
|
|
|
|
|
current_substring += strlen (current_substring) + 1;
|
|
|
|
|
}
|
|
|
|
|
/* Print the portion of the format string after the last argument. */
|
2003-08-04 David Carlton <carlton@kealia.com>
* charset.c (cached_iconv_convert): Add __FILE__ and __LINE__ args
to internal_error call.
* source.c (forward_search_command): Add "%s" format argument.
(reverse_search_command): Ditto.
* top.c (quit_confirm): Ditto.
* cli/cli-setshow.c (do_setshow_command): Ditto.
* cp-valprint.c (cp_print_class_method): Replace
{f,}printf_{un,}filtered by {f,}puts_{un,}filtered.
(cp_print_class_member): Ditto.
* event-top.c (command_line_handler): Ditto.
* linux-proc.c (linux_info_proc_cmd): Ditto.
* p-typeprint.c (pascal_type_print_base): Ditto.
* p-valprint.c (pascal_object_print_class_method): Ditto.
(pascal_object_print_class_member): Ditto.
* printcmd.c (print_scalar_formatted,printf_command): Ditto.
* remote.c (remote_cisco_section_offsets): Ditto.
* top.c (command_line_input): Ditto.
* utils.c (vwarning,error_stream,quit): Ditto.
* valprint.c (print_floating,print_binary_chars)
(print_octal_chars,print_decimal_chars,print_hex_chars): Ditto.
2003-08-04 David Carlton <carlton@kealia.com>
* mi-main.c (mi_error_last_message): Add "%s" second argument to
xasprintf call.
2003-08-04 David Carlton <carlton@kealia.com>
* generic/gdbtk.c (gdbtk_source_start_file): Add "%s" first
argument to error call.
(tk_command): Ditto.
(view_command): Ditto.
2003-08-04 17:08:24 +00:00
|
|
|
|
puts_filtered (last_arg);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
}
|
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 01:48:28 +00:00
|
|
|
|
_initialize_printcmd (void)
|
1999-04-16 01:35:26 +00:00
|
|
|
|
{
|
* completer.c (gdb_completer_loc_break_characters): New variable.
(line_completion_function): If we are completing on locations,
back up the start of word pointer past all characters which can
appear in a location spec.
(location_completer): New function.
* completer.h: Add prototype for location_completer.
* symtab.c (make_source_files_completion_list)
(add_filename_to_list, not_interesting_fname): New functions.
(filename_seen): New function, body extracted from
output_source_filename.
(output_source_filename): Call filename_seen to check if the file
was already printed.
(make_symbol_completion_list): If TEXT includes a
double-quoted string, return an empty list, not NULL.
(make_file_symbol_completion_list): New function, similar to
make_symbol_completion_list but with an additional argument
SRCFILE.
* symtab.h (make_file_symbol_completion_list)
(make_source_files_completion_list): Add prototypes.
* breakpoint.c (_initialize_breakpoint): Make location_completer
be the completion function for all commands which set breakpoints
and watchpoints.
(top-level): #include "completer.h".
* tracepoint.c (_initialize_tracepoint): Make location_completer
be the completion function for the "trace" command.
(top-level): #include "completer.h".
* printcmd.c (_initialize_printcmd): Make location_completer be
the completion function for the "print", "inspect", "call", and
"disassemble" commands.
(top-level): #include "completer.h".
* infcmd.c (_initialize_infcmd): Make location_completer be the
completion function for the "go", "jump", and "until" commands.
(top-level): #include "completer.h".
2001-06-11 16:05:25 +00:00
|
|
|
|
struct cmd_list_element *c;
|
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
current_display_number = -1;
|
|
|
|
|
|
|
|
|
|
add_info ("address", address_info,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Describe where symbol SYM is stored.");
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
add_info ("symbol", sym_info,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
"Describe what symbol is at location ADDR.\n\
|
|
|
|
|
Only for symbols with fixed locations (global or static scope).");
|
|
|
|
|
|
|
|
|
|
add_com ("x", class_vars, x_command,
|
|
|
|
|
concat ("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\
|
|
|
|
|
t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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\".", NULL));
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
add_com ("whereis", class_vars, whereis_command,
|
|
|
|
|
"Print line number and file of definition of variable.");
|
|
|
|
|
#endif
|
1999-07-07 20:19:36 +00:00
|
|
|
|
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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.",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
&cmdlist);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
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."
|
1999-07-07 20:19:36 +00:00
|
|
|
|
);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
add_cmd ("display", class_vars, enable_display,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
"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);
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
add_cmd ("display", class_vars, disable_display_command,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
"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);
|
|
|
|
|
|
1999-07-07 20:19:36 +00:00
|
|
|
|
add_cmd ("display", class_vars, undisplay_command,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
"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,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
concat ("Evaluate expression EXP and assign result to variable VAR, using assignment\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Use \"set variable\" for variables with names identical to set subcommands.\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
\nWith a subcommand, this command modifies parts of the gdb environment.\n\
|
|
|
|
|
You can see these environment settings with the \"show\" command.", NULL),
|
1999-07-07 20:19:36 +00:00
|
|
|
|
&setlist, "set ", 1, &cmdlist);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
if (dbx_commands)
|
1999-07-07 20:19:36 +00:00
|
|
|
|
add_com ("assign", class_vars, set_command, concat ("Evaluate expression \
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Use \"set variable\" for variables with names identical to set subcommands.\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
\nWith a subcommand, this command modifies parts of the gdb environment.\n\
|
|
|
|
|
You can see these environment settings with the \"show\" command.", NULL));
|
|
|
|
|
|
|
|
|
|
/* "call" is the same as "set", but handy for dbx users to call fns. */
|
* completer.c (gdb_completer_loc_break_characters): New variable.
(line_completion_function): If we are completing on locations,
back up the start of word pointer past all characters which can
appear in a location spec.
(location_completer): New function.
* completer.h: Add prototype for location_completer.
* symtab.c (make_source_files_completion_list)
(add_filename_to_list, not_interesting_fname): New functions.
(filename_seen): New function, body extracted from
output_source_filename.
(output_source_filename): Call filename_seen to check if the file
was already printed.
(make_symbol_completion_list): If TEXT includes a
double-quoted string, return an empty list, not NULL.
(make_file_symbol_completion_list): New function, similar to
make_symbol_completion_list but with an additional argument
SRCFILE.
* symtab.h (make_file_symbol_completion_list)
(make_source_files_completion_list): Add prototypes.
* breakpoint.c (_initialize_breakpoint): Make location_completer
be the completion function for all commands which set breakpoints
and watchpoints.
(top-level): #include "completer.h".
* tracepoint.c (_initialize_tracepoint): Make location_completer
be the completion function for the "trace" command.
(top-level): #include "completer.h".
* printcmd.c (_initialize_printcmd): Make location_completer be
the completion function for the "print", "inspect", "call", and
"disassemble" commands.
(top-level): #include "completer.h".
* infcmd.c (_initialize_infcmd): Make location_completer be the
completion function for the "go", "jump", and "until" commands.
(top-level): #include "completer.h".
2001-06-11 16:05:25 +00:00
|
|
|
|
c = add_com ("call", class_vars, call_command,
|
|
|
|
|
"Call a function in the program.\n\
|
1999-04-16 01:35:26 +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.");
|
2002-03-06 06:28:35 +00:00
|
|
|
|
set_cmd_completer (c, location_completer);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
add_cmd ("variable", class_vars, set_command,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Evaluate expression EXP and assign result to variable VAR, using assignment\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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\
|
|
|
|
|
This may usually be abbreviated to simply \"set\".",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
&setlist);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
* completer.c (gdb_completer_loc_break_characters): New variable.
(line_completion_function): If we are completing on locations,
back up the start of word pointer past all characters which can
appear in a location spec.
(location_completer): New function.
* completer.h: Add prototype for location_completer.
* symtab.c (make_source_files_completion_list)
(add_filename_to_list, not_interesting_fname): New functions.
(filename_seen): New function, body extracted from
output_source_filename.
(output_source_filename): Call filename_seen to check if the file
was already printed.
(make_symbol_completion_list): If TEXT includes a
double-quoted string, return an empty list, not NULL.
(make_file_symbol_completion_list): New function, similar to
make_symbol_completion_list but with an additional argument
SRCFILE.
* symtab.h (make_file_symbol_completion_list)
(make_source_files_completion_list): Add prototypes.
* breakpoint.c (_initialize_breakpoint): Make location_completer
be the completion function for all commands which set breakpoints
and watchpoints.
(top-level): #include "completer.h".
* tracepoint.c (_initialize_tracepoint): Make location_completer
be the completion function for the "trace" command.
(top-level): #include "completer.h".
* printcmd.c (_initialize_printcmd): Make location_completer be
the completion function for the "print", "inspect", "call", and
"disassemble" commands.
(top-level): #include "completer.h".
* infcmd.c (_initialize_infcmd): Make location_completer be the
completion function for the "go", "jump", and "until" commands.
(top-level): #include "completer.h".
2001-06-11 16:05:25 +00:00
|
|
|
|
c = add_com ("print", class_vars, print_command,
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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",
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"if the program were to return to the stack frame now selected, restoring\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
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\
|
|
|
|
|
but no count or size letter (see \"x\" command).", NULL));
|
2002-03-06 06:28:35 +00:00
|
|
|
|
set_cmd_completer (c, location_completer);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
add_com_alias ("p", "print", class_vars, 1);
|
|
|
|
|
|
* completer.c (gdb_completer_loc_break_characters): New variable.
(line_completion_function): If we are completing on locations,
back up the start of word pointer past all characters which can
appear in a location spec.
(location_completer): New function.
* completer.h: Add prototype for location_completer.
* symtab.c (make_source_files_completion_list)
(add_filename_to_list, not_interesting_fname): New functions.
(filename_seen): New function, body extracted from
output_source_filename.
(output_source_filename): Call filename_seen to check if the file
was already printed.
(make_symbol_completion_list): If TEXT includes a
double-quoted string, return an empty list, not NULL.
(make_file_symbol_completion_list): New function, similar to
make_symbol_completion_list but with an additional argument
SRCFILE.
* symtab.h (make_file_symbol_completion_list)
(make_source_files_completion_list): Add prototypes.
* breakpoint.c (_initialize_breakpoint): Make location_completer
be the completion function for all commands which set breakpoints
and watchpoints.
(top-level): #include "completer.h".
* tracepoint.c (_initialize_tracepoint): Make location_completer
be the completion function for the "trace" command.
(top-level): #include "completer.h".
* printcmd.c (_initialize_printcmd): Make location_completer be
the completion function for the "print", "inspect", "call", and
"disassemble" commands.
(top-level): #include "completer.h".
* infcmd.c (_initialize_infcmd): Make location_completer be the
completion function for the "go", "jump", and "until" commands.
(top-level): #include "completer.h".
2001-06-11 16:05:25 +00:00
|
|
|
|
c = add_com ("inspect", class_vars, inspect_command,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Same as \"print\" command, except that if you are running in the epoch\n\
|
1999-04-16 01:35:26 +00:00
|
|
|
|
environment, the value is printed in its own window.");
|
2002-03-06 06:28:35 +00:00
|
|
|
|
set_cmd_completer (c, location_completer);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
2004-07-26 14:53:06 +00:00
|
|
|
|
deprecated_add_show_from_set
|
|
|
|
|
(add_set_cmd ("max-symbolic-offset", no_class, var_uinteger,
|
|
|
|
|
(char *) &max_symbolic_offset,
|
1999-07-07 20:19:36 +00:00
|
|
|
|
"Set the largest offset that will be printed in <symbol+1234> form.",
|
2004-07-26 14:53:06 +00:00
|
|
|
|
&setprintlist),
|
|
|
|
|
&showprintlist);
|
|
|
|
|
deprecated_add_show_from_set
|
|
|
|
|
(add_set_cmd ("symbol-filename", no_class, var_boolean,
|
|
|
|
|
(char *) &print_symbol_filename, "\
|
|
|
|
|
Set printing of source filename and line number with <symbol>.",
|
|
|
|
|
&setprintlist),
|
|
|
|
|
&showprintlist);
|
1999-04-16 01:35:26 +00:00
|
|
|
|
|
|
|
|
|
/* For examine/instruction a single byte quantity is specified as
|
|
|
|
|
the data. This avoids problems with value_at_lazy() requiring a
|
|
|
|
|
valid data type (and rejecting VOID). */
|
|
|
|
|
examine_i_type = init_type (TYPE_CODE_INT, 1, 0, "examine_i_type", NULL);
|
|
|
|
|
|
|
|
|
|
examine_b_type = init_type (TYPE_CODE_INT, 1, 0, "examine_b_type", NULL);
|
|
|
|
|
examine_h_type = init_type (TYPE_CODE_INT, 2, 0, "examine_h_type", NULL);
|
|
|
|
|
examine_w_type = init_type (TYPE_CODE_INT, 4, 0, "examine_w_type", NULL);
|
|
|
|
|
examine_g_type = init_type (TYPE_CODE_INT, 8, 0, "examine_g_type", NULL);
|
|
|
|
|
|
|
|
|
|
}
|