gcc/gcc/omp-low.c

3595   tree new_stmt, stmt, body, bind, block, ilist, olist, new_body;
3643   bind = build3 (BIND_EXPR, void_type_node, NULL, body, block);
3657   append_to_statement_list (bind, &new_body);
3791   tree t, bind, block, single_stmt = *stmt_p, dlist;
3796   *stmt_p = bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, block);
3797   TREE_SIDE_EFFECTS (bind) = 1;
3800 			   &BIND_EXPR_BODY (bind), &dlist, ctx);
3803   append_to_statement_list (single_stmt, &BIND_EXPR_BODY (bind));
3806     lower_omp_single_copy (single_stmt, &BIND_EXPR_BODY (bind), ctx);
3808     lower_omp_single_simple (single_stmt, &BIND_EXPR_BODY (bind));
3812   append_to_statement_list (dlist, &BIND_EXPR_BODY (bind));
3814   maybe_catch_exception (&BIND_EXPR_BODY (bind));
3819   append_to_statement_list (t, &BIND_EXPR_BODY (bind));
3821   pop_gimplify_context (bind);
3823   BIND_EXPR_VARS (bind) = chainon (BIND_EXPR_VARS (bind), ctx->block_vars);
3824   BLOCK_VARS (block) = BIND_EXPR_VARS (bind);
3833   tree bind, block, stmt = *stmt_p, lab = NULL, x;
3838   *stmt_p = bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, block);
3839   TREE_SIDE_EFFECTS (bind) = 1;
3841   append_to_statement_list (stmt, &BIND_EXPR_BODY (bind));
3847   gimplify_and_add (x, &BIND_EXPR_BODY (bind));
3851   append_to_statement_list (OMP_MASTER_BODY (stmt), &BIND_EXPR_BODY (bind));
3855   gimplify_and_add (x, &BIND_EXPR_BODY (bind));
3859   append_to_statement_list (x, &BIND_EXPR_BODY (bind));
3861   pop_gimplify_context (bind);
3863   BIND_EXPR_VARS (bind) = chainon (BIND_EXPR_VARS (bind), ctx->block_vars);
3864   BLOCK_VARS (block) = BIND_EXPR_VARS (bind);
3873   tree bind, block, stmt = *stmt_p, x;
3878   *stmt_p = bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, block);
3879   TREE_SIDE_EFFECTS (bind) = 1;
3881   append_to_statement_list (stmt, &BIND_EXPR_BODY (bind));
3885   gimplify_and_add (x, &BIND_EXPR_BODY (bind));
3889   append_to_statement_list (OMP_ORDERED_BODY (stmt), &BIND_EXPR_BODY (bind));
3894   gimplify_and_add (x, &BIND_EXPR_BODY (bind));
3898   append_to_statement_list (x, &BIND_EXPR_BODY (bind));
3900   pop_gimplify_context (bind);
3902   BIND_EXPR_VARS (bind) = chainon (BIND_EXPR_VARS (bind), ctx->block_vars);
3903   BLOCK_VARS (block) = BIND_EXPR_VARS (bind);
3918   tree bind, block, stmt = *stmt_p;
3974   *stmt_p = bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, block);
3975   TREE_SIDE_EFFECTS (bind) = 1;
3977   append_to_statement_list (stmt, &BIND_EXPR_BODY (bind));
3979   gimplify_and_add (lock, &BIND_EXPR_BODY (bind));
3983   append_to_statement_list (OMP_CRITICAL_BODY (stmt), &BIND_EXPR_BODY (bind));
3986   gimplify_and_add (unlock, &BIND_EXPR_BODY (bind));
3990   append_to_statement_list (t, &BIND_EXPR_BODY (bind));
3992   pop_gimplify_context (bind);
3993   BIND_EXPR_VARS (bind) = chainon (BIND_EXPR_VARS (bind), ctx->block_vars);
3994   BLOCK_VARS (block) = BIND_EXPR_VARS (bind);
4156   tree clauses, par_bind, par_body, new_body, bind;
4206   bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, NULL);
4207   append_to_statement_list (ilist, &BIND_EXPR_BODY (bind));
4228   append_to_statement_list (stmt, &BIND_EXPR_BODY (bind));
4229   append_to_statement_list (olist, &BIND_EXPR_BODY (bind));
4231   *stmt_p = bind;