Index: dwarf2read.c
===================================================================
RCS file: /cvs/src/src/gdb/dwarf2read.c,v
retrieving revision 1.247
diff -u -p -r1.247 dwarf2read.c
--- dwarf2read.c	3 Jan 2008 17:29:55 -0000	1.247
+++ dwarf2read.c	9 Jan 2008 04:26:35 -0000
@@ -4233,6 +4233,11 @@ read_enumeration_type (struct die_info *
       TYPE_LENGTH (type) = 0;
     }
 
+  /* The enumeration DIE can be incomplete.  In Ada, any type can be
+     declared as private in the package spec, and then defined only
+     inside the package body.  Such types are known as Taft Amendment
+     Types.  When another package uses such a type, an incomplete DIE
+     may be generated by the compiler.  */
   if (die_is_declaration (die, cu))
     TYPE_FLAGS (type) |= TYPE_FLAG_STUB;