tree.c (build_constructor_va): New.

	* tree.c (build_constructor_va): New.
	* tree.h: Declare it.

From-SVN: r198744

1 files changed, 21 insertions, 0 deletions

diff --git a/gcc/tree.c b/gcc/tree.c
index 444c876..55fa99b 100644
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -1467,6 +1467,27 @@ build_constructor_from_list (tree type, tree vals)
   return build_constructor (type, v);
 }
 
+/* Return a new CONSTRUCTOR node whose type is TYPE.  NELTS is the number
+   of elements, provided as index/value pairs.  */
+
+tree
+build_constructor_va (tree type, int nelts, ...)
+{
+  vec<constructor_elt, va_gc> *v = NULL;
+  va_list p;
+
+  va_start (p, nelts);
+  vec_alloc (v, nelts);
+  while (nelts--)
+    {
+      tree index = va_arg (p, tree);
+      tree value = va_arg (p, tree);
+      CONSTRUCTOR_APPEND_ELT (v, index, value);
+    }
+  va_end (p);
+  return build_constructor (type, v);
+}
+
 /* Return a new FIXED_CST node whose type is TYPE and value is F.  */
 
 tree