aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-varobj.c
diff options
context:
space:
mode:
authorSimon Marchi <simon.marchi@efficios.com>2020-06-08 15:25:53 -0400
committerSimon Marchi <simon.marchi@efficios.com>2020-06-08 15:26:01 -0400
commit3d967001ecd3b325fc39d7f53ebf7054d1ecd503 (patch)
tree49d06d14ea849b5a58b207dc5e7e4303b3ae0b67 /gdb/ada-varobj.c
parent262abc0d67af006a709d0935940f9c9f5f7c5ee5 (diff)
downloadgdb-3d967001ecd3b325fc39d7f53ebf7054d1ecd503.zip
gdb-3d967001ecd3b325fc39d7f53ebf7054d1ecd503.tar.gz
gdb-3d967001ecd3b325fc39d7f53ebf7054d1ecd503.tar.bz2
gdb: remove TYPE_INDEX_TYPE macro
Remove `TYPE_INDEX_TYPE` macro, changing all the call sites to use `type::index_type` directly. gdb/ChangeLog: * gdbtypes.h (TYPE_INDEX_TYPE): Remove. Change all call sites to use type::index_type instead. Change-Id: I56715df0bdec89463cda6bd341dac0e01b2faf84
Diffstat (limited to 'gdb/ada-varobj.c')
-rw-r--r--gdb/ada-varobj.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/ada-varobj.c b/gdb/ada-varobj.c
index 485eae2..d28beff 100644
--- a/gdb/ada-varobj.c
+++ b/gdb/ada-varobj.c
@@ -178,7 +178,7 @@ ada_varobj_simple_array_elt (struct value *parent_value,
if (parent_value)
{
struct value *index_value =
- value_from_longest (TYPE_INDEX_TYPE (parent_type), elt_index);
+ value_from_longest (parent_type->index_type (), elt_index);
value = ada_value_subscript (parent_value, 1, &index_value);
type = value_type (value);
@@ -234,7 +234,7 @@ ada_varobj_get_array_number_of_children (struct value *parent_value,
LONGEST lo, hi;
if (parent_value == NULL
- && is_dynamic_type (TYPE_INDEX_TYPE (parent_type)))
+ && is_dynamic_type (parent_type->index_type ()))
{
/* This happens when listing the children of an object
which does not exist in memory (Eg: when requesting
@@ -589,7 +589,7 @@ ada_varobj_describe_simple_array_child (struct value *parent_value,
gdb_assert (parent_type->code () == TYPE_CODE_ARRAY);
- index_type = TYPE_INDEX_TYPE (parent_type);
+ index_type = parent_type->index_type ();
real_index = child_index + ada_discrete_type_low_bound (index_type);
if (child_name)