1999-04-16 03:35:26 +02:00
|
|
|
|
/* Low level packing and unpacking of values for GDB, the GNU Debugger.
|
2003-01-13 Andrew Cagney <ac131313@redhat.com>
* ax-gdb.c, c-valprint.c, charset.c, corefile.c: Update copyright.
* demangle.c, disasm.c, dwarf2cfi.c, dwarfread.c: Update copyright.
* elfread.c, eval.c, expprint.c, expression.h: Update copyright.
* f-typeprint.c, findvar.c, gcore.c, gdb_mbuild.sh: Update copyright.
* gdbtypes.h, gnu-v2-abi.c, inferior.h, inftarg.c: Update copyright.
* language.c, language.h, m32r-tdep.c: Update copyright.
* mn10200-tdep.c, scm-lang.c, scm-lang.h: Update copyright.
* somsolib.c, somsolib.h, symfile.c, symtab.h: Update copyright.
* thread-db.c, typeprint.c, utils.c, valarith.c: Update copyright.
* values.c, win32-nat.c, x86-64-linux-nat.c: Update copyright.
* x86-64-linux-tdep.c, z8k-tdep.c: Update copyright.
* cli/cli-decode.h, config/h8500/tm-h8500.h: Update copyright.
Index: mi/ChangeLog
2003-01-13 Andrew Cagney <ac131313@redhat.com>
* mi-cmd-env.c: Update copyright.
2003-01-14 01:49:06 +01:00
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
2003-01-13 Andrew Cagney <ac131313@redhat.com>
* ax-gdb.c, c-valprint.c, charset.c, corefile.c: Update copyright.
* demangle.c, disasm.c, dwarf2cfi.c, dwarfread.c: Update copyright.
* elfread.c, eval.c, expprint.c, expression.h: Update copyright.
* f-typeprint.c, findvar.c, gcore.c, gdb_mbuild.sh: Update copyright.
* gdbtypes.h, gnu-v2-abi.c, inferior.h, inftarg.c: Update copyright.
* language.c, language.h, m32r-tdep.c: Update copyright.
* mn10200-tdep.c, scm-lang.c, scm-lang.h: Update copyright.
* somsolib.c, somsolib.h, symfile.c, symtab.h: Update copyright.
* thread-db.c, typeprint.c, utils.c, valarith.c: Update copyright.
* values.c, win32-nat.c, x86-64-linux-nat.c: Update copyright.
* x86-64-linux-tdep.c, z8k-tdep.c: Update copyright.
* cli/cli-decode.h, config/h8500/tm-h8500.h: Update copyright.
Index: mi/ChangeLog
2003-01-13 Andrew Cagney <ac131313@redhat.com>
* mi-cmd-env.c: Update copyright.
2003-01-14 01:49:06 +01:00
|
|
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003 Free Software
|
|
|
|
|
Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02: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 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02: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 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02: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 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include "gdb_string.h"
|
|
|
|
|
#include "symtab.h"
|
|
|
|
|
#include "gdbtypes.h"
|
|
|
|
|
#include "value.h"
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "command.h"
|
|
|
|
|
#include "gdbcmd.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include "language.h"
|
|
|
|
|
#include "scm-lang.h"
|
|
|
|
|
#include "demangle.h"
|
* defs.h (HOST_FLOAT_FORMAT, HOST_DOUBLE_FORMAT)
(HOST_FLOAT_FORMAT, HOST_DOUBLE_FORMAT)
(HOST_LONG_DOUBLE_FORMAT, DOUBLEST)
(floatformat_to_doublest, floatformat_from_doublest)
(floatformat_is_negative, floatformat_is_nan)
(floatformat_mantissa, store_floating)
(extract_floating): Move declaration from here.
* doublest.h: To here. New file.
* utils.c (get_field, floatformat_to_doublest, put_field)
(ldfrexp, floatformat_from_doublest, floatformat_is_negative)
(floatformat_is_nan, floatformat_mantissa)
(FLOATFORMAT_CHAR_BIT): Move from here.
* doublest.c: To here. New file.
* findvar.c (store_floating, extract_floating): Move from here.
* doublest.c: To here.
* Makefile.in (SFILES): Add doublest.c.
(COMMON_OBS): Add doublest.o.
(doublest.o): Specify dependencies.
(doublest_h): Define.
* config/m88k/tm-m88k.h: Include "doublest.h".
* config/i960/tm-i960.h: Ditto.
* config/i386/tm-symmetry.h: Ditto.
* rs6000-tdep.c, valarith.c: Ditto.
* valprint.c, stabsread.c, sh-tdep.c: Ditto.
* ia64-tdep.c, i387-tdep.c, i386-tdep.c: Ditto.
* values.c, arm-tdep.c, arm-linux-tdep.c: Ditto.
* alpha-tdep.c, ax.h, expression.h: Ditto.
* sh-tdep.c, parse.c, top.c, value.h: Ditto.
* Makefile.in (arm-tdep.o): Add $(doublest_h).
(i386-tdep.o, i387-tdep.o, ia64-tdep.o): Ditto.
(rs6000-tdep.o, stabsread.o, valarith.o): Ditto.
(values.o, valprint.o, arm-linux-tdep.o): Ditto.
(alpha-tdep.o, ax_h, parse.o, top.o, value_h): Ditto.
(parser_defs_h): Ditto.
(expression_h): Add $(doublest_h) and $(symtab_h).
2001-08-01 20:39:27 +02:00
|
|
|
|
#include "doublest.h"
|
2001-12-11 19:35:38 +01:00
|
|
|
|
#include "gdb_assert.h"
|
2002-07-03 22:36:54 +02:00
|
|
|
|
#include "regcache.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 01:01:07 +01:00
|
|
|
|
#include "block.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Prototypes for exported functions. */
|
|
|
|
|
|
2000-05-28 03:12:42 +02:00
|
|
|
|
void _initialize_values (void);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Prototypes for local functions. */
|
|
|
|
|
|
2000-05-28 03:12:42 +02:00
|
|
|
|
static void show_values (char *, int);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2000-05-28 03:12:42 +02:00
|
|
|
|
static void show_convenience (char *, int);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* The value-history records all the values printed
|
|
|
|
|
by print commands during this session. Each chunk
|
|
|
|
|
records 60 consecutive values. The first chunk on
|
|
|
|
|
the chain records the most recent values.
|
|
|
|
|
The total number of values is in value_history_count. */
|
|
|
|
|
|
|
|
|
|
#define VALUE_HISTORY_CHUNK 60
|
|
|
|
|
|
|
|
|
|
struct value_history_chunk
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
|
|
|
|
struct value_history_chunk *next;
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *values[VALUE_HISTORY_CHUNK];
|
1999-07-07 22:19:36 +02:00
|
|
|
|
};
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Chain of chunks now in use. */
|
|
|
|
|
|
|
|
|
|
static struct value_history_chunk *value_history_chain;
|
|
|
|
|
|
|
|
|
|
static int value_history_count; /* Abs number of last entry stored */
|
|
|
|
|
|
|
|
|
|
/* List of all value objects currently allocated
|
|
|
|
|
(except for those released by calls to release_value)
|
|
|
|
|
This is so they can be freed after each command. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
static struct value *all_values;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Allocate a value that has the correct length for type TYPE. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
allocate_value (struct type *type)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct type *atype = check_typedef (type);
|
|
|
|
|
|
|
|
|
|
val = (struct value *) xmalloc (sizeof (struct value) + TYPE_LENGTH (atype));
|
|
|
|
|
VALUE_NEXT (val) = all_values;
|
|
|
|
|
all_values = val;
|
|
|
|
|
VALUE_TYPE (val) = type;
|
|
|
|
|
VALUE_ENCLOSING_TYPE (val) = type;
|
|
|
|
|
VALUE_LVAL (val) = not_lval;
|
|
|
|
|
VALUE_ADDRESS (val) = 0;
|
2003-06-05 22:59:16 +02:00
|
|
|
|
VALUE_FRAME_ID (val) = null_frame_id;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_OFFSET (val) = 0;
|
|
|
|
|
VALUE_BITPOS (val) = 0;
|
|
|
|
|
VALUE_BITSIZE (val) = 0;
|
|
|
|
|
VALUE_REGNO (val) = -1;
|
|
|
|
|
VALUE_LAZY (val) = 0;
|
|
|
|
|
VALUE_OPTIMIZED_OUT (val) = 0;
|
|
|
|
|
VALUE_BFD_SECTION (val) = NULL;
|
|
|
|
|
VALUE_EMBEDDED_OFFSET (val) = 0;
|
|
|
|
|
VALUE_POINTED_TO_OFFSET (val) = 0;
|
|
|
|
|
val->modifiable = 1;
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Allocate a value that has the correct length
|
|
|
|
|
for COUNT repetitions type TYPE. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
allocate_repeat_value (struct type *type, int count)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
int low_bound = current_language->string_lower_bound; /* ??? */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* FIXME-type-allocation: need a way to free this type when we are
|
|
|
|
|
done with it. */
|
|
|
|
|
struct type *range_type
|
1999-07-07 22:19:36 +02:00
|
|
|
|
= create_range_type ((struct type *) NULL, builtin_type_int,
|
|
|
|
|
low_bound, count + low_bound - 1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* FIXME-type-allocation: need a way to free this type when we are
|
|
|
|
|
done with it. */
|
|
|
|
|
return allocate_value (create_array_type ((struct type *) NULL,
|
|
|
|
|
type, range_type));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a mark in the value chain. All values allocated after the
|
|
|
|
|
mark is obtained (except for those released) are subject to being freed
|
|
|
|
|
if a subsequent value_free_to_mark is passed the mark. */
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_mark (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return all_values;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free all values allocated since MARK was obtained by value_mark
|
|
|
|
|
(except for those released). */
|
|
|
|
|
void
|
2002-01-04 06:20:09 +01:00
|
|
|
|
value_free_to_mark (struct value *mark)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
|
|
|
|
struct value *next;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
for (val = all_values; val && val != mark; val = next)
|
|
|
|
|
{
|
|
|
|
|
next = VALUE_NEXT (val);
|
|
|
|
|
value_free (val);
|
|
|
|
|
}
|
|
|
|
|
all_values = val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free all the values that have been allocated (except for those released).
|
|
|
|
|
Called after each command, successful or not. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
free_all_values (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
|
|
|
|
struct value *next;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
for (val = all_values; val; val = next)
|
|
|
|
|
{
|
|
|
|
|
next = VALUE_NEXT (val);
|
|
|
|
|
value_free (val);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
all_values = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Remove VAL from the chain all_values
|
|
|
|
|
so it will not be freed automatically. */
|
|
|
|
|
|
|
|
|
|
void
|
2002-01-04 06:20:09 +01:00
|
|
|
|
release_value (struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *v;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (all_values == val)
|
|
|
|
|
{
|
|
|
|
|
all_values = val->next;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (v = all_values; v; v = v->next)
|
|
|
|
|
{
|
|
|
|
|
if (v->next == val)
|
|
|
|
|
{
|
|
|
|
|
v->next = val->next;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Release all values up to mark */
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
|
|
|
|
value_release_to_mark (struct value *mark)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
|
|
|
|
struct value *next;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
for (val = next = all_values; next; next = VALUE_NEXT (next))
|
|
|
|
|
if (VALUE_NEXT (next) == mark)
|
|
|
|
|
{
|
|
|
|
|
all_values = VALUE_NEXT (next);
|
|
|
|
|
VALUE_NEXT (next) = 0;
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
all_values = 0;
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a copy of the value ARG.
|
|
|
|
|
It contains the same contents, for same memory address,
|
|
|
|
|
but it's a different block of storage. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
|
|
|
|
value_copy (struct value *arg)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
struct type *encl_type = VALUE_ENCLOSING_TYPE (arg);
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val = allocate_value (encl_type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_TYPE (val) = VALUE_TYPE (arg);
|
|
|
|
|
VALUE_LVAL (val) = VALUE_LVAL (arg);
|
|
|
|
|
VALUE_ADDRESS (val) = VALUE_ADDRESS (arg);
|
|
|
|
|
VALUE_OFFSET (val) = VALUE_OFFSET (arg);
|
|
|
|
|
VALUE_BITPOS (val) = VALUE_BITPOS (arg);
|
|
|
|
|
VALUE_BITSIZE (val) = VALUE_BITSIZE (arg);
|
2003-06-05 22:59:16 +02:00
|
|
|
|
VALUE_FRAME_ID (val) = VALUE_FRAME_ID (arg);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_REGNO (val) = VALUE_REGNO (arg);
|
|
|
|
|
VALUE_LAZY (val) = VALUE_LAZY (arg);
|
|
|
|
|
VALUE_OPTIMIZED_OUT (val) = VALUE_OPTIMIZED_OUT (arg);
|
|
|
|
|
VALUE_EMBEDDED_OFFSET (val) = VALUE_EMBEDDED_OFFSET (arg);
|
|
|
|
|
VALUE_POINTED_TO_OFFSET (val) = VALUE_POINTED_TO_OFFSET (arg);
|
|
|
|
|
VALUE_BFD_SECTION (val) = VALUE_BFD_SECTION (arg);
|
|
|
|
|
val->modifiable = arg->modifiable;
|
|
|
|
|
if (!VALUE_LAZY (val))
|
|
|
|
|
{
|
|
|
|
|
memcpy (VALUE_CONTENTS_ALL_RAW (val), VALUE_CONTENTS_ALL_RAW (arg),
|
|
|
|
|
TYPE_LENGTH (VALUE_ENCLOSING_TYPE (arg)));
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Access to the value history. */
|
|
|
|
|
|
|
|
|
|
/* Record a new value in the value history.
|
|
|
|
|
Returns the absolute history index of the entry.
|
|
|
|
|
Result of -1 indicates the value was not saved; otherwise it is the
|
|
|
|
|
value history index of this new item. */
|
|
|
|
|
|
|
|
|
|
int
|
2002-01-04 06:20:09 +01:00
|
|
|
|
record_latest_value (struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* We don't want this value to have anything to do with the inferior anymore.
|
|
|
|
|
In particular, "set $1 = 50" should not affect the variable from which
|
|
|
|
|
the value was taken, and fast watchpoints should be able to assume that
|
|
|
|
|
a value on the value history never changes. */
|
|
|
|
|
if (VALUE_LAZY (val))
|
|
|
|
|
value_fetch_lazy (val);
|
|
|
|
|
/* We preserve VALUE_LVAL so that the user can find out where it was fetched
|
|
|
|
|
from. This is a bit dubious, because then *&$1 does not just return $1
|
|
|
|
|
but the current contents of that location. c'est la vie... */
|
|
|
|
|
val->modifiable = 0;
|
|
|
|
|
release_value (val);
|
|
|
|
|
|
|
|
|
|
/* Here we treat value_history_count as origin-zero
|
|
|
|
|
and applying to the value being stored now. */
|
|
|
|
|
|
|
|
|
|
i = value_history_count % VALUE_HISTORY_CHUNK;
|
|
|
|
|
if (i == 0)
|
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value_history_chunk *new
|
1999-07-07 22:19:36 +02:00
|
|
|
|
= (struct value_history_chunk *)
|
|
|
|
|
xmalloc (sizeof (struct value_history_chunk));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
memset (new->values, 0, sizeof new->values);
|
|
|
|
|
new->next = value_history_chain;
|
|
|
|
|
value_history_chain = new;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
value_history_chain->values[i] = val;
|
|
|
|
|
|
|
|
|
|
/* Now we regard value_history_count as origin-one
|
|
|
|
|
and applying to the value just stored. */
|
|
|
|
|
|
|
|
|
|
return ++value_history_count;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a copy of the value in the history with sequence number NUM. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
access_value_history (int num)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value_history_chunk *chunk;
|
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 18:32:14 +02:00
|
|
|
|
int i;
|
|
|
|
|
int absnum = num;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (absnum <= 0)
|
|
|
|
|
absnum += value_history_count;
|
|
|
|
|
|
|
|
|
|
if (absnum <= 0)
|
|
|
|
|
{
|
|
|
|
|
if (num == 0)
|
|
|
|
|
error ("The history is empty.");
|
|
|
|
|
else if (num == 1)
|
|
|
|
|
error ("There is only one value in the history.");
|
|
|
|
|
else
|
|
|
|
|
error ("History does not go back to $$%d.", -num);
|
|
|
|
|
}
|
|
|
|
|
if (absnum > value_history_count)
|
|
|
|
|
error ("History has not yet reached $%d.", absnum);
|
|
|
|
|
|
|
|
|
|
absnum--;
|
|
|
|
|
|
|
|
|
|
/* Now absnum is always absolute and origin zero. */
|
|
|
|
|
|
|
|
|
|
chunk = value_history_chain;
|
|
|
|
|
for (i = (value_history_count - 1) / VALUE_HISTORY_CHUNK - absnum / VALUE_HISTORY_CHUNK;
|
|
|
|
|
i > 0; i--)
|
|
|
|
|
chunk = chunk->next;
|
|
|
|
|
|
|
|
|
|
return value_copy (chunk->values[absnum % VALUE_HISTORY_CHUNK]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Clear the value history entirely.
|
|
|
|
|
Must be done when new symbol tables are loaded,
|
|
|
|
|
because the type pointers become invalid. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
clear_value_history (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value_history_chunk *next;
|
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 18:32:14 +02:00
|
|
|
|
int i;
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
while (value_history_chain)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < VALUE_HISTORY_CHUNK; i++)
|
|
|
|
|
if ((val = value_history_chain->values[i]) != NULL)
|
2000-12-15 02:01:51 +01:00
|
|
|
|
xfree (val);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
next = value_history_chain->next;
|
2000-12-15 02:01:51 +01:00
|
|
|
|
xfree (value_history_chain);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
value_history_chain = next;
|
|
|
|
|
}
|
|
|
|
|
value_history_count = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
show_values (char *num_exp, int from_tty)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
int i;
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
static int num = 1;
|
|
|
|
|
|
|
|
|
|
if (num_exp)
|
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* "info history +" should print from the stored position.
|
|
|
|
|
"info history <exp>" should print around value number <exp>. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (num_exp[0] != '+' || num_exp[1] != '\0')
|
2000-10-30 16:32:51 +01:00
|
|
|
|
num = parse_and_eval_long (num_exp) - 5;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* "info history" means print the last 10 values. */
|
|
|
|
|
num = value_history_count - 9;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (num <= 0)
|
|
|
|
|
num = 1;
|
|
|
|
|
|
|
|
|
|
for (i = num; i < num + 10 && i <= value_history_count; i++)
|
|
|
|
|
{
|
|
|
|
|
val = access_value_history (i);
|
|
|
|
|
printf_filtered ("$%d = ", i);
|
|
|
|
|
value_print (val, gdb_stdout, 0, Val_pretty_default);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The next "info history +" should start after what we just printed. */
|
|
|
|
|
num += 10;
|
|
|
|
|
|
|
|
|
|
/* Hitting just return after this command should do the same thing as
|
|
|
|
|
"info history +". If num_exp is null, this is unnecessary, since
|
|
|
|
|
"info history +" is not useful after "info history". */
|
|
|
|
|
if (from_tty && num_exp)
|
|
|
|
|
{
|
|
|
|
|
num_exp[0] = '+';
|
|
|
|
|
num_exp[1] = '\0';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Internal variables. These are variables within the debugger
|
|
|
|
|
that hold values assigned by debugger commands.
|
|
|
|
|
The user refers to them with a '$' prefix
|
|
|
|
|
that does not appear in the variable names stored internally. */
|
|
|
|
|
|
|
|
|
|
static struct internalvar *internalvars;
|
|
|
|
|
|
|
|
|
|
/* Look up an internal variable with name NAME. NAME should not
|
|
|
|
|
normally include a dollar sign.
|
|
|
|
|
|
|
|
|
|
If the specified internal variable does not exist,
|
|
|
|
|
one is created, with a void value. */
|
|
|
|
|
|
|
|
|
|
struct internalvar *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
lookup_internalvar (char *name)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
struct internalvar *var;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
for (var = internalvars; var; var = var->next)
|
2003-02-07 01:27:31 +01:00
|
|
|
|
if (strcmp (var->name, name) == 0)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return var;
|
|
|
|
|
|
|
|
|
|
var = (struct internalvar *) xmalloc (sizeof (struct internalvar));
|
|
|
|
|
var->name = concat (name, NULL);
|
|
|
|
|
var->value = allocate_value (builtin_type_void);
|
|
|
|
|
release_value (var->value);
|
|
|
|
|
var->next = internalvars;
|
|
|
|
|
internalvars = var;
|
|
|
|
|
return var;
|
|
|
|
|
}
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_of_internalvar (struct internalvar *var)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
val = value_copy (var->value);
|
|
|
|
|
if (VALUE_LAZY (val))
|
|
|
|
|
value_fetch_lazy (val);
|
|
|
|
|
VALUE_LVAL (val) = lval_internalvar;
|
|
|
|
|
VALUE_INTERNALVAR (val) = var;
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
set_internalvar_component (struct internalvar *var, int offset, int bitpos,
|
2002-01-04 06:20:09 +01:00
|
|
|
|
int bitsize, struct value *newval)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
char *addr = VALUE_CONTENTS (var->value) + offset;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (bitsize)
|
|
|
|
|
modify_field (addr, value_as_long (newval),
|
|
|
|
|
bitpos, bitsize);
|
|
|
|
|
else
|
|
|
|
|
memcpy (addr, VALUE_CONTENTS (newval), TYPE_LENGTH (VALUE_TYPE (newval)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2002-01-04 06:20:09 +01:00
|
|
|
|
set_internalvar (struct internalvar *var, struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *newval;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
newval = value_copy (val);
|
|
|
|
|
newval->modifiable = 1;
|
|
|
|
|
|
|
|
|
|
/* Force the value to be fetched from the target now, to avoid problems
|
|
|
|
|
later when this internalvar is referenced and the target is gone or
|
|
|
|
|
has changed. */
|
|
|
|
|
if (VALUE_LAZY (newval))
|
|
|
|
|
value_fetch_lazy (newval);
|
|
|
|
|
|
|
|
|
|
/* Begin code which must not call error(). If var->value points to
|
|
|
|
|
something free'd, an error() obviously leaves a dangling pointer.
|
|
|
|
|
But we also get a danling pointer if var->value points to
|
|
|
|
|
something in the value chain (i.e., before release_value is
|
|
|
|
|
called), because after the error free_all_values will get called before
|
|
|
|
|
long. */
|
2000-12-15 02:01:51 +01:00
|
|
|
|
xfree (var->value);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
var->value = newval;
|
|
|
|
|
release_value (newval);
|
|
|
|
|
/* End code which must not call error(). */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
char *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
internalvar_name (struct internalvar *var)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return var->name;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Free all internalvars. Done when new symtabs are loaded,
|
|
|
|
|
because that makes the values invalid. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
clear_internalvars (void)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
struct internalvar *var;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
while (internalvars)
|
|
|
|
|
{
|
|
|
|
|
var = internalvars;
|
|
|
|
|
internalvars = var->next;
|
2000-12-15 02:01:51 +01:00
|
|
|
|
xfree (var->name);
|
|
|
|
|
xfree (var->value);
|
|
|
|
|
xfree (var);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
show_convenience (char *ignore, int from_tty)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
struct internalvar *var;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
int varseen = 0;
|
|
|
|
|
|
|
|
|
|
for (var = internalvars; var; var = var->next)
|
|
|
|
|
{
|
|
|
|
|
if (!varseen)
|
|
|
|
|
{
|
|
|
|
|
varseen = 1;
|
|
|
|
|
}
|
|
|
|
|
printf_filtered ("$%s = ", var->name);
|
|
|
|
|
value_print (var->value, gdb_stdout, 0, Val_pretty_default);
|
|
|
|
|
printf_filtered ("\n");
|
|
|
|
|
}
|
|
|
|
|
if (!varseen)
|
|
|
|
|
printf_unfiltered ("No debugger convenience variables now defined.\n\
|
|
|
|
|
Convenience variables have names starting with \"$\";\n\
|
|
|
|
|
use \"set\" as in \"set $foo = 5\" to define them.\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Extract a value as a C number (either long or double).
|
|
|
|
|
Knows how to convert fixed values to double, or
|
|
|
|
|
floating values to long.
|
|
|
|
|
Does not deallocate the value. */
|
|
|
|
|
|
|
|
|
|
LONGEST
|
2002-01-04 06:20:09 +01:00
|
|
|
|
value_as_long (struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* This coerces arrays and functions, which is necessary (e.g.
|
|
|
|
|
in disassemble_command). It also dereferences references, which
|
|
|
|
|
I suspect is the most logical thing to do. */
|
|
|
|
|
COERCE_ARRAY (val);
|
|
|
|
|
return unpack_long (VALUE_TYPE (val), VALUE_CONTENTS (val));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
DOUBLEST
|
2002-01-04 06:20:09 +01:00
|
|
|
|
value_as_double (struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
DOUBLEST foo;
|
|
|
|
|
int inv;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
foo = unpack_double (VALUE_TYPE (val), VALUE_CONTENTS (val), &inv);
|
|
|
|
|
if (inv)
|
|
|
|
|
error ("Invalid floating value found in program.");
|
|
|
|
|
return foo;
|
|
|
|
|
}
|
* 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 20:43:41 +02:00
|
|
|
|
/* Extract a value as a C pointer. Does not deallocate the value.
|
|
|
|
|
Note that val's type may not actually be a pointer; value_as_long
|
|
|
|
|
handles all the cases. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
CORE_ADDR
|
2002-01-04 06:20:09 +01:00
|
|
|
|
value_as_address (struct value *val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
|
|
|
|
|
whether we want this to be true eventually. */
|
|
|
|
|
#if 0
|
|
|
|
|
/* ADDR_BITS_REMOVE is wrong if we are being called for a
|
|
|
|
|
non-address (e.g. argument to "signal", "info break", etc.), or
|
|
|
|
|
for pointers to char, in which the low bits *are* significant. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return ADDR_BITS_REMOVE (value_as_long (val));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#else
|
2001-11-09 17:41:50 +01:00
|
|
|
|
|
|
|
|
|
/* There are several targets (IA-64, PowerPC, and others) which
|
|
|
|
|
don't represent pointers to functions as simply the address of
|
|
|
|
|
the function's entry point. For example, on the IA-64, a
|
|
|
|
|
function pointer points to a two-word descriptor, generated by
|
|
|
|
|
the linker, which contains the function's entry point, and the
|
|
|
|
|
value the IA-64 "global pointer" register should have --- to
|
|
|
|
|
support position-independent code. The linker generates
|
|
|
|
|
descriptors only for those functions whose addresses are taken.
|
|
|
|
|
|
|
|
|
|
On such targets, it's difficult for GDB to convert an arbitrary
|
|
|
|
|
function address into a function pointer; it has to either find
|
|
|
|
|
an existing descriptor for that function, or call malloc and
|
|
|
|
|
build its own. On some targets, it is impossible for GDB to
|
|
|
|
|
build a descriptor at all: the descriptor must contain a jump
|
|
|
|
|
instruction; data memory cannot be executed; and code memory
|
|
|
|
|
cannot be modified.
|
|
|
|
|
|
|
|
|
|
Upon entry to this function, if VAL is a value of type `function'
|
|
|
|
|
(that is, TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC), then
|
|
|
|
|
VALUE_ADDRESS (val) is the address of the function. This is what
|
|
|
|
|
you'll get if you evaluate an expression like `main'. The call
|
|
|
|
|
to COERCE_ARRAY below actually does all the usual unary
|
|
|
|
|
conversions, which includes converting values of type `function'
|
|
|
|
|
to `pointer to function'. This is the challenging conversion
|
|
|
|
|
discussed above. Then, `unpack_long' will convert that pointer
|
|
|
|
|
back into an address.
|
|
|
|
|
|
|
|
|
|
So, suppose the user types `disassemble foo' on an architecture
|
|
|
|
|
with a strange function pointer representation, on which GDB
|
|
|
|
|
cannot build its own descriptors, and suppose further that `foo'
|
|
|
|
|
has no linker-built descriptor. The address->pointer conversion
|
|
|
|
|
will signal an error and prevent the command from running, even
|
|
|
|
|
though the next step would have been to convert the pointer
|
|
|
|
|
directly back into the same address.
|
|
|
|
|
|
|
|
|
|
The following shortcut avoids this whole mess. If VAL is a
|
|
|
|
|
function, just return its address directly. */
|
|
|
|
|
if (TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_FUNC
|
|
|
|
|
|| TYPE_CODE (VALUE_TYPE (val)) == TYPE_CODE_METHOD)
|
|
|
|
|
return VALUE_ADDRESS (val);
|
|
|
|
|
|
2000-07-17 05:39:34 +02:00
|
|
|
|
COERCE_ARRAY (val);
|
2001-10-15 20:18:30 +02:00
|
|
|
|
|
|
|
|
|
/* Some architectures (e.g. Harvard), map instruction and data
|
|
|
|
|
addresses onto a single large unified address space. For
|
|
|
|
|
instance: An architecture may consider a large integer in the
|
|
|
|
|
range 0x10000000 .. 0x1000ffff to already represent a data
|
|
|
|
|
addresses (hence not need a pointer to address conversion) while
|
|
|
|
|
a small integer would still need to be converted integer to
|
|
|
|
|
pointer to address. Just assume such architectures handle all
|
|
|
|
|
integer conversions in a single function. */
|
|
|
|
|
|
|
|
|
|
/* JimB writes:
|
|
|
|
|
|
|
|
|
|
I think INTEGER_TO_ADDRESS is a good idea as proposed --- but we
|
|
|
|
|
must admonish GDB hackers to make sure its behavior matches the
|
|
|
|
|
compiler's, whenever possible.
|
|
|
|
|
|
|
|
|
|
In general, I think GDB should evaluate expressions the same way
|
|
|
|
|
the compiler does. When the user copies an expression out of
|
|
|
|
|
their source code and hands it to a `print' command, they should
|
|
|
|
|
get the same value the compiler would have computed. Any
|
|
|
|
|
deviation from this rule can cause major confusion and annoyance,
|
|
|
|
|
and needs to be justified carefully. In other words, GDB doesn't
|
|
|
|
|
really have the freedom to do these conversions in clever and
|
|
|
|
|
useful ways.
|
|
|
|
|
|
|
|
|
|
AndrewC pointed out that users aren't complaining about how GDB
|
|
|
|
|
casts integers to pointers; they are complaining that they can't
|
|
|
|
|
take an address from a disassembly listing and give it to `x/i'.
|
|
|
|
|
This is certainly important.
|
|
|
|
|
|
|
|
|
|
Adding an architecture method like INTEGER_TO_ADDRESS certainly
|
|
|
|
|
makes it possible for GDB to "get it right" in all circumstances
|
|
|
|
|
--- the target has complete control over how things get done, so
|
|
|
|
|
people can Do The Right Thing for their target without breaking
|
|
|
|
|
anyone else. The standard doesn't specify how integers get
|
|
|
|
|
converted to pointers; usually, the ABI doesn't either, but
|
|
|
|
|
ABI-specific code is a more reasonable place to handle it. */
|
|
|
|
|
|
|
|
|
|
if (TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_PTR
|
|
|
|
|
&& TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_REF
|
|
|
|
|
&& INTEGER_TO_ADDRESS_P ())
|
|
|
|
|
return INTEGER_TO_ADDRESS (VALUE_TYPE (val), VALUE_CONTENTS (val));
|
|
|
|
|
|
2000-07-17 05:39:34 +02:00
|
|
|
|
return unpack_long (VALUE_TYPE (val), VALUE_CONTENTS (val));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Unpack raw data (copied from debugee, target byte order) at VALADDR
|
|
|
|
|
as a long, or as a double, assuming the raw data is described
|
|
|
|
|
by type TYPE. Knows how to convert different sizes of values
|
|
|
|
|
and can convert between fixed and floating point. We don't assume
|
|
|
|
|
any alignment for the raw data. Return value is in host byte order.
|
|
|
|
|
|
|
|
|
|
If you want functions and arrays to be coerced to pointers, and
|
|
|
|
|
references to be dereferenced, call value_as_long() instead.
|
|
|
|
|
|
|
|
|
|
C++: It is assumed that the front-end has taken care of
|
|
|
|
|
all matters concerning pointers to members. A pointer
|
|
|
|
|
to member which reaches here is considered to be equivalent
|
|
|
|
|
to an INT (or some size). After all, it is only an offset. */
|
|
|
|
|
|
|
|
|
|
LONGEST
|
2003-01-06 19:49:09 +01:00
|
|
|
|
unpack_long (struct type *type, const char *valaddr)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
enum type_code code = TYPE_CODE (type);
|
|
|
|
|
int len = TYPE_LENGTH (type);
|
|
|
|
|
int nosign = TYPE_UNSIGNED (type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (current_language->la_language == language_scm
|
|
|
|
|
&& is_scmvalue_type (type))
|
|
|
|
|
return scm_unpack (type, valaddr, TYPE_CODE_INT);
|
|
|
|
|
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_CODE_TYPEDEF:
|
|
|
|
|
return unpack_long (check_typedef (type), valaddr);
|
|
|
|
|
case TYPE_CODE_ENUM:
|
|
|
|
|
case TYPE_CODE_BOOL:
|
|
|
|
|
case TYPE_CODE_INT:
|
|
|
|
|
case TYPE_CODE_CHAR:
|
|
|
|
|
case TYPE_CODE_RANGE:
|
|
|
|
|
if (nosign)
|
|
|
|
|
return extract_unsigned_integer (valaddr, len);
|
|
|
|
|
else
|
|
|
|
|
return extract_signed_integer (valaddr, len);
|
|
|
|
|
|
|
|
|
|
case TYPE_CODE_FLT:
|
2001-09-24 19:16:53 +02:00
|
|
|
|
return extract_typed_floating (valaddr, type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
case TYPE_CODE_PTR:
|
|
|
|
|
case TYPE_CODE_REF:
|
|
|
|
|
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
|
1999-07-07 22:19:36 +02:00
|
|
|
|
whether we want this to be true eventually. */
|
* 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 20:43:41 +02:00
|
|
|
|
return extract_typed_address (valaddr, type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
case TYPE_CODE_MEMBER:
|
|
|
|
|
error ("not implemented: member types in unpack_long");
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
error ("Value can't be converted to integer.");
|
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return 0; /* Placate lint. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a double value from the specified type and address.
|
|
|
|
|
INVP points to an int which is set to 0 for valid value,
|
|
|
|
|
1 for invalid value (bad float format). In either case,
|
|
|
|
|
the returned double is OK to use. Argument is in target
|
|
|
|
|
format, result is in host format. */
|
|
|
|
|
|
|
|
|
|
DOUBLEST
|
2003-01-06 19:49:09 +01:00
|
|
|
|
unpack_double (struct type *type, const char *valaddr, int *invp)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
enum type_code code;
|
|
|
|
|
int len;
|
|
|
|
|
int nosign;
|
|
|
|
|
|
|
|
|
|
*invp = 0; /* Assume valid. */
|
|
|
|
|
CHECK_TYPEDEF (type);
|
|
|
|
|
code = TYPE_CODE (type);
|
|
|
|
|
len = TYPE_LENGTH (type);
|
|
|
|
|
nosign = TYPE_UNSIGNED (type);
|
|
|
|
|
if (code == TYPE_CODE_FLT)
|
|
|
|
|
{
|
2002-01-29 04:08:28 +01:00
|
|
|
|
/* NOTE: cagney/2002-02-19: There was a test here to see if the
|
|
|
|
|
floating-point value was valid (using the macro
|
|
|
|
|
INVALID_FLOAT). That test/macro have been removed.
|
|
|
|
|
|
|
|
|
|
It turns out that only the VAX defined this macro and then
|
|
|
|
|
only in a non-portable way. Fixing the portability problem
|
|
|
|
|
wouldn't help since the VAX floating-point code is also badly
|
|
|
|
|
bit-rotten. The target needs to add definitions for the
|
|
|
|
|
methods TARGET_FLOAT_FORMAT and TARGET_DOUBLE_FORMAT - these
|
|
|
|
|
exactly describe the target floating-point format. The
|
|
|
|
|
problem here is that the corresponding floatformat_vax_f and
|
|
|
|
|
floatformat_vax_d values these methods should be set to are
|
|
|
|
|
also not defined either. Oops!
|
|
|
|
|
|
|
|
|
|
Hopefully someone will add both the missing floatformat
|
2003-09-15 22:15:19 +02:00
|
|
|
|
definitions and the new cases for floatformat_is_valid (). */
|
|
|
|
|
|
|
|
|
|
if (!floatformat_is_valid (floatformat_from_type (type), valaddr))
|
|
|
|
|
{
|
|
|
|
|
*invp = 1;
|
|
|
|
|
return 0.0;
|
|
|
|
|
}
|
|
|
|
|
|
2001-09-24 19:16:53 +02:00
|
|
|
|
return extract_typed_floating (valaddr, type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else if (nosign)
|
|
|
|
|
{
|
|
|
|
|
/* Unsigned -- be sure we compensate for signed LONGEST. */
|
|
|
|
|
return (ULONGEST) unpack_long (type, valaddr);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Signed -- we are OK with unpack_long. */
|
|
|
|
|
return unpack_long (type, valaddr);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Unpack raw data (copied from debugee, target byte order) at VALADDR
|
|
|
|
|
as a CORE_ADDR, assuming the raw data is described by type TYPE.
|
|
|
|
|
We don't assume any alignment for the raw data. Return value is in
|
|
|
|
|
host byte order.
|
|
|
|
|
|
|
|
|
|
If you want functions and arrays to be coerced to pointers, and
|
* 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 03:58:07 +02:00
|
|
|
|
references to be dereferenced, call value_as_address() instead.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
C++: It is assumed that the front-end has taken care of
|
|
|
|
|
all matters concerning pointers to members. A pointer
|
|
|
|
|
to member which reaches here is considered to be equivalent
|
|
|
|
|
to an INT (or some size). After all, it is only an offset. */
|
|
|
|
|
|
|
|
|
|
CORE_ADDR
|
2003-01-06 19:49:09 +01:00
|
|
|
|
unpack_pointer (struct type *type, const char *valaddr)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
|
|
|
|
|
whether we want this to be true eventually. */
|
|
|
|
|
return unpack_long (type, valaddr);
|
|
|
|
|
}
|
* 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 20:43:41 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2002-08-20 01:19:53 +02:00
|
|
|
|
/* Get the value of the FIELDN'th field (which must be static) of
|
|
|
|
|
TYPE. Return NULL if the field doesn't exist or has been
|
|
|
|
|
optimized out. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_static_field (struct type *type, int fieldno)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-09-18 17:43:47 +02:00
|
|
|
|
struct value *retval;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (TYPE_FIELD_STATIC_HAS_ADDR (type, fieldno))
|
|
|
|
|
{
|
2002-09-18 17:43:47 +02:00
|
|
|
|
retval = value_at (TYPE_FIELD_TYPE (type, fieldno),
|
|
|
|
|
TYPE_FIELD_STATIC_PHYSADDR (type, fieldno),
|
|
|
|
|
NULL);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *phys_name = TYPE_FIELD_STATIC_PHYSNAME (type, fieldno);
|
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 19:43:20 +02:00
|
|
|
|
struct symbol *sym = lookup_symbol (phys_name, 0, VAR_DOMAIN, 0, NULL);
|
2002-09-18 17:43:47 +02:00
|
|
|
|
if (sym == NULL)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* With some compilers, e.g. HP aCC, static data members are reported
|
1999-07-07 22:19:36 +02:00
|
|
|
|
as non-debuggable symbols */
|
|
|
|
|
struct minimal_symbol *msym = lookup_minimal_symbol (phys_name, NULL, NULL);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (!msym)
|
|
|
|
|
return NULL;
|
|
|
|
|
else
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
2002-09-18 17:43:47 +02:00
|
|
|
|
retval = value_at (TYPE_FIELD_TYPE (type, fieldno),
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (msym),
|
|
|
|
|
SYMBOL_BFD_SECTION (msym));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-09-18 17:43:47 +02:00
|
|
|
|
/* SYM should never have a SYMBOL_CLASS which will require
|
|
|
|
|
read_var_value to use the FRAME parameter. */
|
|
|
|
|
if (symbol_read_needs_frame (sym))
|
|
|
|
|
warning ("static field's value depends on the current "
|
|
|
|
|
"frame - bad debug info?");
|
|
|
|
|
retval = read_var_value (sym, NULL);
|
2001-05-19 17:20:14 +02:00
|
|
|
|
}
|
2002-09-18 17:43:47 +02:00
|
|
|
|
if (retval && VALUE_LVAL (retval) == lval_memory)
|
|
|
|
|
SET_FIELD_PHYSADDR (TYPE_FIELD (type, fieldno),
|
|
|
|
|
VALUE_ADDRESS (retval));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2002-09-18 17:43:47 +02:00
|
|
|
|
return retval;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-05-19 17:20:14 +02:00
|
|
|
|
/* Change the enclosing type of a value object VAL to NEW_ENCL_TYPE.
|
|
|
|
|
You have to be careful here, since the size of the data area for the value
|
|
|
|
|
is set by the length of the enclosing type. So if NEW_ENCL_TYPE is bigger
|
|
|
|
|
than the old enclosing type, you have to allocate more space for the data.
|
|
|
|
|
The return value is a pointer to the new version of this value structure. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
|
|
|
|
value_change_enclosing_type (struct value *val, struct type *new_encl_type)
|
2001-05-19 17:20:14 +02:00
|
|
|
|
{
|
|
|
|
|
if (TYPE_LENGTH (new_encl_type) <= TYPE_LENGTH (VALUE_ENCLOSING_TYPE (val)))
|
|
|
|
|
{
|
|
|
|
|
VALUE_ENCLOSING_TYPE (val) = new_encl_type;
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *new_val;
|
|
|
|
|
struct value *prev;
|
2001-05-19 17:20:14 +02:00
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
new_val = (struct value *) xrealloc (val, sizeof (struct value) + TYPE_LENGTH (new_encl_type));
|
2002-11-05 09:25:13 +01:00
|
|
|
|
|
|
|
|
|
VALUE_ENCLOSING_TYPE (new_val) = new_encl_type;
|
|
|
|
|
|
2001-05-19 17:20:14 +02:00
|
|
|
|
/* We have to make sure this ends up in the same place in the value
|
|
|
|
|
chain as the original copy, so it's clean-up behavior is the same.
|
|
|
|
|
If the value has been released, this is a waste of time, but there
|
|
|
|
|
is no way to tell that in advance, so... */
|
|
|
|
|
|
|
|
|
|
if (val != all_values)
|
|
|
|
|
{
|
|
|
|
|
for (prev = all_values; prev != NULL; prev = prev->next)
|
|
|
|
|
{
|
|
|
|
|
if (prev->next == val)
|
|
|
|
|
{
|
|
|
|
|
prev->next = new_val;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return new_val;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Given a value ARG1 (offset by OFFSET bytes)
|
|
|
|
|
of a struct or union type ARG_TYPE,
|
|
|
|
|
extract and return the value of one of its (non-static) fields.
|
|
|
|
|
FIELDNO says which field. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
|
|
|
|
value_primitive_field (struct value *arg1, int offset,
|
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 20:56:35 +02:00
|
|
|
|
int fieldno, struct type *arg_type)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *v;
|
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 18:32:14 +02:00
|
|
|
|
struct type *type;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
CHECK_TYPEDEF (arg_type);
|
|
|
|
|
type = TYPE_FIELD_TYPE (arg_type, fieldno);
|
|
|
|
|
|
|
|
|
|
/* Handle packed fields */
|
|
|
|
|
|
|
|
|
|
if (TYPE_FIELD_BITSIZE (arg_type, fieldno))
|
|
|
|
|
{
|
|
|
|
|
v = value_from_longest (type,
|
|
|
|
|
unpack_field_as_long (arg_type,
|
|
|
|
|
VALUE_CONTENTS (arg1)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
+ offset,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
fieldno));
|
|
|
|
|
VALUE_BITPOS (v) = TYPE_FIELD_BITPOS (arg_type, fieldno) % 8;
|
|
|
|
|
VALUE_BITSIZE (v) = TYPE_FIELD_BITSIZE (arg_type, fieldno);
|
2000-03-21 02:27:34 +01:00
|
|
|
|
VALUE_OFFSET (v) = VALUE_OFFSET (arg1) + offset
|
|
|
|
|
+ TYPE_FIELD_BITPOS (arg_type, fieldno) / 8;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else if (fieldno < TYPE_N_BASECLASSES (arg_type))
|
|
|
|
|
{
|
|
|
|
|
/* This field is actually a base subobject, so preserve the
|
|
|
|
|
entire object's contents for later references to virtual
|
|
|
|
|
bases, etc. */
|
|
|
|
|
v = allocate_value (VALUE_ENCLOSING_TYPE (arg1));
|
2001-05-21 22:08:59 +02:00
|
|
|
|
VALUE_TYPE (v) = type;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (VALUE_LAZY (arg1))
|
|
|
|
|
VALUE_LAZY (v) = 1;
|
|
|
|
|
else
|
|
|
|
|
memcpy (VALUE_CONTENTS_ALL_RAW (v), VALUE_CONTENTS_ALL_RAW (arg1),
|
|
|
|
|
TYPE_LENGTH (VALUE_ENCLOSING_TYPE (arg1)));
|
|
|
|
|
VALUE_OFFSET (v) = VALUE_OFFSET (arg1);
|
|
|
|
|
VALUE_EMBEDDED_OFFSET (v)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
= offset +
|
|
|
|
|
VALUE_EMBEDDED_OFFSET (arg1) +
|
|
|
|
|
TYPE_FIELD_BITPOS (arg_type, fieldno) / 8;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Plain old data member */
|
|
|
|
|
offset += TYPE_FIELD_BITPOS (arg_type, fieldno) / 8;
|
|
|
|
|
v = allocate_value (type);
|
|
|
|
|
if (VALUE_LAZY (arg1))
|
|
|
|
|
VALUE_LAZY (v) = 1;
|
|
|
|
|
else
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (v),
|
|
|
|
|
VALUE_CONTENTS_RAW (arg1) + offset,
|
|
|
|
|
TYPE_LENGTH (type));
|
2001-11-30 18:47:51 +01:00
|
|
|
|
VALUE_OFFSET (v) = VALUE_OFFSET (arg1) + offset
|
|
|
|
|
+ VALUE_EMBEDDED_OFFSET (arg1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
VALUE_LVAL (v) = VALUE_LVAL (arg1);
|
|
|
|
|
if (VALUE_LVAL (arg1) == lval_internalvar)
|
|
|
|
|
VALUE_LVAL (v) = lval_internalvar_component;
|
|
|
|
|
VALUE_ADDRESS (v) = VALUE_ADDRESS (arg1);
|
2000-06-09 02:51:55 +02:00
|
|
|
|
VALUE_REGNO (v) = VALUE_REGNO (arg1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* VALUE_OFFSET (v) = VALUE_OFFSET (arg1) + offset
|
1999-07-07 22:19:36 +02:00
|
|
|
|
+ TYPE_FIELD_BITPOS (arg_type, fieldno) / 8; */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a value ARG1 of a struct or union type,
|
|
|
|
|
extract and return the value of one of its (non-static) fields.
|
|
|
|
|
FIELDNO says which field. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
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 20:56:35 +02:00
|
|
|
|
value_field (struct value *arg1, int fieldno)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return value_primitive_field (arg1, 0, fieldno, VALUE_TYPE (arg1));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a non-virtual function as a value.
|
|
|
|
|
F is the list of member functions which contains the desired method.
|
2001-12-11 00:05:00 +01:00
|
|
|
|
J is an index into F which provides the desired method.
|
|
|
|
|
|
|
|
|
|
We only use the symbol for its address, so be happy with either a
|
|
|
|
|
full symbol or a minimal symbol.
|
|
|
|
|
*/
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
|
|
|
|
value_fn_field (struct value **arg1p, struct fn_field *f, int j, struct type *type,
|
2000-07-30 03:48:28 +02:00
|
|
|
|
int offset)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *v;
|
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 18:32:14 +02:00
|
|
|
|
struct type *ftype = TYPE_FN_FIELD_TYPE (f, j);
|
2001-12-11 00:05:00 +01:00
|
|
|
|
char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct symbol *sym;
|
2001-12-11 00:05:00 +01:00
|
|
|
|
struct minimal_symbol *msym;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
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 19:43:20 +02:00
|
|
|
|
sym = lookup_symbol (physname, 0, VAR_DOMAIN, 0, NULL);
|
2001-12-11 19:35:38 +01:00
|
|
|
|
if (sym != NULL)
|
2001-12-11 00:05:00 +01:00
|
|
|
|
{
|
2001-12-11 19:35:38 +01:00
|
|
|
|
msym = NULL;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
gdb_assert (sym == NULL);
|
2001-12-11 00:05:00 +01:00
|
|
|
|
msym = lookup_minimal_symbol (physname, NULL, NULL);
|
2001-12-11 19:35:38 +01:00
|
|
|
|
if (msym == NULL)
|
|
|
|
|
return NULL;
|
2001-12-11 00:05:00 +01:00
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
v = allocate_value (ftype);
|
2001-12-11 00:05:00 +01:00
|
|
|
|
if (sym)
|
|
|
|
|
{
|
|
|
|
|
VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (sym));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
VALUE_ADDRESS (v) = SYMBOL_VALUE_ADDRESS (msym);
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (arg1p)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
|
|
|
|
if (type != VALUE_TYPE (*arg1p))
|
|
|
|
|
*arg1p = value_ind (value_cast (lookup_pointer_type (type),
|
|
|
|
|
value_addr (*arg1p)));
|
|
|
|
|
|
2000-04-04 06:53:50 +02:00
|
|
|
|
/* Move the `this' pointer according to the offset.
|
1999-07-07 22:19:36 +02:00
|
|
|
|
VALUE_OFFSET (*arg1p) += offset;
|
|
|
|
|
*/
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Unpack a field FIELDNO of the specified TYPE, from the anonymous object at
|
|
|
|
|
VALADDR.
|
|
|
|
|
|
|
|
|
|
Extracting bits depends on endianness of the machine. Compute the
|
|
|
|
|
number of least significant bits to discard. For big endian machines,
|
|
|
|
|
we compute the total number of bits in the anonymous object, subtract
|
|
|
|
|
off the bit count from the MSB of the object to the MSB of the
|
|
|
|
|
bitfield, then the size of the bitfield, which leaves the LSB discard
|
|
|
|
|
count. For little endian machines, the discard count is simply the
|
|
|
|
|
number of bits from the LSB of the anonymous object to the LSB of the
|
|
|
|
|
bitfield.
|
|
|
|
|
|
|
|
|
|
If the field is signed, we also do sign extension. */
|
|
|
|
|
|
|
|
|
|
LONGEST
|
2003-01-06 19:49:09 +01:00
|
|
|
|
unpack_field_as_long (struct type *type, const char *valaddr, int fieldno)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
ULONGEST val;
|
|
|
|
|
ULONGEST valmask;
|
|
|
|
|
int bitpos = TYPE_FIELD_BITPOS (type, fieldno);
|
|
|
|
|
int bitsize = TYPE_FIELD_BITSIZE (type, fieldno);
|
|
|
|
|
int lsbcount;
|
|
|
|
|
struct type *field_type;
|
|
|
|
|
|
|
|
|
|
val = extract_unsigned_integer (valaddr + bitpos / 8, sizeof (val));
|
|
|
|
|
field_type = TYPE_FIELD_TYPE (type, fieldno);
|
|
|
|
|
CHECK_TYPEDEF (field_type);
|
|
|
|
|
|
|
|
|
|
/* Extract bits. See comment above. */
|
|
|
|
|
|
|
|
|
|
if (BITS_BIG_ENDIAN)
|
|
|
|
|
lsbcount = (sizeof val * 8 - bitpos % 8 - bitsize);
|
|
|
|
|
else
|
|
|
|
|
lsbcount = (bitpos % 8);
|
|
|
|
|
val >>= lsbcount;
|
|
|
|
|
|
|
|
|
|
/* If the field does not entirely fill a LONGEST, then zero the sign bits.
|
|
|
|
|
If the field is signed, and is negative, then sign extend. */
|
|
|
|
|
|
|
|
|
|
if ((bitsize > 0) && (bitsize < 8 * (int) sizeof (val)))
|
|
|
|
|
{
|
|
|
|
|
valmask = (((ULONGEST) 1) << bitsize) - 1;
|
|
|
|
|
val &= valmask;
|
|
|
|
|
if (!TYPE_UNSIGNED (field_type))
|
|
|
|
|
{
|
|
|
|
|
if (val & (valmask ^ (valmask >> 1)))
|
|
|
|
|
{
|
|
|
|
|
val |= ~valmask;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return (val);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Modify the value of a bitfield. ADDR points to a block of memory in
|
|
|
|
|
target byte order; the bitfield starts in the byte pointed to. FIELDVAL
|
|
|
|
|
is the desired value of the field, in host byte order. BITPOS and BITSIZE
|
|
|
|
|
indicate which bits (in target bit order) comprise the bitfield. */
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
modify_field (char *addr, LONGEST fieldval, int bitpos, int bitsize)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
LONGEST oword;
|
|
|
|
|
|
|
|
|
|
/* If a negative fieldval fits in the field in question, chop
|
|
|
|
|
off the sign extension bits. */
|
|
|
|
|
if (bitsize < (8 * (int) sizeof (fieldval))
|
|
|
|
|
&& (~fieldval & ~((1 << (bitsize - 1)) - 1)) == 0)
|
|
|
|
|
fieldval = fieldval & ((1 << bitsize) - 1);
|
|
|
|
|
|
|
|
|
|
/* Warn if value is too big to fit in the field in question. */
|
|
|
|
|
if (bitsize < (8 * (int) sizeof (fieldval))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
&& 0 != (fieldval & ~((1 << bitsize) - 1)))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* FIXME: would like to include fieldval in the message, but
|
1999-07-07 22:19:36 +02:00
|
|
|
|
we don't have a sprintf_longest. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
warning ("Value does not fit in %d bits.", bitsize);
|
|
|
|
|
|
|
|
|
|
/* Truncate it, otherwise adjoining fields may be corrupted. */
|
|
|
|
|
fieldval = fieldval & ((1 << bitsize) - 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
oword = extract_signed_integer (addr, sizeof oword);
|
|
|
|
|
|
|
|
|
|
/* Shifting for bit field depends on endianness of the target machine. */
|
|
|
|
|
if (BITS_BIG_ENDIAN)
|
|
|
|
|
bitpos = sizeof (oword) * 8 - bitpos - bitsize;
|
|
|
|
|
|
|
|
|
|
/* Mask out old value, while avoiding shifts >= size of oword */
|
|
|
|
|
if (bitsize < 8 * (int) sizeof (oword))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
oword &= ~(((((ULONGEST) 1) << bitsize) - 1) << bitpos);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
1999-07-07 22:19:36 +02:00
|
|
|
|
oword &= ~((~(ULONGEST) 0) << bitpos);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
oword |= fieldval << bitpos;
|
|
|
|
|
|
|
|
|
|
store_signed_integer (addr, sizeof oword, oword);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Convert C numbers into newly allocated values */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
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 20:56:35 +02:00
|
|
|
|
value_from_longest (struct type *type, LONGEST num)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val = allocate_value (type);
|
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 18:32:14 +02:00
|
|
|
|
enum type_code code;
|
|
|
|
|
int len;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
retry:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
code = TYPE_CODE (type);
|
|
|
|
|
len = TYPE_LENGTH (type);
|
|
|
|
|
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case TYPE_CODE_TYPEDEF:
|
|
|
|
|
type = check_typedef (type);
|
|
|
|
|
goto retry;
|
|
|
|
|
case TYPE_CODE_INT:
|
|
|
|
|
case TYPE_CODE_CHAR:
|
|
|
|
|
case TYPE_CODE_ENUM:
|
|
|
|
|
case TYPE_CODE_BOOL:
|
|
|
|
|
case TYPE_CODE_RANGE:
|
|
|
|
|
store_signed_integer (VALUE_CONTENTS_RAW (val), len, num);
|
|
|
|
|
break;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case TYPE_CODE_REF:
|
|
|
|
|
case TYPE_CODE_PTR:
|
* 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 20:43:41 +02:00
|
|
|
|
store_typed_address (VALUE_CONTENTS_RAW (val), type, (CORE_ADDR) num);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
break;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
default:
|
|
|
|
|
error ("Unexpected type (%d) encountered for integer constant.", code);
|
|
|
|
|
}
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
* 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 20:43:41 +02:00
|
|
|
|
|
|
|
|
|
/* Create a value representing a pointer of type TYPE to the address
|
|
|
|
|
ADDR. */
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
* 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 20:43:41 +02:00
|
|
|
|
value_from_pointer (struct type *type, CORE_ADDR addr)
|
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val = allocate_value (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 20:43:41 +02:00
|
|
|
|
store_typed_address (VALUE_CONTENTS_RAW (val), type, addr);
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-06-14 20:08:47 +02:00
|
|
|
|
/* Create a value for a string constant to be stored locally
|
2000-04-04 06:53:50 +02:00
|
|
|
|
(not in the inferior's memory space, but in GDB memory).
|
1999-06-14 20:08:47 +02:00
|
|
|
|
This is analogous to value_from_longest, which also does not
|
|
|
|
|
use inferior memory. String shall NOT contain embedded nulls. */
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_from_string (char *ptr)
|
1999-06-14 20:08:47 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
int len = strlen (ptr);
|
1999-06-14 20:08:47 +02:00
|
|
|
|
int lowbound = current_language->string_lower_bound;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
struct type *rangetype =
|
|
|
|
|
create_range_type ((struct type *) NULL,
|
|
|
|
|
builtin_type_int,
|
|
|
|
|
lowbound, len + lowbound - 1);
|
|
|
|
|
struct type *stringtype =
|
|
|
|
|
create_array_type ((struct type *) NULL,
|
|
|
|
|
*current_language->string_char_type,
|
|
|
|
|
rangetype);
|
1999-06-14 20:08:47 +02:00
|
|
|
|
|
|
|
|
|
val = allocate_value (stringtype);
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (val), ptr, len);
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_from_double (struct type *type, DOUBLEST num)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *val = allocate_value (type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct type *base_type = check_typedef (type);
|
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 18:32:14 +02:00
|
|
|
|
enum type_code code = TYPE_CODE (base_type);
|
|
|
|
|
int len = TYPE_LENGTH (base_type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (code == TYPE_CODE_FLT)
|
|
|
|
|
{
|
2001-09-24 19:16:53 +02:00
|
|
|
|
store_typed_floating (VALUE_CONTENTS_RAW (val), base_type, num);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
error ("Unexpected type encountered for floating constant.");
|
|
|
|
|
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
2003-10-20 17:38:02 +02:00
|
|
|
|
/* Deal with the return-value of a function that has "just returned".
|
2003-10-02 06:40:58 +02:00
|
|
|
|
|
2003-10-20 17:38:02 +02:00
|
|
|
|
Extract the return-value (as a "struct value") that a function,
|
|
|
|
|
using register convention, has just returned to its caller. Assume
|
|
|
|
|
that the type of the function is VALTYPE, and that the "just
|
|
|
|
|
returned" register state is found in RETBUF.
|
|
|
|
|
|
|
|
|
|
The function has "just returned" because GDB halts a returning
|
|
|
|
|
function by setting a breakpoint at the return address (in the
|
|
|
|
|
caller), and not the return instruction (in the callee).
|
|
|
|
|
|
|
|
|
|
Because, in the case of a return from an inferior function call,
|
|
|
|
|
GDB needs to restore the inferiors registers, RETBUF is normally a
|
|
|
|
|
copy of the inferior's registers. */
|
2003-10-01 20:48:12 +02:00
|
|
|
|
|
2002-01-04 06:20:09 +01:00
|
|
|
|
struct value *
|
2003-10-02 06:40:58 +02:00
|
|
|
|
register_value_being_returned (struct type *valtype, struct regcache *retbuf)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2003-10-02 06:40:58 +02:00
|
|
|
|
struct value *val = allocate_value (valtype);
|
2003-10-20 17:38:02 +02:00
|
|
|
|
|
2003-10-02 06:40:58 +02:00
|
|
|
|
/* If the function returns void, don't bother fetching the return
|
|
|
|
|
value. */
|
2003-10-20 17:38:02 +02:00
|
|
|
|
if (TYPE_CODE (valtype) == TYPE_CODE_VOID)
|
|
|
|
|
return val;
|
|
|
|
|
|
|
|
|
|
if (!gdbarch_return_value_p (current_gdbarch))
|
|
|
|
|
{
|
|
|
|
|
/* NOTE: cagney/2003-10-20: Unlike "gdbarch_return_value", the
|
|
|
|
|
EXTRACT_RETURN_VALUE and USE_STRUCT_CONVENTION methods do not
|
|
|
|
|
handle the edge case of a function returning a small
|
|
|
|
|
structure / union in registers. */
|
|
|
|
|
CHECK_TYPEDEF (valtype);
|
|
|
|
|
EXTRACT_RETURN_VALUE (valtype, retbuf, VALUE_CONTENTS_RAW (val));
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This function only handles "register convention". */
|
|
|
|
|
gdb_assert (gdbarch_return_value (current_gdbarch, valtype,
|
|
|
|
|
NULL, NULL, NULL)
|
|
|
|
|
== RETURN_VALUE_REGISTER_CONVENTION);
|
|
|
|
|
gdbarch_return_value (current_gdbarch, valtype, retbuf,
|
2003-11-10 23:47:31 +01:00
|
|
|
|
VALUE_CONTENTS_RAW (val) /*read*/, NULL /*write*/);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Should we use EXTRACT_STRUCT_VALUE_ADDRESS instead of
|
|
|
|
|
EXTRACT_RETURN_VALUE? GCC_P is true if compiled with gcc
|
|
|
|
|
and TYPE is the type (which is known to be struct, union or array).
|
|
|
|
|
|
|
|
|
|
On most machines, the struct convention is used unless we are
|
|
|
|
|
using gcc and the type is of a special size. */
|
|
|
|
|
/* As of about 31 Mar 93, GCC was changed to be compatible with the
|
|
|
|
|
native compiler. GCC 2.3.3 was the last release that did it the
|
|
|
|
|
old way. Since gcc2_compiled was not changed, we have no
|
|
|
|
|
way to correctly win in all cases, so we just do the right thing
|
|
|
|
|
for gcc1 and for gcc2 after this change. Thus it loses for gcc
|
|
|
|
|
2.0-2.3.3. This is somewhat unfortunate, but changing gcc2_compiled
|
|
|
|
|
would cause more chaos than dealing with some struct returns being
|
|
|
|
|
handled wrong. */
|
|
|
|
|
|
|
|
|
|
int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
generic_use_struct_convention (int gcc_p, struct type *value_type)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return !((gcc_p == 1)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
&& (TYPE_LENGTH (value_type) == 1
|
|
|
|
|
|| TYPE_LENGTH (value_type) == 2
|
|
|
|
|
|| TYPE_LENGTH (value_type) == 4
|
|
|
|
|
|| TYPE_LENGTH (value_type) == 8));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2003-09-13 23:31:33 +02:00
|
|
|
|
/* Return true if the function returning the specified type is using
|
|
|
|
|
the convention of returning structures in memory (passing in the
|
|
|
|
|
address as a hidden first parameter). GCC_P is nonzero if compiled
|
1999-04-16 03:35:26 +02:00
|
|
|
|
with GCC. */
|
|
|
|
|
|
|
|
|
|
int
|
2003-09-13 23:31:33 +02:00
|
|
|
|
using_struct_return (struct type *value_type, int gcc_p)
|
1999-04-16 03:35:26 +02: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 18:32:14 +02:00
|
|
|
|
enum type_code code = TYPE_CODE (value_type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (code == TYPE_CODE_ERROR)
|
|
|
|
|
error ("Function return type unknown.");
|
|
|
|
|
|
2003-10-20 17:38:02 +02:00
|
|
|
|
if (!gdbarch_return_value_p (current_gdbarch))
|
|
|
|
|
{
|
|
|
|
|
/* FIXME: cagney/2003-10-01: The below is dead. Instead an
|
|
|
|
|
architecture should implement "gdbarch_return_value". Using
|
|
|
|
|
that new function it is possible to exactly specify the ABIs
|
|
|
|
|
"struct return" vs "register return" conventions. */
|
|
|
|
|
if (code == TYPE_CODE_STRUCT
|
|
|
|
|
|| code == TYPE_CODE_UNION
|
|
|
|
|
|| code == TYPE_CODE_ARRAY
|
|
|
|
|
|| RETURN_VALUE_ON_STACK (value_type))
|
|
|
|
|
return USE_STRUCT_CONVENTION (gcc_p, value_type);
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-10-20 17:38:02 +02:00
|
|
|
|
/* Probe the architecture for the return-value convention. */
|
|
|
|
|
return (gdbarch_return_value (current_gdbarch, value_type,
|
|
|
|
|
NULL, NULL, NULL)
|
|
|
|
|
== RETURN_VALUE_STRUCT_CONVENTION);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
_initialize_values (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
add_cmd ("convenience", no_class, show_convenience,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
"Debugger convenience (\"$foo\") variables.\n\
|
1999-04-16 03:35:26 +02:00
|
|
|
|
These variables are created when you assign them values;\n\
|
|
|
|
|
thus, \"print $foo=1\" gives \"$foo\" the value 1. Values may be any type.\n\n\
|
|
|
|
|
A few convenience variables are given values automatically:\n\
|
|
|
|
|
\"$_\"holds the last address examined with \"x\" or \"info lines\",\n\
|
|
|
|
|
\"$__\" holds the contents of the last address examined with \"x\".",
|
|
|
|
|
&showlist);
|
|
|
|
|
|
|
|
|
|
add_cmd ("values", no_class, show_values,
|
|
|
|
|
"Elements of value history around item number IDX (or last ten).",
|
|
|
|
|
&showlist);
|
|
|
|
|
}
|