(decl_attributes, case A_T_UNION): Don't look at fields of union if

there aren't any. From-SVN: r12256

(decl_attributes, case A_T_UNION): Don't look at fields of union if
there aren't any. From-SVN: r12256
62b1077c · Richard Kenner · 76565a24 · 62b1077c
Commit 62b1077c authored Jun 10, 1996 by Richard Kenner
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

gcc/c-common.c
+2 -1

No files found.
--- a/gcc/c-common.c
+++ b/gcc/c-common.c
@@ -408,7 +408,8 @@ decl_attributes (node, attributes, prefix_attributes)
 	  if (is_type
 	      && TREE_CODE (type) == UNION_TYPE
 	      && (decl == 0
-		  || TYPE_MODE (type) == DECL_MODE (TYPE_FIELDS (type))))
+		  || (TYPE_FIELDS (type) != 0
+		      && TYPE_MODE (type) == DECL_MODE (TYPE_FIELDS (type)))))
 	    TYPE_TRANSPARENT_UNION (type) = 1;
 	  else if (decl != 0 && TREE_CODE (decl) == PARM_DECL
 		   && TREE_CODE (type) == UNION_TYPE