diff options
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index fa8be1d..8276316 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -111,7 +111,7 @@ gfc_omp_clause_default_ctor (tree clause ATTRIBUTE_UNUSED, tree decl) "not currently allocated" allocation status. */ gfc_init_block (&block); - gfc_conv_descriptor_data_set (&block, decl, null_pointer_node); + gfc_conv_descriptor_data_set_tuples (&block, decl, null_pointer_node); return gfc_finish_block (&block); } @@ -832,7 +832,7 @@ gfc_trans_omp_atomic (gfc_code *code) tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL); gfc_actual_arglist *arg; - gfc_add_modify_expr (&block, accum, rse.expr); + gfc_add_modify_stmt (&block, accum, rse.expr); for (arg = expr2->value.function.actual->next->next; arg; arg = arg->next) { @@ -840,7 +840,7 @@ gfc_trans_omp_atomic (gfc_code *code) gfc_conv_expr (&rse, arg->expr); gfc_add_block_to_block (&block, &rse.pre); x = fold_build2 (op, TREE_TYPE (accum), accum, rse.expr); - gfc_add_modify_expr (&block, accum, x); + gfc_add_modify_stmt (&block, accum, x); } rse.expr = accum; @@ -957,11 +957,11 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock, /* Loop body. */ if (simple) { - init = build2_v (MODIFY_EXPR, dovar, from); + init = build2_v (GIMPLE_MODIFY_STMT, dovar, from); cond = build2 (simple > 0 ? LE_EXPR : GE_EXPR, boolean_type_node, dovar, to); incr = fold_build2 (PLUS_EXPR, type, dovar, step); - incr = fold_build2 (MODIFY_EXPR, type, dovar, incr); + incr = fold_build2 (GIMPLE_MODIFY_STMT, type, dovar, incr); if (pblock != &block) { pushlevel (0); @@ -983,10 +983,10 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock, tmp = fold_build2 (TRUNC_DIV_EXPR, type, tmp, step); tmp = gfc_evaluate_now (tmp, pblock); count = gfc_create_var (type, "count"); - init = build2_v (MODIFY_EXPR, count, build_int_cst (type, 0)); + init = build2_v (GIMPLE_MODIFY_STMT, count, build_int_cst (type, 0)); cond = build2 (LT_EXPR, boolean_type_node, count, tmp); incr = fold_build2 (PLUS_EXPR, type, count, build_int_cst (type, 1)); - incr = fold_build2 (MODIFY_EXPR, type, count, incr); + incr = fold_build2 (GIMPLE_MODIFY_STMT, type, count, incr); if (pblock != &block) { @@ -998,7 +998,7 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock, /* Initialize DOVAR. */ tmp = fold_build2 (MULT_EXPR, type, count, step); tmp = build2 (PLUS_EXPR, type, from, tmp); - gfc_add_modify_expr (&body, dovar, tmp); + gfc_add_modify_stmt (&body, dovar, tmp); } if (!dovar_found) |