(expand_expr): For BIND_EXPR, call insert_block on the block.

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

diff --git a/gcc/expr.c b/gcc/expr.c
index 2a94dca..e588515 100644 (file)
--- 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)