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.
This commit is contained in:
parent
c389c3dc73
commit
12ab9e09fa
2 changed files with 8 additions and 1 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue