gengtype.c (write_gc_root): Don't unnecessarily prevent global variable-length arrays...

	* gengtype.c (write_gc_root): Don't unnecessarily prevent
	global variable-length arrays being roots.

From-SVN: r54266

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 270e8dfafc9f9a80cd4dbef278af025168193ea0..7ca378be2e0b3bc7848ab78807d8217d633fb7be 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-04  Geoffrey Keating  <geoffk@redhat.com>
 
+       * gengtype.c (write_gc_root): Don't unnecessarily prevent
+       global variable-length arrays being roots.
+
        * config.gcc (powerpc-*-darwin*): Set config_gtfiles.
        * configure.in (config_gtfiles): New variable.
        (all_gtfiles): Initialise from config_gtfiles.

diff --git a/gcc/gengtype.c b/gcc/gengtype.c
index dda57e2d239e5c6f14505326e5bbd83c4d49c4e9..82d9a1166b10cd149e3701185a2a3d53aac993a8 100644 (file)
--- a/gcc/gengtype.c
+++ b/gcc/gengtype.c
@@ -1546,7 +1546,7 @@ write_gc_root (f, v, type, name, has_length, line, if_marked)
                     tp->u.param_struct.stru->u.s.tag);
          }
        else if (has_length
-                && tp->kind == TYPE_POINTER)
+                && (tp->kind == TYPE_POINTER || UNION_OR_STRUCT_P (tp)))
          {
            fprintf (f, "    &gt_ggc_ma_%s", name);
          }