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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index b42f33f5cbcee3bf7b36ed2f38abe5e014ad4408..4d0431a3e3345434265e86eca490912e6468333e 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+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.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 24def9589bf2be2a01bc0b0dea0791cd813eb0d2..8f9071172fc22091646a7e1f9fd700ee3fb87292 100644 (file)
--- 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;