trans.c (gnat_gimplify_expr): Use buildN instead of build.

2005-12-02  Richard Guenther  <rguenther@suse.de>

	* trans.c (gnat_gimplify_expr): Use buildN instead of build.

From-SVN: r107905

gcc/ada/ChangeLog

+2005-12-02  Richard Guenther  <rguenther@suse.de>
+
+	* trans.c (gnat_gimplify_expr): Use buildN instead of build.
+
 2005-12-01  Roger Sayle  <roger@eyesopen.com>
 
 	* utils.c (max_size): Only test for TREE_OVERFLOW on INTEGER_CST

gcc/ada/trans.c

@@ -4632,7 +4632,7 @@ gnat_gimplify_expr (tree *expr_p, tree *pre_p, tree *post_p ATTRIBUTE_UNUSED)
 	       && TREE_CODE_CLASS (TREE_CODE (op)) != tcc_constant)
 	{
 	  tree new_var = create_tmp_var (TREE_TYPE (op), "A");
-	  tree mod = build (MODIFY_EXPR, TREE_TYPE (op), new_var, op);
+	  tree mod = build2 (MODIFY_EXPR, TREE_TYPE (op), new_var, op);
 
 	  TREE_ADDRESSABLE (new_var) = 1;