RFA: remove redundant code in ada-lang.c

Jim Blandy
2006-11-30T00:31:44Z

I don't have an Ada compiler handy, so I can't test this, but does
this look right, Joel? It seems to me that since
ada_value_primitive_packed_val is passed arr as its 'obj' parameter,
v's lvalue type should already be set accordingly.

2006-11-22 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.

Index: gdb-jimb-browse/gdb/ada-lang.c
===================================================================
--- gdb-jimb-browse.orig/gdb/ada-lang.c 2006-11-29 14:59:32.000000000 -0800
+++ gdb-jimb-browse/gdb/ada-lang.c 2006-11-29 15:06:43.393216000 -0800
@@ -1887,10 +1887,6 @@

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;
}