diff options
| author | Jim Blandy <jimb@codesourcery.com> | 2006-12-01 00:32:29 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@codesourcery.com> | 2006-12-01 00:32:29 +0000 |
| commit | 4155b94b2ced1e636363169f2989d646183a7438 (patch) | |
| tree | 4107fd1b939f028d8c6f8eb8338a18ff423a7e99 | |
| parent | 1ddbd1e61787c0402eee18fdaa6af9d62034b6b7 (diff) | |
| download | gdb-4155b94b2ced1e636363169f2989d646183a7438.zip gdb-4155b94b2ced1e636363169f2989d646183a7438.tar.gz gdb-4155b94b2ced1e636363169f2989d646183a7438.tar.bz2 | |
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.
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 4 |
2 files changed, 6 insertions, 4 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 5f8dbc0..c26130c 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 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; } |