diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 21:42:48 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 21:42:48 +0000 |
| commit | 7c952a134f8d980ba797daee972c41f18d449c5d (patch) | |
| tree | 17641e86b48e5e704541c4d4f59337e76784056c /gcc/tree.c | |
| parent | 740a43a0eebb9a39e6656b8690aa9e54e919431b (diff) | |
| download | gcc-7c952a134f8d980ba797daee972c41f18d449c5d.tar.gz | |
* tree.c (substitute_in_expr) <tcc_vl_exp>: Fix thinko.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135582 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/tree.c')
| -rw-r--r-- | gcc/tree.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/tree.c b/gcc/tree.c index 5a0656c67ac..18a9460d063 100644 --- a/gcc/tree.c +++ b/gcc/tree.c @@ -2516,8 +2516,7 @@ substitute_in_expr (tree exp, tree f, tree r) { enum tree_code code = TREE_CODE (exp); tree op0, op1, op2, op3; - tree new; - tree inner; + tree new, inner; /* We handle TREE_LIST and COMPONENT_REF separately. */ if (code == TREE_LIST) @@ -2627,13 +2626,15 @@ substitute_in_expr (tree exp, tree f, tree r) for (i = 1; i < TREE_OPERAND_LENGTH (exp); i++) { tree op = TREE_OPERAND (exp, i); - tree newop = SUBSTITUTE_IN_EXPR (op, f, r); - if (newop != op) + tree new_op = SUBSTITUTE_IN_EXPR (op, f, r); + if (new_op != op) { - copy = copy_node (exp); - TREE_OPERAND (copy, i) = newop; + if (!copy) + copy = copy_node (exp); + TREE_OPERAND (copy, i) = new_op; } } + if (copy) new = fold (copy); else |