From: Joel Brobecker <brobecker@gnat.com>
Date: Wed, 9 Jan 2008 04:28:11 +0000 (+0000)
Subject:         * dwarf2read.c (read_enumeration_type): Add comment.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=137033e97482d340139b1499c6db4236f35c8577;p=binutils-gdb.git

    * dwarf2read.c (read_enumeration_type): Add comment.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index abf609c0ac4..4d62be79032 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-08  Joel Brobecker  <brobecker@adacore.com>
+
+	* dwarf2read.c (read_enumeration_type): Add comment.
+
 2008-01-08  Thiago Jung Bauermann  <bauerman@br.ibm.com>
 
 	* config.in: Regenerate.
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index f9dfff19592..2cb65c75b6c 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -4233,6 +4233,11 @@ read_enumeration_type (struct die_info *die, struct dwarf2_cu *cu)
       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;