commit 7cab86001c233a8cac209e905aafe796560b80ff
Author: Jason Merrill <jason@redhat.com>
Date: Mon May 6 23:15:08 2013 -0400
* tree.c (build_constructor_va): New.
* tree.h: Declare it.
@@ -1467,6 +1467,29 @@ build_constructor_from_list (tree type, tree vals)
return build_constructor (type, v);
}
+/* Return a new CONSTRUCTOR node whose type is TYPE. If additional
+ arguments are provided, they are index/value pairs. The list must be
+ terminated by two NULL_TREEs. */
+
+tree
+build_constructor_va (tree type, ...)
+{
+ vec<constructor_elt, va_gc> *v = NULL;
+ va_list p;
+
+ va_start (p, type);
+ while (true)
+ {
+ tree index = va_arg (p, tree);
+ tree value = va_arg (p, tree);
+ if (index == NULL_TREE && value == NULL_TREE)
+ break;
+ 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
@@ -4763,6 +4763,7 @@ extern tree build_vector_from_val (tree, tree);
extern tree build_constructor (tree, vec<constructor_elt, va_gc> *);
extern tree build_constructor_single (tree, tree, tree);
extern tree build_constructor_from_list (tree, tree);
+extern tree build_constructor_va (tree, ...);
extern tree build_real_from_int_cst (tree, const_tree);
extern tree build_complex (tree, tree, tree);
extern tree build_one_cst (tree);