From a380cd0a3812c6e2fd3d905f01d6e3a0415a00ab Mon Sep 17 00:00:00 2001 From: Richard Guenther Date: Fri, 2 Dec 2005 17:05:20 +0000 Subject: [PATCH] trans.c (gnat_gimplify_expr): Use buildN instead of build. 2005-12-02 Richard Guenther * trans.c (gnat_gimplify_expr): Use buildN instead of build. From-SVN: r107905 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/trans.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 74ebace0d31a..e3c9fdb259b8 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2005-12-02 Richard Guenther + + * trans.c (gnat_gimplify_expr): Use buildN instead of build. + 2005-12-01 Roger Sayle * 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 c71267200030..3dc62a2fd186 100644 --- 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; -- 2.47.2