2004-08-13  Alexandre Oliva  <aoliva@redhat.com>

	* dwarf2out.c (prune_unused_types_walk): Mark the specification if

	the declaration is marked.

--- gcc/dwarf2out.c	2004-08-13 04:46:06.000000000 -0300

+++ gcc/dwarf2out.c	2004-08-13 04:47:21.904025637 -0300

@@ -12364,6 +12364,12 @@ prune_unused_types_walk (die)

     return;

   switch (die->die_tag) {

+  case DW_TAG_structure_type:

+    /* If the declaration is marked, mark the specification as well.  */

+    if ((c = get_AT_ref (die, DW_AT_specification)) != NULL

+	&& c->die_mark)

+      break;

+

   case DW_TAG_const_type:

   case DW_TAG_packed_type:

   case DW_TAG_pointer_type:

@@ -12371,7 +12377,6 @@ prune_unused_types_walk (die)

   case DW_TAG_volatile_type:

   case DW_TAG_typedef:

   case DW_TAG_array_type:

-  case DW_TAG_structure_type:

   case DW_TAG_union_type:

   case DW_TAG_class_type:

   case DW_TAG_friend: