aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorUlrich Weigand <uweigand@de.ibm.com>2009-06-29 17:26:29 +0000
committerUlrich Weigand <uweigand@de.ibm.com>2009-06-29 17:26:29 +0000
commitdd19d49e4bda8bf973f8e178f19e6d643298876f (patch)
tree0f3706290665331b314b08196783b5399bbdbcda /gdb
parent1eea4ebd855b3d6f695e08a61c79232bfc1c0111 (diff)
downloadfsf-binutils-gdb-dd19d49e4bda8bf973f8e178f19e6d643298876f.zip
fsf-binutils-gdb-dd19d49e4bda8bf973f8e178f19e6d643298876f.tar.gz
fsf-binutils-gdb-dd19d49e4bda8bf973f8e178f19e6d643298876f.tar.bz2
* ada-lang.c (ada_index_type): Update comment.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog4
-rw-r--r--gdb/ada-lang.c5
2 files changed, 8 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 37ef669..ed95354 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,9 @@
2009-06-29 Ulrich Weigand <uweigand@de.ibm.com>
+ * ada-lang.c (ada_index_type): Update comment.
+
+2009-06-29 Ulrich Weigand <uweigand@de.ibm.com>
+
* ada-lang.c (ada_index_type): Make static. Add NAME argument.
Throw error on invalid input arguments. Return NULL if unable
to determine index type.
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 7a49c45..b35ff3c 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -2408,7 +2408,10 @@ ada_array_element_type (struct type *type, int nindices)
}
/* The type of nth index in arrays of given type (n numbering from 1).
- Does not examine memory. */
+ Does not examine memory. Throws an error if N is invalid or TYPE
+ is not an array type. NAME is the name of the Ada attribute being
+ evaluated ('range, 'first, 'last, or 'length); it is used in building
+ the error message. */
static struct type *
ada_index_type (struct type *type, int n, const char *name)