OSDN Git Service

2005-12-02 Richard Guenther <rguenther@suse.de>
authorrguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 2 Dec 2005 17:05:20 +0000 (17:05 +0000)
committerrguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 2 Dec 2005 17:05:20 +0000 (17:05 +0000)
* trans.c (gnat_gimplify_expr): Use buildN instead of build.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107905 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/trans.c

index 74ebace..e3c9fdb 100644 (file)
@@ -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
index c712672..3dc62a2 100644 (file)
@@ -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;