Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-12-26 01:07:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

2005-02-07 Andrew Cagney <cagney@gnu.org>

Browse Source 
* value.c (set_value_bitpos, set_value_bitsize): Define.
	* value.h (set_value_bitpos, set_value_bitsize): Declare.
	* ada-lang.c, valarith.c: Update.
This commit is contained in:
Andrew Cagney
2005-02-08 04:57:03 +00:00
parent 0a40490e6a
commit 9bbda50381
5 changed files with 24 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gdb/ada-lang.c
View File

@@ -448,8 +448,8 @@ coerce_unspec_val_to_type (struct value *val, struct type *type)
result = allocate_value (type);
VALUE_LVAL (result) = VALUE_LVAL (val);
result->bitsize = value_bitsize (val);
result->bitpos = value_bitpos (val);
set_value_bitsize (result, value_bitsize (val));
set_value_bitpos (result, value_bitpos (val));
VALUE_ADDRESS (result) = VALUE_ADDRESS (val) + value_offset (val);
if (value_lazy (val)
|| TYPE_LENGTH (type) > TYPE_LENGTH (value_type (val)))
@@ -1830,16 +1830,16 @@ ada_value_primitive_packed_val (struct value *obj, const bfd_byte *valaddr,
if (VALUE_LVAL (obj) == lval_internalvar)
VALUE_LVAL (v) = lval_internalvar_component;
VALUE_ADDRESS (v) = VALUE_ADDRESS (obj) + value_offset (obj) + offset;
v->bitpos = bit_offset + value_bitpos (obj);
v->bitsize = bit_size;
set_value_bitpos (v, bit_offset + value_bitpos (obj));
set_value_bitsize (v, bit_size);
if (value_bitpos (v) >= HOST_CHAR_BIT)
{
VALUE_ADDRESS (v) += 1;
v->bitpos -= HOST_CHAR_BIT;
set_value_bitpos (v, value_bitpos (v) - HOST_CHAR_BIT);
}
}
else
v->bitsize = bit_size;
set_value_bitsize (v, bit_size);
unpacked = (unsigned char *) value_contents (v);
srcBitsLeft = bit_size;