From 2df53c0b9bbeb950836d2a734e9bbc9478e23df0 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Wed, 26 Aug 1992 06:05:46 +0000 Subject: [PATCH] (expand_expr): For BIND_EXPR, call insert_block on the block. From-SVN: r1960 --- gcc/expr.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/expr.c b/gcc/expr.c index 2a94dcac4d7..e588515856f 100644 --- a/gcc/expr.c +++ b/gcc/expr.c @@ -3354,9 +3354,10 @@ expand_expr (exp, target, tmode, modifier) if there are any cleanups they most be contained here. */ expand_start_bindings (0); - /* Mark the corresponding BLOCK for output. */ - if (TREE_OPERAND (exp, 2) != 0) - TREE_USED (TREE_OPERAND (exp, 2)) = 1; + /* Mark the corresponding BLOCK for output in its proper place. */ + if (TREE_OPERAND (exp, 2) != 0 + && ! TREE_USED (TREE_OPERAND (exp, 2))) + insert_block (TREE_OPERAND (exp, 2)); /* If VARS have not yet been expanded, expand them now. */ while (vars) -- 2.30.2