Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-12-28 01:50:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Unnecessary XA type handling in ada_varobj_describe_simple_array_child

Browse Source 
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.
This commit is contained in:
Joel Brobecker
2014-04-24 12:09:11 -04:00
parent 528653254b
commit 4d072ce478
2 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gdb/ada-varobj.c
View File

@@ -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)