From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 25 Oct 2011 22:14:26 +0000 (+0000)
Subject: dwarf2out.c (add_gnat_descriptive_type_attribute): Temporarily suppress debug info... 
X-Git-Tag: releases/gcc-4.7.0~2812
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6ea685b8571d933d66f45a5ed99f4b93367b0a44;p=thirdparty%2Fgcc.git

dwarf2out.c (add_gnat_descriptive_type_attribute): Temporarily suppress debug info for the parent type.

	* dwarf2out.c (add_gnat_descriptive_type_attribute): Temporarily
	suppress debug info for the parent type.

From-SVN: r180456
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 7789e6cfa0a0..e6c69f2b6568 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-25  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* dwarf2out.c (add_gnat_descriptive_type_attribute): Temporarily
+	suppress debug info for the parent type.
+
 2011-10-25  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* config/ia64/ia64.c (ia64_profile_hook): Fix thinko.
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index e328201a82aa..8d5a9f0fc813 100644
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -15415,7 +15415,11 @@ add_gnat_descriptive_type_attribute (dw_die_ref die, tree type,
   dtype_die = lookup_type_die (dtype);
   if (!dtype_die)
     {
+      /* The descriptive type indirectly references TYPE if this is also the
+	 case for TYPE itself.  Do not deal with the circularity here.  */
+      TYPE_DECL_SUPPRESS_DEBUG (TYPE_STUB_DECL (type)) = 1;
       gen_type_die (dtype, context_die);
+      TYPE_DECL_SUPPRESS_DEBUG (TYPE_STUB_DECL (type)) = 0;
       dtype_die = lookup_type_die (dtype);
       gcc_assert (dtype_die);
     }