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

From-SVN: r1960

(expand_expr): For BIND_EXPR, call insert_block on the block.
From-SVN: r1960
2df53c0b · Richard Stallman · 1b81aa14 · 2df53c0b
Commit 2df53c0b authored Aug 26, 1992 by Richard Stallman
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 3 deletions

gcc/expr.c
+4 -3

No files found.
--- 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)