mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-18 12:24:38 +08:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Kingdon 1991-05-03 00:50:18 +00:00
parent 23b0b55855
commit 2bff8e38bc
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gdb/values.c
View File

@ -538,12 +538,9 @@ CORE_ADDR
value_as_pointer (val)
value val;
{
/* This coerces arrays and functions, which is necessary (e.g.
in disassemble_command). It also dereferences references, which
I suspect is the most logical thing to do. */
if (TYPE_CODE (VALUE_TYPE (val)) != TYPE_CODE_ENUM)
COERCE_ARRAY (val);
return unpack_pointer (VALUE_TYPE (val), VALUE_CONTENTS (val));
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
whether we want this to be true eventually. */
return value_as_long (val);
}
/* Unpack raw data (copied from debugee, target byte order) at VALADDR
@ -687,9 +684,8 @@ unpack_long (type, valaddr)
error ("That operation is not possible on an integer of that size.");
}
}
#if 0
/* There is no guarantee that a pointer can fit within a LONGEST.
Callers should use unpack_pointer instead. */
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
whether we want this to be true eventually. */
else if (code == TYPE_CODE_PTR
|| code == TYPE_CODE_REF)
{
@ -701,15 +697,10 @@ unpack_long (type, valaddr)
return retval;
}
}
#endif
else if (code == TYPE_CODE_MEMBER)
error ("not implemented: member types in unpack_long");
#if 0
error ("Value not integer or pointer.");
#else
error ("Value not integer.");
#endif
return 0; /* For lint -- never reached */
}
@ -790,6 +781,9 @@ unpack_pointer (type, valaddr)
struct type *type;
char *valaddr;
{
#if 0
/* The user should be able to use an int (e.g. 0x7892) in contexts
where a pointer is expected. So this doesn't do enough. */
register enum type_code code = TYPE_CODE (type);
register int len = TYPE_LENGTH (type);
@ -810,6 +804,11 @@ unpack_pointer (type, valaddr)
error ("Value is not a pointer.");
return 0; /* For lint -- never reached */
#else
/* Assume a CORE_ADDR can fit in a LONGEST (for now). Not sure
whether we want this to be true eventually. */
return unpack_long (type, valaddr);
#endif
}
/* Given a value ARG1 (offset by OFFSET bytes)