From fd1b946ec5e5c17bf7554d7d0edc9ac37f8dc72e Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Mon, 10 Oct 2005 01:05:32 +0000 Subject: [PATCH] * ada-valprint.c (print_optional_low_bound): Handle properly cases where the array index type is a TYPE_CODE_RANGE. --- gdb/ChangeLog | 7 ++++++- gdb/ada-valprint.c | 10 ++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index c0f89fd..666fd79 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,4 +1,9 @@ -2005-10-05 Joel Brobecker +2005-10-09 Joel Brobecker + + * ada-valprint.c (print_optional_low_bound): Handle properly + cases where the array index type is a TYPE_CODE_RANGE. + +2005-10-09 Joel Brobecker * valprint.c (val_print_array_elements): Check array size before computing its low bound. If zero, then use a default bound of zero. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index a02bf6e..2548a5f 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -94,6 +94,16 @@ print_optional_low_bound (struct ui_file *stream, struct type *type) index_type = TYPE_INDEX_TYPE (type); + if (TYPE_CODE (index_type) == TYPE_CODE_RANGE) + { + /* We need to know what the base type is, in order to do the + appropriate check below. Otherwise, if this is a subrange + of an enumerated type, where the underlying value of the + first element is typically 0, we might test the low bound + against the wrong value. */ + index_type = TYPE_TARGET_TYPE (index_type); + } + switch (TYPE_CODE (index_type)) { case TYPE_CODE_ENUM: -- 2.7.4