contrib/gcc/gimplify.c

171 pop_gimplify_context (tree body)
182   if (body)
183     declare_vars (c->temps, body, false);
883 /* Unshare all the trees in BODY_P, a pointer into the body of FNDECL, and the
884    bodies of any nested functions if we are unsharing the entire body of
935 gimple_build_eh_filter (tree body, tree allowed, tree failure)
944   append_to_statement_list (body, &TREE_OPERAND (t, 0));
964       /* Set p to point to the body of the wrapper.  Loop until we find
973 	      /* For a BIND_EXPR, the body is operand 1.  */
1284 /* Gimplify a LOOP_EXPR.  Normally this just involves gimplifying the body
1377 	 be bothered to null out the body too.  */
1424 	     around the switch body.  */
4096    gimplifying the body, and converting them to TRY_FINALLY_EXPRs when we
4112   tree body;
4124   body = TREE_OPERAND (*expr_p, 0);
4125   gimplify_to_stmt_list (&body);
4130   for (iter = tsi_start (body); !tsi_end_p (iter); )
4168       append_to_statement_list (body, pre_p);
4173       *expr_p = body;
4924    gimplification of the body, as well as scanning the body for used
6290 /* Gimplify the body of statements pointed to by BODY_P.  FNDECL is the
6297   tree body, parm_stmts;
6304   /* Unshare most shared trees in the body and in that of any nested functions.
6315      the body so that DECL_VALUE_EXPR gets processed correctly.  */
6318   /* Gimplify the function's body.  */
6320   body = *body_p;
6322   if (!body)
6323     body = alloc_stmt_list ();
6324   else if (TREE_CODE (body) == STATEMENT_LIST)
6328 	body = t;
6332   if (TREE_CODE (body) != BIND_EXPR)
6337       append_to_statement_list_force (body, &BIND_EXPR_BODY (b));
6338       body = b;
6345       append_to_statement_list_force (BIND_EXPR_BODY (body), &parm_stmts);
6346       BIND_EXPR_BODY (body) = parm_stmts;
6350   unshare_all_trees (body);
6352   *body_p = body;
6354   pop_gimplify_context (body);