commit 1411de443cc3d01c38e75e35416a1bc198477765
Author: Joel Brobecker <brobecker@adacore.com>
Date:   Mon Mar 23 18:00:02 2009 -0700

    Fix a SEGV while doing a ptype of a record_value.field expression
    where record_value is a variable whose type is a record and field
    is the name of one of its components.
    
        * ada-exp.y (get_symbol_field_type): Make sure to resolve typedefs
        before looking up the fields inside our struct type.

diff --git a/gdb/ada-exp.y b/gdb/ada-exp.y
index 0da0caa..ee0fcf3 100644
--- a/gdb/ada-exp.y
+++ b/gdb/ada-exp.y
@@ -1207,6 +1207,7 @@ get_symbol_field_type (struct symbol *sym, char *encoded_field_name)
 
   if (type == NULL || field_name == NULL)
     return NULL;
+  type = check_typedef (type);
 
   while (field_name[0] != '\0')
     {