diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 74ebace..e3c9fdb 100644 --- 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 --- 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; |