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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 74ebace..e3c9fdb 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index c712672..3dc62a2 100644 (file)
--- a/gcc/ada/trans.c
+++ b/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;