diff options
| author | Joel Brobecker <brobecker@adacore.com> | 2014-04-24 12:09:11 -0400 |
|---|---|---|
| committer | Joel Brobecker <brobecker@adacore.com> | 2014-04-28 15:40:12 -0400 |
| commit | 4d072ce478ebb605b2f0ca326c7c3168d4ee5989 (patch) | |
| tree | 2ad5c70cbff1bde45bb94db3cd09227002216228 /gdb/ada-varobj.c | |
| parent | 528653254b46ccd95d7ffbef73acbcc1242eaee6 (diff) | |
| download | binutils-gdb-4d072ce478ebb605b2f0ca326c7c3168d4ee5989.tar.gz | |
Unnecessary XA type handling in ada_varobj_describe_simple_array_child
ada-varobj.c::ada_varobj_describe_simple_array_child only ever gets
called after all GNAT encodings have been applied to (parent_value,
parent_type). So there is no point in redoing it partially by
checking for parallel XA types again.
gdb/ChangeLog:
* ada-varobj.c (ada_varobj_describe_simple_array_child): Remove
handling of parallel ___XA types.
Diffstat (limited to 'gdb/ada-varobj.c')
| -rw-r--r-- | gdb/ada-varobj.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gdb/ada-varobj.c b/gdb/ada-varobj.c index 3da6018920d..b9f83be6ad7 100644 --- a/gdb/ada-varobj.c +++ b/gdb/ada-varobj.c @@ -579,18 +579,12 @@ ada_varobj_describe_simple_array_child (struct value *parent_value, struct type **child_type, char **child_path_expr) { - struct type *index_desc_type; struct type *index_type; int real_index; gdb_assert (TYPE_CODE (parent_type) == TYPE_CODE_ARRAY); - index_desc_type = ada_find_parallel_type (parent_type, "___XA"); - ada_fixup_array_indexes_type (index_desc_type); - if (index_desc_type) - index_type = TYPE_FIELD_TYPE (index_desc_type, 0); - else - index_type = TYPE_INDEX_TYPE (parent_type); + index_type = TYPE_INDEX_TYPE (parent_type); real_index = child_index + ada_discrete_type_low_bound (index_type); if (child_name) |