1999-04-16 03:35:26 +02:00
|
|
|
|
/* Find a variable's value in memory, 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
|
|
|
|
|
|
|
|
|
Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
|
|
|
|
1995, 1996, 1997, 1998, 1999, 2000, 2001, 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 "symtab.h"
|
|
|
|
|
#include "gdbtypes.h"
|
|
|
|
|
#include "frame.h"
|
|
|
|
|
#include "value.h"
|
|
|
|
|
#include "gdbcore.h"
|
|
|
|
|
#include "inferior.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include "gdb_string.h"
|
2001-12-03 09:41:10 +01:00
|
|
|
|
#include "gdb_assert.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#include "floatformat.h"
|
1999-07-07 22:19:36 +02:00
|
|
|
|
#include "symfile.h" /* for overlay functions */
|
2001-03-01 02:39:22 +01:00
|
|
|
|
#include "regcache.h"
|
2002-04-09 05:06:14 +02:00
|
|
|
|
#include "builtin-regs.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
|
|
|
|
|
|
|
|
|
/* Basic byte-swapping routines. GDB has needed these for a long time...
|
|
|
|
|
All extract a target-format integer at ADDR which is LEN bytes long. */
|
|
|
|
|
|
|
|
|
|
#if TARGET_CHAR_BIT != 8 || HOST_CHAR_BIT != 8
|
|
|
|
|
/* 8 bit characters are a pretty safe assumption these days, so we
|
|
|
|
|
assume it throughout all these swapping routines. If we had to deal with
|
|
|
|
|
9 bit characters, we would need to make len be in bits and would have
|
|
|
|
|
to re-write these routines... */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
you lose
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
2000-03-04 02:05:48 +01:00
|
|
|
|
LONGEST
|
2002-07-25 00:46:48 +02:00
|
|
|
|
extract_signed_integer (const void *addr, int len)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
LONGEST retval;
|
2002-07-25 00:46:48 +02:00
|
|
|
|
const unsigned char *p;
|
|
|
|
|
const unsigned char *startaddr = addr;
|
|
|
|
|
const unsigned char *endaddr = startaddr + len;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (len > (int) sizeof (LONGEST))
|
|
|
|
|
error ("\
|
|
|
|
|
That operation is not available on integers of more than %d bytes.",
|
2002-04-23 05:00:57 +02:00
|
|
|
|
(int) sizeof (LONGEST));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Start at the most significant end of the integer, and work towards
|
|
|
|
|
the least significant. */
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
p = startaddr;
|
|
|
|
|
/* Do the sign extension once at the start. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
retval = ((LONGEST) * p ^ 0x80) - 0x80;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
for (++p; p < endaddr; ++p)
|
|
|
|
|
retval = (retval << 8) | *p;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
p = endaddr - 1;
|
|
|
|
|
/* Do the sign extension once at the start. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
retval = ((LONGEST) * p ^ 0x80) - 0x80;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
for (--p; p >= startaddr; --p)
|
|
|
|
|
retval = (retval << 8) | *p;
|
|
|
|
|
}
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ULONGEST
|
2002-07-25 00:46:48 +02:00
|
|
|
|
extract_unsigned_integer (const void *addr, int len)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
ULONGEST retval;
|
2002-07-25 00:46:48 +02:00
|
|
|
|
const unsigned char *p;
|
|
|
|
|
const unsigned char *startaddr = addr;
|
|
|
|
|
const unsigned char *endaddr = startaddr + len;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (len > (int) sizeof (ULONGEST))
|
|
|
|
|
error ("\
|
|
|
|
|
That operation is not available on integers of more than %d bytes.",
|
2002-04-23 05:00:57 +02:00
|
|
|
|
(int) sizeof (ULONGEST));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Start at the most significant end of the integer, and work towards
|
|
|
|
|
the least significant. */
|
|
|
|
|
retval = 0;
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
for (p = startaddr; p < endaddr; ++p)
|
|
|
|
|
retval = (retval << 8) | *p;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (p = endaddr - 1; p >= startaddr; --p)
|
|
|
|
|
retval = (retval << 8) | *p;
|
|
|
|
|
}
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Sometimes a long long unsigned integer can be extracted as a
|
|
|
|
|
LONGEST value. This is done so that we can print these values
|
|
|
|
|
better. If this integer can be converted to a LONGEST, this
|
|
|
|
|
function returns 1 and sets *PVAL. Otherwise it returns 0. */
|
|
|
|
|
|
|
|
|
|
int
|
2003-01-06 19:49:09 +01:00
|
|
|
|
extract_long_unsigned_integer (const void *addr, int orig_len, LONGEST *pval)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
char *p, *first_addr;
|
|
|
|
|
int len;
|
|
|
|
|
|
|
|
|
|
len = orig_len;
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
for (p = (char *) addr;
|
|
|
|
|
len > (int) sizeof (LONGEST) && p < (char *) addr + orig_len;
|
|
|
|
|
p++)
|
|
|
|
|
{
|
|
|
|
|
if (*p == 0)
|
|
|
|
|
len--;
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
first_addr = p;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
first_addr = (char *) addr;
|
|
|
|
|
for (p = (char *) addr + orig_len - 1;
|
|
|
|
|
len > (int) sizeof (LONGEST) && p >= (char *) addr;
|
|
|
|
|
p--)
|
|
|
|
|
{
|
|
|
|
|
if (*p == 0)
|
|
|
|
|
len--;
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (len <= (int) sizeof (LONGEST))
|
|
|
|
|
{
|
|
|
|
|
*pval = (LONGEST) extract_unsigned_integer (first_addr,
|
|
|
|
|
sizeof (LONGEST));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
* 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
|
|
|
|
|
|
|
|
|
/* Treat the LEN bytes at ADDR as a target-format address, and return
|
|
|
|
|
that address. ADDR is a buffer in the GDB process, not in the
|
|
|
|
|
inferior.
|
|
|
|
|
|
|
|
|
|
This function should only be used by target-specific code. It
|
|
|
|
|
assumes that a pointer has the same representation as that thing's
|
|
|
|
|
address represented as an integer. Some machines use word
|
|
|
|
|
addresses, or similarly munged things, for certain types of
|
|
|
|
|
pointers, so that assumption doesn't hold everywhere.
|
|
|
|
|
|
|
|
|
|
Common code should use extract_typed_address instead, or something
|
|
|
|
|
else based on POINTER_TO_ADDRESS. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
CORE_ADDR
|
2003-01-06 19:49:09 +01:00
|
|
|
|
extract_address (const void *addr, int len)
|
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. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return (CORE_ADDR) extract_unsigned_integer (addr, len);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
* 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
|
|
|
|
|
|
|
|
|
/* Treat the bytes at BUF as a pointer of type TYPE, and return the
|
|
|
|
|
address it represents. */
|
|
|
|
|
CORE_ADDR
|
2003-01-06 19:49:09 +01:00
|
|
|
|
extract_typed_address (const void *buf, struct type *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
|
|
|
|
{
|
|
|
|
|
if (TYPE_CODE (type) != TYPE_CODE_PTR
|
|
|
|
|
&& TYPE_CODE (type) != TYPE_CODE_REF)
|
2001-02-08 07:03:54 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
|
"extract_typed_address: "
|
* 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
|
|
|
|
"type is not a pointer or reference");
|
|
|
|
|
|
|
|
|
|
return POINTER_TO_ADDRESS (type, buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
void
|
2000-03-04 02:05:48 +01:00
|
|
|
|
store_signed_integer (void *addr, int len, LONGEST val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned char *p;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
unsigned char *startaddr = (unsigned char *) addr;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
unsigned char *endaddr = startaddr + len;
|
|
|
|
|
|
|
|
|
|
/* Start at the least significant end of the integer, and work towards
|
|
|
|
|
the most significant. */
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
for (p = endaddr - 1; p >= startaddr; --p)
|
|
|
|
|
{
|
|
|
|
|
*p = val & 0xff;
|
|
|
|
|
val >>= 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (p = startaddr; p < endaddr; ++p)
|
|
|
|
|
{
|
|
|
|
|
*p = val & 0xff;
|
|
|
|
|
val >>= 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2000-03-04 02:05:48 +01:00
|
|
|
|
store_unsigned_integer (void *addr, int len, ULONGEST val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
unsigned char *p;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
unsigned char *startaddr = (unsigned char *) addr;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
unsigned char *endaddr = startaddr + len;
|
|
|
|
|
|
|
|
|
|
/* Start at the least significant end of the integer, and work towards
|
|
|
|
|
the most significant. */
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
for (p = endaddr - 1; p >= startaddr; --p)
|
|
|
|
|
{
|
|
|
|
|
*p = val & 0xff;
|
|
|
|
|
val >>= 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (p = startaddr; p < endaddr; ++p)
|
|
|
|
|
{
|
|
|
|
|
*p = val & 0xff;
|
|
|
|
|
val >>= 8;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
* 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 the address VAL as a LEN-byte value in target byte order at
|
|
|
|
|
ADDR. ADDR is a buffer in the GDB process, not in the inferior.
|
|
|
|
|
|
|
|
|
|
This function should only be used by target-specific code. It
|
|
|
|
|
assumes that a pointer has the same representation as that thing's
|
|
|
|
|
address represented as an integer. Some machines use word
|
|
|
|
|
addresses, or similarly munged things, for certain types of
|
|
|
|
|
pointers, so that assumption doesn't hold everywhere.
|
|
|
|
|
|
|
|
|
|
Common code should use store_typed_address instead, or something else
|
|
|
|
|
based on ADDRESS_TO_POINTER. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
void
|
2000-03-04 02:05:48 +01:00
|
|
|
|
store_address (void *addr, int len, LONGEST val)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
store_unsigned_integer (addr, len, 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Store the address ADDR as a pointer of type TYPE at BUF, in target
|
|
|
|
|
form. */
|
|
|
|
|
void
|
|
|
|
|
store_typed_address (void *buf, struct type *type, CORE_ADDR addr)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_CODE (type) != TYPE_CODE_PTR
|
|
|
|
|
&& TYPE_CODE (type) != TYPE_CODE_REF)
|
2001-02-08 07:03:54 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
|
"store_typed_address: "
|
* 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
|
|
|
|
"type is not a pointer or reference");
|
|
|
|
|
|
|
|
|
|
ADDRESS_TO_POINTER (type, buf, addr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-16 03:57:42 +01:00
|
|
|
|
/* Return a `value' with the contents of (virtual or cooked) register
|
|
|
|
|
REGNUM as found in the specified FRAME. The register's type is
|
2003-03-01 18:03:19 +01:00
|
|
|
|
determined by register_type().
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2002-03-16 03:57:42 +01:00
|
|
|
|
NOTE: returns NULL if register value is not available. Caller will
|
|
|
|
|
check return value or die! */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *
|
2002-03-16 03:57:42 +01:00
|
|
|
|
value_of_register (int regnum, struct frame_info *frame)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
int optim;
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *reg_val;
|
2001-02-06 21:05:42 +01:00
|
|
|
|
char *raw_buffer = (char*) alloca (MAX_REGISTER_RAW_SIZE);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
enum lval_type lval;
|
|
|
|
|
|
2002-04-09 05:06:14 +02:00
|
|
|
|
/* Builtin registers lie completly outside of the range of normal
|
|
|
|
|
registers. Catch them early so that the target never sees them. */
|
|
|
|
|
if (regnum >= NUM_REGS + NUM_PSEUDO_REGS)
|
2003-03-12 23:39:16 +01:00
|
|
|
|
return value_of_builtin_reg (regnum, frame);
|
2002-04-09 05:06:14 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
get_saved_register (raw_buffer, &optim, &addr,
|
2002-03-16 03:57:42 +01:00
|
|
|
|
frame, regnum, &lval);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2002-05-15 03:01:56 +02:00
|
|
|
|
/* FIXME: cagney/2002-05-15: This test is just bogus.
|
|
|
|
|
|
|
|
|
|
It indicates that the target failed to supply a value for a
|
|
|
|
|
register because it was "not available" at this time. Problem
|
|
|
|
|
is, the target still has the register and so get saved_register()
|
|
|
|
|
may be returning a value saved on the stack. */
|
|
|
|
|
|
2000-07-07 Michael Snyder <msnyder@cleaver.cygnus.com>
* findvar.c (_initialize_findvar, build_findvar, write_fp, read_fp,
generic_target_write_fp, generic_target_read_fp, write_sp, read_sp,
generic_target_write_sp, generic_target_read_sp, write_pc, read_pc,
generic_target_write_pc, generic_target_read_pc, write_pc_pid,
read_pc_pid, supply_register, write_register_pid, write_register,
read_register_pid, read_register, write_register_bytes,
read_register_bytes, write_register_gen, read_register_gen,
registers_fetched, registers_changed, find_saved_register,
read_relative_register_raw_bytes, default_get_saved_register,
read_relative_register_raw_bytes_for_frame, get_saved_register):
Move from this file into new file regcache.c.
(register_valid, registers_pid, registers): Ditto.
* regcache.c: New file to hold the register cache.
(register_cached): New function to read register_valid array.
* value.h (register_cached): Declare.
* defs.h (default_get_saved_register): Delete decl of static function.
* Makefile.in: Add regcache module.
2000-07-10 08:16:51 +02:00
|
|
|
|
if (register_cached (regnum) < 0)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return NULL; /* register value not available */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-03-01 18:03:19 +01:00
|
|
|
|
reg_val = allocate_value (register_type (current_gdbarch, regnum));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Convert raw data to virtual format if necessary. */
|
|
|
|
|
|
|
|
|
|
if (REGISTER_CONVERTIBLE (regnum))
|
|
|
|
|
{
|
2003-03-01 18:03:19 +01:00
|
|
|
|
REGISTER_CONVERT_TO_VIRTUAL (regnum, register_type (current_gdbarch, regnum),
|
1999-04-16 03:35:26 +02:00
|
|
|
|
raw_buffer, VALUE_CONTENTS_RAW (reg_val));
|
|
|
|
|
}
|
1999-05-25 20:09:09 +02:00
|
|
|
|
else if (REGISTER_RAW_SIZE (regnum) == REGISTER_VIRTUAL_SIZE (regnum))
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (reg_val), raw_buffer,
|
|
|
|
|
REGISTER_RAW_SIZE (regnum));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-02-08 07:03:54 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
|
"Register \"%s\" (%d) has conflicting raw (%d) and virtual (%d) size",
|
1999-08-09 23:36:23 +02:00
|
|
|
|
REGISTER_NAME (regnum),
|
|
|
|
|
regnum,
|
|
|
|
|
REGISTER_RAW_SIZE (regnum),
|
|
|
|
|
REGISTER_VIRTUAL_SIZE (regnum));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_LVAL (reg_val) = lval;
|
|
|
|
|
VALUE_ADDRESS (reg_val) = addr;
|
|
|
|
|
VALUE_REGNO (reg_val) = regnum;
|
|
|
|
|
VALUE_OPTIMIZED_OUT (reg_val) = optim;
|
|
|
|
|
return reg_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
|
|
|
|
|
|
|
|
|
/* Given a pointer of type TYPE in target form in BUF, return the
|
|
|
|
|
address it represents. */
|
|
|
|
|
CORE_ADDR
|
2003-01-06 19:49:09 +01:00
|
|
|
|
unsigned_pointer_to_address (struct type *type, const void *buf)
|
* 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_address (buf, TYPE_LENGTH (type));
|
|
|
|
|
}
|
|
|
|
|
|
2000-06-04 15:46:37 +02:00
|
|
|
|
CORE_ADDR
|
2003-01-06 19:49:09 +01:00
|
|
|
|
signed_pointer_to_address (struct type *type, const void *buf)
|
2000-06-04 15:46:37 +02:00
|
|
|
|
{
|
|
|
|
|
return extract_signed_integer (buf, TYPE_LENGTH (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
|
|
|
|
|
|
|
|
|
/* Given an address, store it as a pointer of type TYPE in target
|
|
|
|
|
format in BUF. */
|
|
|
|
|
void
|
2000-06-04 15:46:37 +02:00
|
|
|
|
unsigned_address_to_pointer (struct type *type, void *buf, CORE_ADDR addr)
|
* 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_address (buf, TYPE_LENGTH (type), addr);
|
|
|
|
|
}
|
|
|
|
|
|
2000-06-04 15:46:37 +02:00
|
|
|
|
void
|
|
|
|
|
address_to_signed_pointer (struct type *type, void *buf, CORE_ADDR addr)
|
|
|
|
|
{
|
|
|
|
|
store_signed_integer (buf, TYPE_LENGTH (type), addr);
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Will calling read_var_value or locate_var_value on SYM end
|
|
|
|
|
up caring what frame it is being evaluated relative to? SYM must
|
|
|
|
|
be non-NULL. */
|
|
|
|
|
int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
symbol_read_needs_frame (struct symbol *sym)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
switch (SYMBOL_CLASS (sym))
|
|
|
|
|
{
|
|
|
|
|
/* All cases listed explicitly so that gcc -Wall will detect it if
|
1999-07-07 22:19:36 +02:00
|
|
|
|
we failed to consider one. */
|
Based on a patch from Daniel Berlin (dberlin@dberlin.org).
* symtab.h: Add opaque declarations of struct axs_value and
struct agent_expr.
(enum address_class): Add LOC_COMPUTED and LOC_COMPUTED_ARG.
(struct location_funcs): New type.
(struct symbol): Add "loc" to aux_value.
(SYMBOL_LOCATION_BATON, SYMBOL_LOCATION_FUNCS): New macros.
* dwarf2read.c: Include "dwarf2expr.h".
(dwarf2_symbol_mark_computed): New function.
(read_func_scope): Use it.
(var_decode_location): New function.
(new_symbol): Use it.
* dwarf2expr.c, dwarf2expr.h, dwarf2loc.c, dwarf2loc.h: New files.
* Makefile.in (SFILES): Add dwarf2loc.c and dwarf2expr.c.
(dwarf2expr_h, dwarf2loc_h): New variables.
(COMMON_OBS): Add dwarf2expr.o and dwarf2loc.o.
(dwarf2expr.o, dwarf2loc.o): New rules.
(dwarf2read.o): Add $(dwarf2expr_h) and $(dwarf2loc_h).
* buildsym.c (finish_block): Handle LOC_COMPUTED and
LOC_COMPUTED_ARG.
* findvar.c (symbol_read_needs_frame, read_var_value): Likewise.
* m2-exp.y (yylex): Likewise.
* printcmd.c (address_info, print_frame_args): Likewise.
* stack.c (print_block_frame_locals, print_frame_arg_vars): Likewise.
* symmisc.c (print_symbol, print_partial_symbols): Likewise.
* ada-lang.c (ada_resolve_subexp, symtab_for_sym)
(ada_add_block_symbols, fill_in_ada_prototype): Likewise.
* symtab.c (lookup_block_symbol): Likewise.
2003-02-21 16:24:18 +01:00
|
|
|
|
case LOC_COMPUTED:
|
|
|
|
|
case LOC_COMPUTED_ARG:
|
|
|
|
|
{
|
|
|
|
|
struct location_funcs *symfuncs = SYMBOL_LOCATION_FUNCS (sym);
|
|
|
|
|
return (symfuncs->read_needs_frame) (sym);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case LOC_REGISTER:
|
|
|
|
|
case LOC_ARG:
|
|
|
|
|
case LOC_REF_ARG:
|
|
|
|
|
case LOC_REGPARM:
|
|
|
|
|
case LOC_REGPARM_ADDR:
|
|
|
|
|
case LOC_LOCAL:
|
|
|
|
|
case LOC_LOCAL_ARG:
|
|
|
|
|
case LOC_BASEREG:
|
|
|
|
|
case LOC_BASEREG_ARG:
|
2002-10-21 16:55:18 +02:00
|
|
|
|
case LOC_HP_THREAD_LOCAL_STATIC:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
case LOC_UNDEF:
|
|
|
|
|
case LOC_CONST:
|
|
|
|
|
case LOC_STATIC:
|
|
|
|
|
case LOC_INDIRECT:
|
|
|
|
|
case LOC_TYPEDEF:
|
|
|
|
|
|
|
|
|
|
case LOC_LABEL:
|
|
|
|
|
/* Getting the address of a label can be done independently of the block,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
even if some *uses* of that address wouldn't work so well without
|
|
|
|
|
the right frame. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
case LOC_BLOCK:
|
|
|
|
|
case LOC_CONST_BYTES:
|
|
|
|
|
case LOC_UNRESOLVED:
|
|
|
|
|
case LOC_OPTIMIZED_OUT:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a struct symbol for a variable,
|
|
|
|
|
and a stack frame id, read the value of the variable
|
|
|
|
|
and return a (pointer to a) struct value containing the value.
|
|
|
|
|
If the variable cannot be found, return a zero pointer.
|
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* stack.c (selected_frame, select_frame): Move from here ...
* frame.c (selected_frame, select_frame): ... to here. Include
"language.h".
* Makefile.in (frame.o): Update dependencies.
* frame.c (get_selected_frame): New function.
* frame.h (get_selected_frame): Declare.
(deprecated_selected_frame): Rename selected_frame.
* ada-lang.c, ada-tasks.c, breakpoint.c, corelow.c: Update.
* eval.c, f-valprint.c, findvar.c, frame.c, frame.h: Update.
* h8300-tdep.c, h8500-tdep.c, hppa-tdep.c, infcmd.c: Update.
* inflow.c, infrun.c, macroscope.c, mips-tdep.c: Update.
* mn10300-tdep.c, ocd.c, regcache.h, remote-e7000.c: Update.
* remote-mips.c, remote-rdp.c, sh-tdep.c, sparc-tdep.c: Update.
* stack.c, thread.c, tracepoint.c, valops.c, varobj.c: Update.
* z8k-tdep.c, cli/cli-cmds.c: Update.
Index: mi/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* mi/mi-cmd-stack.c, mi/mi-main.c: Update to use
deprecated_selected_frame.
Index: tui/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* tui/tui-hooks.c: Update to use deprecated_selected_frame.
* tui/tui.c, tui/tuiDisassem.c, tui/tuiRegs.c: Ditto.
* tui/tuiSource.c, tui/tuiSourceWin.c, tui/tuiWin.c: Ditto.
2002-11-29 20:15:16 +01:00
|
|
|
|
If FRAME is NULL, use the deprecated_selected_frame. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
read_var_value (register struct symbol *var, struct frame_info *frame)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-11-10 22:34:56 +01:00
|
|
|
|
register struct value *v;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct type *type = SYMBOL_TYPE (var);
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
register int len;
|
|
|
|
|
|
|
|
|
|
v = allocate_value (type);
|
|
|
|
|
VALUE_LVAL (v) = lval_memory; /* The most likely possibility. */
|
|
|
|
|
VALUE_BFD_SECTION (v) = SYMBOL_BFD_SECTION (var);
|
|
|
|
|
|
|
|
|
|
len = TYPE_LENGTH (type);
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if (frame == NULL)
|
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* stack.c (selected_frame, select_frame): Move from here ...
* frame.c (selected_frame, select_frame): ... to here. Include
"language.h".
* Makefile.in (frame.o): Update dependencies.
* frame.c (get_selected_frame): New function.
* frame.h (get_selected_frame): Declare.
(deprecated_selected_frame): Rename selected_frame.
* ada-lang.c, ada-tasks.c, breakpoint.c, corelow.c: Update.
* eval.c, f-valprint.c, findvar.c, frame.c, frame.h: Update.
* h8300-tdep.c, h8500-tdep.c, hppa-tdep.c, infcmd.c: Update.
* inflow.c, infrun.c, macroscope.c, mips-tdep.c: Update.
* mn10300-tdep.c, ocd.c, regcache.h, remote-e7000.c: Update.
* remote-mips.c, remote-rdp.c, sh-tdep.c, sparc-tdep.c: Update.
* stack.c, thread.c, tracepoint.c, valops.c, varobj.c: Update.
* z8k-tdep.c, cli/cli-cmds.c: Update.
Index: mi/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* mi/mi-cmd-stack.c, mi/mi-main.c: Update to use
deprecated_selected_frame.
Index: tui/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* tui/tui-hooks.c: Update to use deprecated_selected_frame.
* tui/tui.c, tui/tuiDisassem.c, tui/tuiRegs.c: Ditto.
* tui/tuiSource.c, tui/tuiSourceWin.c, tui/tuiWin.c: Ditto.
2002-11-29 20:15:16 +01:00
|
|
|
|
frame = deprecated_selected_frame;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
switch (SYMBOL_CLASS (var))
|
|
|
|
|
{
|
|
|
|
|
case LOC_CONST:
|
|
|
|
|
/* Put the constant back in target format. */
|
|
|
|
|
store_signed_integer (VALUE_CONTENTS_RAW (v), len,
|
|
|
|
|
(LONGEST) SYMBOL_VALUE (var));
|
|
|
|
|
VALUE_LVAL (v) = not_lval;
|
|
|
|
|
return v;
|
|
|
|
|
|
|
|
|
|
case LOC_LABEL:
|
|
|
|
|
/* Put the constant back in target format. */
|
|
|
|
|
if (overlay_debugging)
|
* 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
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr
|
|
|
|
|
= symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
|
|
|
|
|
SYMBOL_BFD_SECTION (var));
|
|
|
|
|
store_typed_address (VALUE_CONTENTS_RAW (v), type, addr);
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
* 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 (v), type,
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (var));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_LVAL (v) = not_lval;
|
|
|
|
|
return v;
|
|
|
|
|
|
|
|
|
|
case LOC_CONST_BYTES:
|
|
|
|
|
{
|
|
|
|
|
char *bytes_addr;
|
|
|
|
|
bytes_addr = SYMBOL_VALUE_BYTES (var);
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (v), bytes_addr, len);
|
|
|
|
|
VALUE_LVAL (v) = not_lval;
|
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
case LOC_STATIC:
|
|
|
|
|
if (overlay_debugging)
|
|
|
|
|
addr = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (var),
|
|
|
|
|
SYMBOL_BFD_SECTION (var));
|
|
|
|
|
else
|
|
|
|
|
addr = SYMBOL_VALUE_ADDRESS (var);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_INDIRECT:
|
2001-09-24 21:46:15 +02:00
|
|
|
|
{
|
|
|
|
|
/* The import slot does not have a real address in it from the
|
|
|
|
|
dynamic loader (dld.sl on HP-UX), if the target hasn't
|
|
|
|
|
begun execution yet, so check for that. */
|
|
|
|
|
CORE_ADDR locaddr;
|
|
|
|
|
struct value *loc;
|
|
|
|
|
if (!target_has_execution)
|
|
|
|
|
error ("\
|
1999-04-16 03:35:26 +02:00
|
|
|
|
Attempt to access variable defined in different shared object or load module when\n\
|
|
|
|
|
addresses have not been bound by the dynamic loader. Try again when executable is running.");
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2001-09-24 21:46:15 +02:00
|
|
|
|
locaddr = SYMBOL_VALUE_ADDRESS (var);
|
|
|
|
|
loc = value_at (lookup_pointer_type (type), locaddr, NULL);
|
* 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
|
|
|
|
addr = value_as_address (loc);
|
2001-09-24 21:46:15 +02:00
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
case LOC_ARG:
|
|
|
|
|
if (frame == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
addr = FRAME_ARGS_ADDRESS (frame);
|
|
|
|
|
if (!addr)
|
|
|
|
|
return 0;
|
|
|
|
|
addr += SYMBOL_VALUE (var);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_REF_ARG:
|
2001-09-24 21:46:15 +02:00
|
|
|
|
{
|
|
|
|
|
struct value *ref;
|
|
|
|
|
CORE_ADDR argref;
|
|
|
|
|
if (frame == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
argref = FRAME_ARGS_ADDRESS (frame);
|
|
|
|
|
if (!argref)
|
|
|
|
|
return 0;
|
|
|
|
|
argref += SYMBOL_VALUE (var);
|
|
|
|
|
ref = value_at (lookup_pointer_type (type), argref, NULL);
|
* 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
|
|
|
|
addr = value_as_address (ref);
|
2001-09-24 21:46:15 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
case LOC_LOCAL:
|
|
|
|
|
case LOC_LOCAL_ARG:
|
|
|
|
|
if (frame == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
addr = FRAME_LOCALS_ADDRESS (frame);
|
|
|
|
|
addr += SYMBOL_VALUE (var);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BASEREG:
|
|
|
|
|
case LOC_BASEREG_ARG:
|
2002-10-21 16:55:18 +02:00
|
|
|
|
case LOC_HP_THREAD_LOCAL_STATIC:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *regval;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2001-07-17 00:57:50 +02:00
|
|
|
|
regval = value_from_register (lookup_pointer_type (type),
|
|
|
|
|
SYMBOL_BASEREG (var), frame);
|
|
|
|
|
if (regval == NULL)
|
|
|
|
|
error ("Value of base register not available.");
|
* 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
|
|
|
|
addr = value_as_address (regval);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
addr += SYMBOL_VALUE (var);
|
|
|
|
|
break;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2002-10-21 21:11:50 +02:00
|
|
|
|
case LOC_THREAD_LOCAL_STATIC:
|
|
|
|
|
{
|
|
|
|
|
if (target_get_thread_local_address_p ())
|
|
|
|
|
addr = target_get_thread_local_address (inferior_ptid,
|
|
|
|
|
SYMBOL_OBJFILE (var),
|
|
|
|
|
SYMBOL_VALUE_ADDRESS (var));
|
|
|
|
|
/* It wouldn't be wrong here to try a gdbarch method, too;
|
|
|
|
|
finding TLS is an ABI-specific thing. But we don't do that
|
|
|
|
|
yet. */
|
|
|
|
|
else
|
|
|
|
|
error ("Cannot find thread-local variables on this target");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case LOC_TYPEDEF:
|
|
|
|
|
error ("Cannot look up value of a typedef");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_BLOCK:
|
|
|
|
|
if (overlay_debugging)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
VALUE_ADDRESS (v) = symbol_overlayed_address
|
1999-04-16 03:35:26 +02:00
|
|
|
|
(BLOCK_START (SYMBOL_BLOCK_VALUE (var)), SYMBOL_BFD_SECTION (var));
|
|
|
|
|
else
|
|
|
|
|
VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (var));
|
|
|
|
|
return v;
|
|
|
|
|
|
|
|
|
|
case LOC_REGISTER:
|
|
|
|
|
case LOC_REGPARM:
|
|
|
|
|
case LOC_REGPARM_ADDR:
|
|
|
|
|
{
|
|
|
|
|
struct block *b;
|
|
|
|
|
int regno = SYMBOL_VALUE (var);
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *regval;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (frame == NULL)
|
|
|
|
|
return 0;
|
gdb/ChangeLog:
* stack.c (get_selected_block): Add new argument `addr_in_block',
used to return the exact code address we used to select the block,
not just the block.
* blockframe.c (get_frame_block, get_current_block): Same.
* frame.h (get_frame_block, get_current_block,
get_selected_block): Update declarations.
* linespec.c, stack.c, blockframe.c, breakpoint.c, findvar.c,
linespec.c, varobj.c, printcmd.c, symtab.c: Callers changed.
gdb/mi/ChangeLog:
* mi-cmd-stack.c (list_args_or_locals): Pass new arg to
get_frame_block. (See entry in gdb/ChangeLog.)
2002-04-06 00:04:43 +02:00
|
|
|
|
b = get_frame_block (frame, 0);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (SYMBOL_CLASS (var) == LOC_REGPARM_ADDR)
|
|
|
|
|
{
|
|
|
|
|
regval = value_from_register (lookup_pointer_type (type),
|
1999-07-07 22:19:36 +02:00
|
|
|
|
regno,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
frame);
|
|
|
|
|
|
|
|
|
|
if (regval == NULL)
|
|
|
|
|
error ("Value of register variable not available.");
|
|
|
|
|
|
* 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
|
|
|
|
addr = value_as_address (regval);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_LVAL (v) = lval_memory;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
regval = value_from_register (type, regno, frame);
|
|
|
|
|
|
|
|
|
|
if (regval == NULL)
|
|
|
|
|
error ("Value of register variable not available.");
|
|
|
|
|
return regval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
Based on a patch from Daniel Berlin (dberlin@dberlin.org).
* symtab.h: Add opaque declarations of struct axs_value and
struct agent_expr.
(enum address_class): Add LOC_COMPUTED and LOC_COMPUTED_ARG.
(struct location_funcs): New type.
(struct symbol): Add "loc" to aux_value.
(SYMBOL_LOCATION_BATON, SYMBOL_LOCATION_FUNCS): New macros.
* dwarf2read.c: Include "dwarf2expr.h".
(dwarf2_symbol_mark_computed): New function.
(read_func_scope): Use it.
(var_decode_location): New function.
(new_symbol): Use it.
* dwarf2expr.c, dwarf2expr.h, dwarf2loc.c, dwarf2loc.h: New files.
* Makefile.in (SFILES): Add dwarf2loc.c and dwarf2expr.c.
(dwarf2expr_h, dwarf2loc_h): New variables.
(COMMON_OBS): Add dwarf2expr.o and dwarf2loc.o.
(dwarf2expr.o, dwarf2loc.o): New rules.
(dwarf2read.o): Add $(dwarf2expr_h) and $(dwarf2loc_h).
* buildsym.c (finish_block): Handle LOC_COMPUTED and
LOC_COMPUTED_ARG.
* findvar.c (symbol_read_needs_frame, read_var_value): Likewise.
* m2-exp.y (yylex): Likewise.
* printcmd.c (address_info, print_frame_args): Likewise.
* stack.c (print_block_frame_locals, print_frame_arg_vars): Likewise.
* symmisc.c (print_symbol, print_partial_symbols): Likewise.
* ada-lang.c (ada_resolve_subexp, symtab_for_sym)
(ada_add_block_symbols, fill_in_ada_prototype): Likewise.
* symtab.c (lookup_block_symbol): Likewise.
2003-02-21 16:24:18 +01:00
|
|
|
|
case LOC_COMPUTED:
|
|
|
|
|
case LOC_COMPUTED_ARG:
|
|
|
|
|
{
|
|
|
|
|
struct location_funcs *funcs = SYMBOL_LOCATION_FUNCS (var);
|
|
|
|
|
|
|
|
|
|
if (frame == 0 && (funcs->read_needs_frame) (var))
|
|
|
|
|
return 0;
|
|
|
|
|
return (funcs->read_variable) (var, frame);
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case LOC_UNRESOLVED:
|
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msym;
|
|
|
|
|
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
msym = lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (var), NULL, NULL);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (msym == NULL)
|
|
|
|
|
return 0;
|
|
|
|
|
if (overlay_debugging)
|
|
|
|
|
addr = symbol_overlayed_address (SYMBOL_VALUE_ADDRESS (msym),
|
|
|
|
|
SYMBOL_BFD_SECTION (msym));
|
|
|
|
|
else
|
|
|
|
|
addr = SYMBOL_VALUE_ADDRESS (msym);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case LOC_OPTIMIZED_OUT:
|
|
|
|
|
VALUE_LVAL (v) = not_lval;
|
|
|
|
|
VALUE_OPTIMIZED_OUT (v) = 1;
|
|
|
|
|
return v;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
error ("Cannot look up value of a botched symbol.");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
VALUE_ADDRESS (v) = addr;
|
|
|
|
|
VALUE_LAZY (v) = 1;
|
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a value of type TYPE, stored in register REGNUM, in frame
|
2000-05-24 19:25:39 +02:00
|
|
|
|
FRAME.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
NOTE: returns NULL if register value is not available.
|
|
|
|
|
Caller will check return value or die! */
|
|
|
|
|
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
value_from_register (struct type *type, int regnum, struct frame_info *frame)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-02-06 21:05:42 +01:00
|
|
|
|
char *raw_buffer = (char*) alloca (MAX_REGISTER_RAW_SIZE);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
int optim;
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *v = allocate_value (type);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
char *value_bytes = 0;
|
|
|
|
|
int value_bytes_copied = 0;
|
|
|
|
|
int num_storage_locs;
|
|
|
|
|
enum lval_type lval;
|
|
|
|
|
int len;
|
|
|
|
|
|
|
|
|
|
CHECK_TYPEDEF (type);
|
|
|
|
|
len = TYPE_LENGTH (type);
|
|
|
|
|
|
|
|
|
|
VALUE_REGNO (v) = regnum;
|
|
|
|
|
|
|
|
|
|
num_storage_locs = (len > REGISTER_VIRTUAL_SIZE (regnum) ?
|
|
|
|
|
((len - 1) / REGISTER_RAW_SIZE (regnum)) + 1 :
|
|
|
|
|
1);
|
|
|
|
|
|
|
|
|
|
if (num_storage_locs > 1
|
2003-02-04 23:04:08 +01:00
|
|
|
|
#if 0
|
|
|
|
|
// OBSOLETE #ifdef GDB_TARGET_IS_H8500
|
|
|
|
|
// OBSOLETE || TYPE_CODE (type) == TYPE_CODE_PTR
|
|
|
|
|
// OBSOLETE #endif
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif
|
1999-07-07 22:19:36 +02:00
|
|
|
|
)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* Value spread across multiple storage locations. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
int local_regnum;
|
|
|
|
|
int mem_stor = 0, reg_stor = 0;
|
|
|
|
|
int mem_tracking = 1;
|
|
|
|
|
CORE_ADDR last_addr = 0;
|
|
|
|
|
CORE_ADDR first_addr = 0;
|
|
|
|
|
|
|
|
|
|
value_bytes = (char *) alloca (len + MAX_REGISTER_RAW_SIZE);
|
|
|
|
|
|
|
|
|
|
/* Copy all of the data out, whereever it may be. */
|
|
|
|
|
|
2003-02-04 23:04:08 +01:00
|
|
|
|
#if 0
|
|
|
|
|
// OBSOLETE #ifdef GDB_TARGET_IS_H8500
|
|
|
|
|
// OBSOLETE /* This piece of hideosity is required because the H8500 treats registers
|
|
|
|
|
// OBSOLETE differently depending upon whether they are used as pointers or not. As a
|
|
|
|
|
// OBSOLETE pointer, a register needs to have a page register tacked onto the front.
|
|
|
|
|
// OBSOLETE An alternate way to do this would be to have gcc output different register
|
|
|
|
|
// OBSOLETE numbers for the pointer & non-pointer form of the register. But, it
|
|
|
|
|
// OBSOLETE doesn't, so we're stuck with this. */
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE if (TYPE_CODE (type) == TYPE_CODE_PTR
|
|
|
|
|
// OBSOLETE && len > 2)
|
|
|
|
|
// OBSOLETE {
|
|
|
|
|
// OBSOLETE int page_regnum;
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE switch (regnum)
|
|
|
|
|
// OBSOLETE {
|
|
|
|
|
// OBSOLETE case R0_REGNUM:
|
|
|
|
|
// OBSOLETE case R1_REGNUM:
|
|
|
|
|
// OBSOLETE case R2_REGNUM:
|
|
|
|
|
// OBSOLETE case R3_REGNUM:
|
|
|
|
|
// OBSOLETE page_regnum = SEG_D_REGNUM;
|
|
|
|
|
// OBSOLETE break;
|
|
|
|
|
// OBSOLETE case R4_REGNUM:
|
|
|
|
|
// OBSOLETE case R5_REGNUM:
|
|
|
|
|
// OBSOLETE page_regnum = SEG_E_REGNUM;
|
|
|
|
|
// OBSOLETE break;
|
|
|
|
|
// OBSOLETE case R6_REGNUM:
|
|
|
|
|
// OBSOLETE case R7_REGNUM:
|
|
|
|
|
// OBSOLETE page_regnum = SEG_T_REGNUM;
|
|
|
|
|
// OBSOLETE break;
|
|
|
|
|
// OBSOLETE }
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE value_bytes[0] = 0;
|
|
|
|
|
// OBSOLETE get_saved_register (value_bytes + 1,
|
|
|
|
|
// OBSOLETE &optim,
|
|
|
|
|
// OBSOLETE &addr,
|
|
|
|
|
// OBSOLETE frame,
|
|
|
|
|
// OBSOLETE page_regnum,
|
|
|
|
|
// OBSOLETE &lval);
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE if (register_cached (page_regnum) == -1)
|
|
|
|
|
// OBSOLETE return NULL; /* register value not available */
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE if (lval == lval_register)
|
|
|
|
|
// OBSOLETE reg_stor++;
|
|
|
|
|
// OBSOLETE else
|
|
|
|
|
// OBSOLETE mem_stor++;
|
|
|
|
|
// OBSOLETE first_addr = addr;
|
|
|
|
|
// OBSOLETE last_addr = addr;
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE get_saved_register (value_bytes + 2,
|
|
|
|
|
// OBSOLETE &optim,
|
|
|
|
|
// OBSOLETE &addr,
|
|
|
|
|
// OBSOLETE frame,
|
|
|
|
|
// OBSOLETE regnum,
|
|
|
|
|
// OBSOLETE &lval);
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE if (register_cached (regnum) == -1)
|
|
|
|
|
// OBSOLETE return NULL; /* register value not available */
|
|
|
|
|
// OBSOLETE
|
|
|
|
|
// OBSOLETE if (lval == lval_register)
|
|
|
|
|
// OBSOLETE reg_stor++;
|
|
|
|
|
// OBSOLETE else
|
|
|
|
|
// OBSOLETE {
|
|
|
|
|
// OBSOLETE mem_stor++;
|
|
|
|
|
// OBSOLETE mem_tracking = mem_tracking && (addr == last_addr);
|
|
|
|
|
// OBSOLETE }
|
|
|
|
|
// OBSOLETE last_addr = addr;
|
|
|
|
|
// OBSOLETE }
|
|
|
|
|
// OBSOLETE else
|
|
|
|
|
// OBSOLETE #endif /* GDB_TARGET_IS_H8500 */
|
|
|
|
|
#endif
|
1999-04-16 03:35:26 +02:00
|
|
|
|
for (local_regnum = regnum;
|
|
|
|
|
value_bytes_copied < len;
|
|
|
|
|
(value_bytes_copied += REGISTER_RAW_SIZE (local_regnum),
|
|
|
|
|
++local_regnum))
|
|
|
|
|
{
|
|
|
|
|
get_saved_register (value_bytes + value_bytes_copied,
|
|
|
|
|
&optim,
|
|
|
|
|
&addr,
|
|
|
|
|
frame,
|
|
|
|
|
local_regnum,
|
|
|
|
|
&lval);
|
|
|
|
|
|
2000-07-07 Michael Snyder <msnyder@cleaver.cygnus.com>
* findvar.c (_initialize_findvar, build_findvar, write_fp, read_fp,
generic_target_write_fp, generic_target_read_fp, write_sp, read_sp,
generic_target_write_sp, generic_target_read_sp, write_pc, read_pc,
generic_target_write_pc, generic_target_read_pc, write_pc_pid,
read_pc_pid, supply_register, write_register_pid, write_register,
read_register_pid, read_register, write_register_bytes,
read_register_bytes, write_register_gen, read_register_gen,
registers_fetched, registers_changed, find_saved_register,
read_relative_register_raw_bytes, default_get_saved_register,
read_relative_register_raw_bytes_for_frame, get_saved_register):
Move from this file into new file regcache.c.
(register_valid, registers_pid, registers): Ditto.
* regcache.c: New file to hold the register cache.
(register_cached): New function to read register_valid array.
* value.h (register_cached): Declare.
* defs.h (default_get_saved_register): Delete decl of static function.
* Makefile.in: Add regcache module.
2000-07-10 08:16:51 +02:00
|
|
|
|
if (register_cached (local_regnum) == -1)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return NULL; /* register value not available */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (regnum == local_regnum)
|
|
|
|
|
first_addr = addr;
|
|
|
|
|
if (lval == lval_register)
|
|
|
|
|
reg_stor++;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
mem_stor++;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
mem_tracking =
|
|
|
|
|
(mem_tracking
|
|
|
|
|
&& (regnum == local_regnum
|
|
|
|
|
|| addr == last_addr));
|
|
|
|
|
}
|
|
|
|
|
last_addr = addr;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((reg_stor && mem_stor)
|
|
|
|
|
|| (mem_stor && !mem_tracking))
|
|
|
|
|
/* Mixed storage; all of the hassle we just went through was
|
|
|
|
|
for some good purpose. */
|
|
|
|
|
{
|
|
|
|
|
VALUE_LVAL (v) = lval_reg_frame_relative;
|
2002-11-19 Andrew Cagney <ac131313@redhat.com>
* frame.h (FRAME_FP): Delete macro.
(get_frame_base): New function declaration.
* frame.c (get_frame_base): New function.
(get_frame_id): Use ->frame.
(frame_find_by_id): Rewrite to use get_frame_id.
* blockframe.c: Use get_frame_base instead of FRAME_FP.
* cris-tdep.c, d10v-tdep.c, findvar.c, h8500-tdep.c: Ditto.
* hppa-tdep.c, i386-tdep.c, infcmd.c, infrun.c: Ditto.
* m68hc11-tdep.c, m68k-tdep.c, mcore-tdep.c, mips-tdep.c: Ditto.
* mn10200-tdep.c, mn10300-tdep.c, rs6000-tdep.c: Ditto.
* sh-tdep.c, sparc-tdep.c, stack.c, tracepoint.c: Ditto.
* v850-tdep.c, valops.c, z8k-tdep.c: Ditto.
2002-11-24 20:48:13 +01:00
|
|
|
|
VALUE_FRAME (v) = get_frame_base (frame);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_FRAME_REGNUM (v) = regnum;
|
|
|
|
|
}
|
|
|
|
|
else if (mem_stor)
|
|
|
|
|
{
|
|
|
|
|
VALUE_LVAL (v) = lval_memory;
|
|
|
|
|
VALUE_ADDRESS (v) = first_addr;
|
|
|
|
|
}
|
|
|
|
|
else if (reg_stor)
|
|
|
|
|
{
|
|
|
|
|
VALUE_LVAL (v) = lval_register;
|
|
|
|
|
VALUE_ADDRESS (v) = first_addr;
|
|
|
|
|
}
|
|
|
|
|
else
|
2001-02-08 07:03:54 +01:00
|
|
|
|
internal_error (__FILE__, __LINE__,
|
|
|
|
|
"value_from_register: Value not stored anywhere!");
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
VALUE_OPTIMIZED_OUT (v) = optim;
|
|
|
|
|
|
|
|
|
|
/* Any structure stored in more than one register will always be
|
1999-07-07 22:19:36 +02:00
|
|
|
|
an integral number of registers. Otherwise, you'd need to do
|
|
|
|
|
some fiddling with the last register copied here for little
|
|
|
|
|
endian machines. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Copy into the contents section of the value. */
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (v), value_bytes, len);
|
|
|
|
|
|
|
|
|
|
/* Finally do any conversion necessary when extracting this
|
|
|
|
|
type from more than one register. */
|
|
|
|
|
#ifdef REGISTER_CONVERT_TO_TYPE
|
1999-07-07 22:19:36 +02:00
|
|
|
|
REGISTER_CONVERT_TO_TYPE (regnum, type, VALUE_CONTENTS_RAW (v));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif
|
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Data is completely contained within a single register. Locate the
|
|
|
|
|
register's contents in a real register or in core;
|
|
|
|
|
read the data in raw format. */
|
|
|
|
|
|
|
|
|
|
get_saved_register (raw_buffer, &optim, &addr, frame, regnum, &lval);
|
|
|
|
|
|
2000-07-07 Michael Snyder <msnyder@cleaver.cygnus.com>
* findvar.c (_initialize_findvar, build_findvar, write_fp, read_fp,
generic_target_write_fp, generic_target_read_fp, write_sp, read_sp,
generic_target_write_sp, generic_target_read_sp, write_pc, read_pc,
generic_target_write_pc, generic_target_read_pc, write_pc_pid,
read_pc_pid, supply_register, write_register_pid, write_register,
read_register_pid, read_register, write_register_bytes,
read_register_bytes, write_register_gen, read_register_gen,
registers_fetched, registers_changed, find_saved_register,
read_relative_register_raw_bytes, default_get_saved_register,
read_relative_register_raw_bytes_for_frame, get_saved_register):
Move from this file into new file regcache.c.
(register_valid, registers_pid, registers): Ditto.
* regcache.c: New file to hold the register cache.
(register_cached): New function to read register_valid array.
* value.h (register_cached): Declare.
* defs.h (default_get_saved_register): Delete decl of static function.
* Makefile.in: Add regcache module.
2000-07-10 08:16:51 +02:00
|
|
|
|
if (register_cached (regnum) == -1)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return NULL; /* register value not available */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
VALUE_OPTIMIZED_OUT (v) = optim;
|
|
|
|
|
VALUE_LVAL (v) = lval;
|
|
|
|
|
VALUE_ADDRESS (v) = addr;
|
|
|
|
|
|
2002-05-12 05:09:12 +02:00
|
|
|
|
/* Convert the raw register to the corresponding data value's memory
|
|
|
|
|
format, if necessary. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2002-05-12 05:09:12 +02:00
|
|
|
|
if (CONVERT_REGISTER_P (regnum))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2002-05-12 05:09:12 +02:00
|
|
|
|
REGISTER_TO_VALUE (regnum, type, raw_buffer, VALUE_CONTENTS_RAW (v));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Raw and virtual formats are the same for this register. */
|
|
|
|
|
|
2002-01-05 05:30:46 +01:00
|
|
|
|
if (TARGET_BYTE_ORDER == BFD_ENDIAN_BIG && len < REGISTER_RAW_SIZE (regnum))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
/* Big-endian, and we want less than full size. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_OFFSET (v) = REGISTER_RAW_SIZE (regnum) - len;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
memcpy (VALUE_CONTENTS_RAW (v), raw_buffer + VALUE_OFFSET (v), len);
|
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a struct symbol for a variable or function,
|
|
|
|
|
and a stack frame id,
|
|
|
|
|
return a (pointer to a) struct value containing the properly typed
|
|
|
|
|
address. */
|
|
|
|
|
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
locate_var_value (register struct symbol *var, struct frame_info *frame)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
CORE_ADDR addr = 0;
|
|
|
|
|
struct type *type = SYMBOL_TYPE (var);
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *lazy_value;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Evaluate it first; if the result is a memory address, we're fine.
|
|
|
|
|
Lazy evaluation pays off here. */
|
|
|
|
|
|
|
|
|
|
lazy_value = read_var_value (var, frame);
|
|
|
|
|
if (lazy_value == 0)
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 18:17:25 +01:00
|
|
|
|
error ("Address of \"%s\" is unknown.", SYMBOL_PRINT_NAME (var));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (VALUE_LAZY (lazy_value)
|
|
|
|
|
|| TYPE_CODE (type) == TYPE_CODE_FUNC)
|
|
|
|
|
{
|
2001-11-10 22:34:56 +01:00
|
|
|
|
struct value *val;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
addr = VALUE_ADDRESS (lazy_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
|
|
|
|
val = value_from_pointer (lookup_pointer_type (type), addr);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
VALUE_BFD_SECTION (val) = VALUE_BFD_SECTION (lazy_value);
|
|
|
|
|
return val;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Not a memory address; check what the problem was. */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
switch (VALUE_LVAL (lazy_value))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
case lval_register:
|
2001-12-03 09:41:10 +01:00
|
|
|
|
gdb_assert (REGISTER_NAME (VALUE_REGNO (lazy_value)) != NULL
|
|
|
|
|
&& *REGISTER_NAME (VALUE_REGNO (lazy_value)) != '\0');
|
|
|
|
|
error("Address requested for identifier "
|
|
|
|
|
"\"%s\" which is in register $%s",
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 18:17:25 +01:00
|
|
|
|
SYMBOL_PRINT_NAME (var),
|
2001-12-03 09:41:10 +01:00
|
|
|
|
REGISTER_NAME (VALUE_REGNO (lazy_value)));
|
|
|
|
|
break;
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
case lval_reg_frame_relative:
|
2001-12-03 09:41:10 +01:00
|
|
|
|
gdb_assert (REGISTER_NAME (VALUE_FRAME_REGNUM (lazy_value)) != NULL
|
|
|
|
|
&& *REGISTER_NAME (VALUE_FRAME_REGNUM (lazy_value)) != '\0');
|
|
|
|
|
error("Address requested for identifier "
|
|
|
|
|
"\"%s\" which is in frame register $%s",
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 18:17:25 +01:00
|
|
|
|
SYMBOL_PRINT_NAME (var),
|
2001-12-03 09:41:10 +01:00
|
|
|
|
REGISTER_NAME (VALUE_FRAME_REGNUM (lazy_value)));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
error ("Can't take address of \"%s\" which isn't an lvalue.",
|
2003-02-20 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_PRINT_NAME): Rename from SYMBOL_SOURCE_NAME;
expand comment.
* ada-lang.c (user_select_syms, ada_finish_decode_line_1): Replace
SYMBOL_PRINT_NAME with SYMBOL_SOURCE_NAME.
* ada-typeprint.c (ada_typedef_print): Ditto.
* ax-gdb.c (gen_var_ref): Ditto.
* breakpoint.c (print_one_breakpoint): Ditto.
* buildsym.c (finish_block): Ditto.
* c-valprint.c (c_val_print): Ditto.
* expprint.c (print_subexp): Ditto.
* findvar.c (locate_var_value): Ditto.
* infcmd.c (jump_command): Ditto.
* linespec.c (decode_line_2, decode_compound): Ditto.
* maint.c (maintenance_translate_address): Ditto.
* objc-lang.c (compare_selectors, compare_classes): Ditto.
* printcmd.c (build_address_symbolic, sym_info, print_frame_args):
Ditto.
* p-valprint.c (pascal_val_print): Ditto.
* stabsread.c (define_symbol): Ditto.
* stack.c (print_frame, frame_info, print_block_frame_locals)
(print_frame_arg_vars, return_command): Ditto.
* symfile.c (compare_symbols, compare_psymbols): Ditto.
* symmisc.c (print_symbol): Ditto.
* symtab.c (lookup_partial_symbol, lookup_block_symbol)
(compare_search_syms, print_symbol_info, print_msymbol_info)
(rbreak_command): Ditto.
* tracepoint.c (tracepoints_info): Ditto.
* typeprint.c (typedef_print): Ditto.
* valops.c (value_of_variable, hand_function_call): Ditto.
* cli/cli-cmds.c (edit_command, list_command): Ditto.
* ada-typeprint.c: Update Copyright.
* infcmd.c, objc-lang.c, p-valprint.c, symmisc.c: Ditto.
* tracepoint.c, cli/cli-cmds.c: Ditto.
2003-02-20 18:17:25 +01:00
|
|
|
|
SYMBOL_PRINT_NAME (var));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
break;
|
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return 0; /* For lint -- never reached */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|