From a2406062ea85db5660dbcfc0b6817fd8b2bac331 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 1 Dec 2006 00:32:29 +0000 Subject: [PATCH] 2006-11-30 Jim Blandy * 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. --- gdb/ChangeLog | 6 ++++++ gdb/ada-lang.c | 4 ---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5f8dbc0da1..c26130cf9a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2006-11-30 Jim Blandy + + * 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 * mi/mi-cmd-var.c (mi_cmd_var_list_children): Remove unused diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index cc63e0a9c7..7de7a19152 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -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, bits, elt_type); - if (VALUE_LVAL (arr) == lval_internalvar) - VALUE_LVAL (v) = lval_internalvar_component; - else - VALUE_LVAL (v) = VALUE_LVAL (arr); return v; } -- 2.11.0