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 | |
| parent | 528653254b46ccd95d7ffbef73acbcc1242eaee6 (diff) | |
| download | gdb-4d072ce478ebb605b2f0ca326c7c3168d4ee5989.zip gdb-4d072ce478ebb605b2f0ca326c7c3168d4ee5989.tar.gz gdb-4d072ce478ebb605b2f0ca326c7c3168d4ee5989.tar.bz2 | |
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')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-varobj.c | 8 |
2 files changed, 6 insertions, 7 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index cd43f6e..f3f02e7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2014-04-28 Joel Brobecker <brobecker@adacore.com> + * ada-varobj.c (ada_varobj_describe_simple_array_child): Remove + handling of parallel ___XA types. + +2014-04-28 Joel Brobecker <brobecker@adacore.com> + * ada-lang.c (ada_evaluate_subexp) <OP_VAR_VALUE>: Remove unnecessary second call to static_unwrap_type. diff --git a/gdb/ada-varobj.c b/gdb/ada-varobj.c index 3da6018..b9f83be 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) |