From: Richard Kenner <kenner@gcc.gnu.org>
Date: Sun, 11 Aug 1996 21:46:05 +0000 (-0400)
Subject: (finish_struct): If pedantic, also warn if struct/union has no named
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9590fa7214ed0d2d974ea5bbd8cc8f692efda51f;p=gcc.git

(finish_struct): If pedantic, also warn if struct/union has no named
members.

From-SVN: r12612
---

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index 2ed017f3630..cb59a082cd3 100644
--- a/gcc/c-decl.c
+++ b/gcc/c-decl.c
@@ -5533,9 +5533,17 @@ finish_struct (t, fieldlist, attributes)
 
   old_momentary = suspend_momentary ();
 
-  if (fieldlist == 0 && pedantic)
-    pedwarn ((TREE_CODE (t) == UNION_TYPE ? "union has no members"
-	      : "structure has no members"));
+  if (pedantic)
+    {
+      for (x = fieldlist; x; x = TREE_CHAIN (x))
+	if (DECL_NAME (x) != 0)
+	  break;
+
+      if (x == 0)
+	pedwarn ("%s has no %smembers",
+		 (TREE_CODE (t) == UNION_TYPE ? "union" : "structure"),
+		 (fieldlist ? "named " : ""));
+    }
 
   /* Install struct as DECL_CONTEXT of each field decl.
      Also process specified field sizes.