From: Richard Stallman <rms@gnu.org>
Date: Tue, 28 Sep 1993 02:01:14 +0000 (+0000)
Subject: (pop_init_level): Add special case for nonincremental scalar initializers.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b03d739a609bcd91799638742ad4b62a3264ed1d;p=gcc.git

(pop_init_level): Add special case for nonincremental scalar initializers.

From-SVN: r5503
---

diff --git a/gcc/c-typeck.c b/gcc/c-typeck.c
index 4cdbc2cf01c..9cd22c8b860 100644
--- a/gcc/c-typeck.c
+++ b/gcc/c-typeck.c
@@ -5712,6 +5712,28 @@ pop_init_level (implicit)
     }
   else if (constructor_type == 0)
     ;
+  else if (TREE_CODE (constructor_type) != RECORD_TYPE
+	   && TREE_CODE (constructor_type) != UNION_TYPE
+	   && TREE_CODE (constructor_type) != ARRAY_TYPE
+	   && ! constructor_incremental)
+    {
+      /* A nonincremental scalar initializer--just return
+	 the element, after verifying there is just one.  */
+      if (constructor_elements == 0)
+	{
+	  error_init ("empty scalar initializer%s",
+		      " for `%s'", NULL);
+	  constructor = error_mark_node;
+	}
+      else if (TREE_CHAIN (constructor_elements) != 0)
+	{
+	  error_init ("extra elements in scalar initializer%s",
+		      " for `%s'", NULL);
+	  constructor = TREE_VALUE (constructor_elements);
+	}
+      else
+	constructor = TREE_VALUE (constructor_elements);
+    }
   else if (! constructor_incremental)
     {
       if (constructor_erroneous)
@@ -5726,6 +5748,7 @@ pop_init_level (implicit)
 	    TREE_CONSTANT (constructor) = 1;
 	  if (constructor_constant && constructor_simple)
 	    TREE_STATIC (constructor) = 1;
+
 	  resume_momentary (momentary);
 	}
     }