diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2010-01-15 12:07:04 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2010-01-15 12:07:04 +0000 |
| commit | 12ab9e09fa95b49831c733ac432e4f40d76136a6 (patch) | |
| tree | 8fe4d7a33c0e587a6c7ed9bbd0f8280e7b76c577 /gdb | |
| parent | c389c3dc73d399d4292e62fa157b32697bccf520 (diff) | |
| download | gdb-12ab9e09fa95b49831c733ac432e4f40d76136a6.zip gdb-12ab9e09fa95b49831c733ac432e4f40d76136a6.tar.gz gdb-12ab9e09fa95b49831c733ac432e4f40d76136a6.tar.bz2 | |
Do not use name-based lookup for unconstrained packed arrays.
* ada-lang.c (find_parallel_type_by_descriptive_type):
Limit the fallback to name-based lookups to the case where
the type is a constrained packed array.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index b42f33f..4d0431a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,12 @@ 2010-01-15 Joel Brobecker <brobecker@adacore.com> + Do not use name-based lookup for unconstrained packed arrays. + * ada-lang.c (find_parallel_type_by_descriptive_type): + Limit the fallback to name-based lookups to the case where + the type is a constrained packed array. + +2010-01-15 Joel Brobecker <brobecker@adacore.com> + Enhance gdb-gdb.py to handle main_type.type_specific. * gdb-gdb.py: Print the type-specific part of struct main_type. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 24def95..8f90711 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -6687,7 +6687,7 @@ find_parallel_type_by_descriptive_type (struct type *type, const char *name) older compilers, the descriptive type information is either absent or irrelevant when it comes to packed arrays so the above lookup fails. Fall back to using a parallel lookup by name in this case. */ - if (result == NULL && ada_is_packed_array_type (type)) + if (result == NULL && ada_is_constrained_packed_array_type (type)) return ada_find_any_type (name); return result; |