2006-11-30 Jim Blandy <jimb@codesourcery.com>
* ada-lang.c (value_subscript_packed): Don't bother to set the lvalue type of the returned value here; ada_value_primitive_packed_val takes care of that.
This commit is contained in:
parent
1ddbd1e617
commit
4155b94b2c
|
@ -1,3 +1,9 @@
|
||||||
|
2006-11-30 Jim Blandy <jimb@codesourcery.com>
|
||||||
|
|
||||||
|
* ada-lang.c (value_subscript_packed): Don't bother to set the
|
||||||
|
lvalue type of the returned value here;
|
||||||
|
ada_value_primitive_packed_val takes care of that.
|
||||||
|
|
||||||
2006-11-30 Nick Roberts <nickrob@snap.net.nz>
|
2006-11-30 Nick Roberts <nickrob@snap.net.nz>
|
||||||
|
|
||||||
* mi/mi-cmd-var.c (mi_cmd_var_list_children): Remove unused
|
* mi/mi-cmd-var.c (mi_cmd_var_list_children): Remove unused
|
||||||
|
|
|
@ -1887,10 +1887,6 @@ value_subscript_packed (struct value *arr, int arity, struct value **ind)
|
||||||
|
|
||||||
v = ada_value_primitive_packed_val (arr, NULL, elt_off, bit_off,
|
v = ada_value_primitive_packed_val (arr, NULL, elt_off, bit_off,
|
||||||
bits, elt_type);
|
bits, elt_type);
|
||||||
if (VALUE_LVAL (arr) == lval_internalvar)
|
|
||||||
VALUE_LVAL (v) = lval_internalvar_component;
|
|
||||||
else
|
|
||||||
VALUE_LVAL (v) = VALUE_LVAL (arr);
|
|
||||||
return v;
|
return v;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue