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

* 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

View File

@@ -233,8 +233,8 @@ value_subscript (struct value *array, struct value *idx)
bit_index = index % TARGET_CHAR_BIT;
byte >>= (BITS_BIG_ENDIAN ? TARGET_CHAR_BIT - 1 - bit_index : bit_index);
v = value_from_longest (LA_BOOL_TYPE, byte & 1);
v->bitpos = bit_index;
v->bitsize = 1;
set_value_bitpos (v, bit_index);
set_value_bitsize (v, 1);
VALUE_LVAL (v) = VALUE_LVAL (array);
if (VALUE_LVAL (array) == lval_internalvar)
VALUE_LVAL (v) = lval_internalvar_component;