From: Jim Blandy <jimb@codesourcery.com>
Date: Fri, 1 Dec 2006 00:32:29 +0000 (+0000)
Subject: 2006-11-30  Jim Blandy  <jimb@codesourcery.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4155b94b2ced1e636363169f2989d646183a7438;p=binutils-gdb.git

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.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 5f8dbc0da15..c26130cf9a2 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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>
 
 	* 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 cc63e0a9c77..7de7a191520 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;
 }