From 3380b80294c24160702c92f25237297ad0f6ca69 Mon Sep 17 00:00:00 2001 From: Richard Guenther Date: Fri, 16 Dec 2005 21:45:27 +0000 Subject: trans.h (tree): Remove declaration of gfc_build_function_call. 2005-12-16 Richard Guenther * trans.h (tree): Remove declaration of gfc_build_function_call. * trans.c (gfc_build_function_call): Remove. (gfc_build_array_ref): Use build_function_call_expr. (gfc_trans_runtime_check): Likewise. * trans-array.c (gfc_trans_allocate_array_storage): Likewise. (gfc_grow_array): Likewise. (gfc_trans_array_ctor_element): Likewise. (gfc_trans_array_constructor_value): Likewise. (gfc_array_allocate): Likewise. (gfc_array_deallocate): Likewise. (gfc_trans_auto_array_allocation): Likewise. (gfc_trans_dummy_array_bias): Likewise. (gfc_conv_array_parameter): Likewise. * trans-expr.c (gfc_conv_power_op): Likewise. (gfc_conv_string_tmp): Likewise. (gfc_conv_concat_op): Likewise. (gfc_conv_expr_op): Likewise. (gfc_trans_string_copy): Likewise. * trans-decl.c (build_entry_thunks): Likewise. (gfc_generate_function_code): Likewise. (gfc_generate_constructors): Likewise. * trans-io.c (gfc_trans_open): Likewise. (gfc_trans_close): Likewise. (build_filepos): Likewise. (gfc_trans_inquire): Likewise. (transfer_namelist_element): Likewise. (build_dt): Likewise. (gfc_trans_dt_end): Likewise. (transfer_expr): Likewise. (transfer_array_desc): Likewise. * trans-stmt.c (gfc_trans_pause): Likewise. (gfc_trans_stop): Likewise. (gfc_trans_character_select): Likewise. (gfc_do_allocate): Likewise. (gfc_trans_assign_need_temp): Likewise. (gfc_trans_pointer_assign_need_temp): Likewise. (gfc_trans_forall_1): Likewise. (gfc_trans_where): Likewise. (gfc_trans_allocate): Likewise. (gfc_trans_deallocate): Likewise. * trans-intrinsic.c (gfc_conv_intrinsic_aint): Likewise. (gfc_conv_intrinsic_lib_function): Likewise. (gfc_conv_intrinsic_exponent): Likewise. (gfc_conv_intrinsic_abs): Likewise. (gfc_conv_intrinsic_sign): Likewise. (gfc_conv_intrinsic_ctime): Likewise. (gfc_conv_intrinsic_fdate): Likewise. (gfc_conv_intrinsic_ttynam): Likewise. (gfc_conv_intrinsic_ishftc): Likewise. (gfc_conv_intrinsic_len_trim): Likewise. (gfc_conv_intrinsic_index): Likewise. (gfc_conv_intrinsic_size): Likewise. (gfc_conv_intrinsic_strcmp): Likewise. (gfc_conv_intrinsic_adjust): Likewise. (gfc_conv_associated): Likewise. (gfc_conv_intrinsic_scan): Likewise. (gfc_conv_intrinsic_verify): Likewise. (call_builtin_clz): Likewise. (gfc_conv_intrinsic_si_kind): Likewise. (gfc_conv_intrinsic_sr_kind): Likewise. (gfc_conv_intrinsic_trim): Likewise. (gfc_conv_intrinsic_repeat): Likewise. (gfc_conv_intrinsic_iargc): Likewise. From-SVN: r108687 --- gcc/fortran/trans-stmt.c | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'gcc/fortran/trans-stmt.c') diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 1fea1dc..1b56cf4 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -317,7 +317,7 @@ gfc_trans_pause (gfc_code * code) fndecl = gfor_fndecl_pause_string; } - tmp = gfc_build_function_call (fndecl, args); + tmp = build_function_call_expr (fndecl, args); gfc_add_expr_to_block (&se.pre, tmp); gfc_add_block_to_block (&se.pre, &se.post); @@ -357,7 +357,7 @@ gfc_trans_stop (gfc_code * code) fndecl = gfor_fndecl_stop_string; } - tmp = gfc_build_function_call (fndecl, args); + tmp = build_function_call_expr (fndecl, args); gfc_add_expr_to_block (&se.pre, tmp); gfc_add_block_to_block (&se.pre, &se.post); @@ -1283,7 +1283,7 @@ gfc_trans_character_select (gfc_code *code) gfc_add_block_to_block (&block, &se.pre); - tmp = gfc_build_function_call (gfor_fndecl_select_string, args); + tmp = build_function_call_expr (gfor_fndecl_select_string, args); tmp = build1 (GOTO_EXPR, void_type_node, tmp); gfc_add_expr_to_block (&block, tmp); @@ -1534,7 +1534,7 @@ gfc_do_allocate (tree bytesize, tree size, tree * pdata, stmtblock_t * pblock, tmp = gfor_fndecl_internal_malloc64; else gcc_unreachable (); - tmp = gfc_build_function_call (tmp, args); + tmp = build_function_call_expr (tmp, args); tmp = convert (TREE_TYPE (tmpvar), tmp); gfc_add_modify_expr (pblock, tmpvar, tmp); } @@ -2019,7 +2019,7 @@ gfc_trans_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2, tree wheremask, { /* Free the temporary. */ tmp = gfc_chainon_list (NULL_TREE, ptemp1); - 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); } } @@ -2177,7 +2177,7 @@ gfc_trans_pointer_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2, if (ptemp1) { tmp = gfc_chainon_list (NULL_TREE, ptemp1); - 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); } } @@ -2468,7 +2468,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info) /* Free the temporary. */ args = gfc_chainon_list (NULL_TREE, temp->temporary); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, args); + tmp = build_function_call_expr (gfor_fndecl_internal_free, args); gfc_add_expr_to_block (&block, tmp); p = temp; @@ -2524,7 +2524,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info) { /* Free the temporary for the mask. */ tmp = gfc_chainon_list (NULL_TREE, pmask); - 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); } if (maskindex) @@ -3068,7 +3068,7 @@ gfc_trans_where (gfc_code * code) while (temp) { args = gfc_chainon_list (NULL_TREE, temp->temporary); - tmp = gfc_build_function_call (gfor_fndecl_internal_free, args); + tmp = build_function_call_expr (gfor_fndecl_internal_free, args); gfc_add_expr_to_block (&block, tmp); p = temp; @@ -3185,7 +3185,7 @@ gfc_trans_allocate (gfc_code * code) parm = gfc_chainon_list (NULL_TREE, val); parm = gfc_chainon_list (parm, tmp); parm = gfc_chainon_list (parm, pstat); - tmp = gfc_build_function_call (gfor_fndecl_allocate, parm); + tmp = build_function_call_expr (gfor_fndecl_allocate, parm); gfc_add_expr_to_block (&se.pre, tmp); if (code->expr) @@ -3291,7 +3291,7 @@ gfc_trans_deallocate (gfc_code * code) parm = gfc_chainon_list (NULL_TREE, var); parm = gfc_chainon_list (parm, pstat); - tmp = gfc_build_function_call (gfor_fndecl_deallocate, parm); + tmp = build_function_call_expr (gfor_fndecl_deallocate, parm); } gfc_add_expr_to_block (&se.pre, tmp); -- cgit v1.1