diff options
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2ecbc50..e943d8e 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -533,7 +533,7 @@ gfc_trans_allocate_array_storage (stmtblock_t * pre, stmtblock_t * post, tmp = gfor_fndecl_internal_malloc64; else gcc_unreachable (); - tmp = gfc_build_function_call (tmp, args); + tmp = build_function_call_expr (tmp, args); tmp = gfc_evaluate_now (tmp, pre); gfc_conv_descriptor_data_set (pre, desc, tmp); } @@ -551,7 +551,7 @@ gfc_trans_allocate_array_storage (stmtblock_t * pre, stmtblock_t * post, tmp = gfc_conv_descriptor_data_get (desc); tmp = fold_convert (pvoid_type_node, tmp); tmp = gfc_chainon_list (NULL_TREE, tmp); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, tmp); + tmp = build_function_call_expr (gfor_fndecl_internal_free, tmp); gfc_add_expr_to_block (post, tmp); } } @@ -818,7 +818,7 @@ gfc_grow_array (stmtblock_t * pblock, tree desc, tree extra) gcc_unreachable (); /* Set the new data pointer. */ - tmp = gfc_build_function_call (tmp, args); + tmp = build_function_call_expr (tmp, args); gfc_conv_descriptor_data_set (pblock, desc, tmp); } @@ -953,7 +953,7 @@ gfc_trans_array_ctor_element (stmtblock_t * pblock, tree desc, args = gfc_chainon_list (args, se->expr); args = gfc_chainon_list (args, se->string_length); tmp = built_in_decls[BUILT_IN_MEMCPY]; - tmp = gfc_build_function_call (tmp, args); + tmp = build_function_call_expr (tmp, args); gfc_add_expr_to_block (&se->pre, tmp); } } @@ -1167,7 +1167,7 @@ gfc_trans_array_constructor_value (stmtblock_t * pblock, tree type, tmp = gfc_chainon_list (NULL_TREE, tmp); tmp = gfc_chainon_list (tmp, init); tmp = gfc_chainon_list (tmp, bound); - tmp = gfc_build_function_call (built_in_decls[BUILT_IN_MEMCPY], + tmp = build_function_call_expr (built_in_decls[BUILT_IN_MEMCPY], tmp); gfc_add_expr_to_block (&body, tmp); @@ -3049,7 +3049,7 @@ gfc_array_allocate (gfc_se * se, gfc_ref * ref, tree pstat) tmp = gfc_chainon_list (NULL_TREE, pointer); tmp = gfc_chainon_list (tmp, size); tmp = gfc_chainon_list (tmp, pstat); - tmp = gfc_build_function_call (allocate, tmp); + tmp = build_function_call_expr (allocate, tmp); gfc_add_expr_to_block (&se->pre, tmp); tmp = gfc_conv_descriptor_offset (se->expr); @@ -3076,7 +3076,7 @@ gfc_array_deallocate (tree descriptor, tree pstat) /* Parameter is the address of the data component. */ tmp = gfc_chainon_list (NULL_TREE, var); tmp = gfc_chainon_list (tmp, pstat); - tmp = gfc_build_function_call (gfor_fndecl_deallocate, tmp); + tmp = build_function_call_expr (gfor_fndecl_deallocate, tmp); gfc_add_expr_to_block (&block, tmp); return gfc_finish_block (&block); @@ -3355,7 +3355,7 @@ gfc_trans_auto_array_allocation (tree decl, gfc_symbol * sym, tree fnbody) fndecl = gfor_fndecl_internal_malloc64; else gcc_unreachable (); - tmp = gfc_build_function_call (fndecl, tmp); + tmp = build_function_call_expr (fndecl, tmp); tmp = fold (convert (TREE_TYPE (decl), tmp)); gfc_add_modify_expr (&block, decl, tmp); @@ -3372,7 +3372,7 @@ gfc_trans_auto_array_allocation (tree decl, gfc_symbol * sym, tree fnbody) /* Free the temporary. */ tmp = convert (pvoid_type_node, decl); tmp = gfc_chainon_list (NULL_TREE, tmp); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, tmp); + tmp = build_function_call_expr (gfor_fndecl_internal_free, tmp); gfc_add_expr_to_block (&block, tmp); return gfc_finish_block (&block); @@ -3533,7 +3533,7 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, tree body) /* A library call to repack the array if necessary. */ tmp = GFC_DECL_SAVED_DESCRIPTOR (tmpdesc); tmp = gfc_chainon_list (NULL_TREE, tmp); - stmt_unpacked = gfc_build_function_call (gfor_fndecl_in_pack, tmp); + stmt_unpacked = build_function_call_expr (gfor_fndecl_in_pack, tmp); stride = gfc_index_one_node; } @@ -3695,13 +3695,13 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, tree body) /* Copy the data back. */ tmp = gfc_chainon_list (NULL_TREE, dumdesc); tmp = gfc_chainon_list (tmp, tmpdesc); - tmp = gfc_build_function_call (gfor_fndecl_in_unpack, tmp); + tmp = build_function_call_expr (gfor_fndecl_in_unpack, tmp); gfc_add_expr_to_block (&cleanup, tmp); } /* Free the temporary. */ tmp = gfc_chainon_list (NULL_TREE, tmpdesc); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, tmp); + tmp = build_function_call_expr (gfor_fndecl_internal_free, tmp); gfc_add_expr_to_block (&cleanup, tmp); stmt = gfc_finish_block (&cleanup); @@ -4205,7 +4205,7 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, gfc_ss * ss, int g77) desc = se->expr; /* Repack the array. */ tmp = gfc_chainon_list (NULL_TREE, desc); - ptr = gfc_build_function_call (gfor_fndecl_in_pack, tmp); + ptr = build_function_call_expr (gfor_fndecl_in_pack, tmp); ptr = gfc_evaluate_now (ptr, &se->pre); se->expr = ptr; @@ -4214,13 +4214,13 @@ gfc_conv_array_parameter (gfc_se * se, gfc_expr * expr, gfc_ss * ss, int g77) /* Copy the data back. */ tmp = gfc_chainon_list (NULL_TREE, desc); tmp = gfc_chainon_list (tmp, ptr); - tmp = gfc_build_function_call (gfor_fndecl_in_unpack, tmp); + tmp = build_function_call_expr (gfor_fndecl_in_unpack, tmp); gfc_add_expr_to_block (&block, tmp); /* Free the temporary. */ tmp = convert (pvoid_type_node, ptr); tmp = gfc_chainon_list (NULL_TREE, tmp); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, tmp); + tmp = build_function_call_expr (gfor_fndecl_internal_free, tmp); gfc_add_expr_to_block (&block, tmp); stmt = gfc_finish_block (&block); |