OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix some infrastructure to be able to cope with host and target

Browse Source 
machines with different sized basic types (ints, ptrs, etc).
(Idea from pierre@la.tce.com (Pierre Willard).)

* values.c (value_from_longest):  Rename from value_from_long.
Handle pointer types as well as integers, so that targets with
different pointer sizes from the host can be accomodated.
* breakpoint.c, convex-tdep.c, eval.c, expprint.c, printcmd.c,
valarith.c, valops.c, valprint.c, value.h, values.c:  Rename
uses of value_from_long to value_from_longest.
This commit is contained in:
John Gilmore 1991-09-06 07:13:38 +00:00
parent 06b6c733ae
commit 96b2f51cdc
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gdb/values.c
View File

@ -836,7 +836,7 @@ value_primitive_field (arg1, offset, fieldno, arg_type)
offset += TYPE_FIELD_BITPOS (arg_type, fieldno) / 8; offset += TYPE_FIELD_BITPOS (arg_type, fieldno) / 8;
if (TYPE_FIELD_BITSIZE (arg_type, fieldno)) if (TYPE_FIELD_BITSIZE (arg_type, fieldno))
{ {
v = value_from_long (type, v = value_from_longest (type,
unpack_field_as_long (arg_type, unpack_field_as_long (arg_type,
VALUE_CONTENTS (arg1), VALUE_CONTENTS (arg1),
fieldno)); fieldno));
@ -917,7 +917,7 @@ value_virtual_fn_field (arg1, f, j, type)
should serve just fine as a function type). Then, index into should serve just fine as a function type). Then, index into
the table, and convert final value to appropriate function type. */ the table, and convert final value to appropriate function type. */
value entry, vfn, vtbl; value entry, vfn, vtbl;
value vi = value_from_long (builtin_type_int, value vi = value_from_longest (builtin_type_int,
(LONGEST) TYPE_FN_FIELD_VOFFSET (f, j)); (LONGEST) TYPE_FN_FIELD_VOFFSET (f, j));
struct type *fcontext = TYPE_FN_FIELD_FCONTEXT (f, j); struct type *fcontext = TYPE_FN_FIELD_FCONTEXT (f, j);
struct type *context; struct type *context;
@ -1018,7 +1018,8 @@ value_headof (arg, btype, dtype)
nelems = longest_to_int (value_as_long (value_field (entry, 2))); nelems = longest_to_int (value_as_long (value_field (entry, 2)));
for (i = 1; i <= nelems; i++) for (i = 1; i <= nelems; i++)
{ {
entry = value_subscript (vtbl, value_from_long (builtin_type_int, i)); entry = value_subscript (vtbl, value_from_longest (builtin_type_int,
(LONGEST) i));
offset = longest_to_int (value_as_long (value_field (entry, 0))); offset = longest_to_int (value_as_long (value_field (entry, 0)));
if (offset < best_offset) if (offset < best_offset)
{ {
@ -1397,7 +1398,7 @@ modify_field (addr, fieldval, bitpos, bitsize)
/* Convert C numbers into newly allocated values */ /* Convert C numbers into newly allocated values */
value value
value_from_long (type, num) value_from_longest (type, num)
struct type *type; struct type *type;
register LONGEST num; register LONGEST num;
{ {
@ -1405,7 +1406,9 @@ value_from_long (type, num)
register enum type_code code = TYPE_CODE (type); register enum type_code code = TYPE_CODE (type);
register int len = TYPE_LENGTH (type); register int len = TYPE_LENGTH (type);
if (code == TYPE_CODE_INT || code == TYPE_CODE_ENUM) /* FIXME, we assume that pointers have the same form and byte order as
integers, and that all pointers have the same form. */
if (code == TYPE_CODE_INT || code == TYPE_CODE_ENUM || code == TYPE_CODE_PTR)
{ {
if (len == sizeof (char)) if (len == sizeof (char))
* (char *) VALUE_CONTENTS_RAW (val) = num; * (char *) VALUE_CONTENTS_RAW (val) = num;