From: Richard Stallman <rms@gnu.org>
Date: Wed, 26 Aug 1992 06:05:46 +0000 (+0000)
Subject: (expand_expr): For BIND_EXPR, call insert_block on the block.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2df53c0b9bbeb950836d2a734e9bbc9478e23df0;p=gcc.git

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

From-SVN: r1960
---

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)