1 files changed, 0 insertions, 4 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index cc63e0a..7de7a19 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;
 }