diff options
| author | Richard Biener <rguenther@suse.de> | 2015-10-16 07:45:09 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2015-10-16 07:45:09 +0000 |
| commit | aa00059cffcaf09573f37b64351a550ba6904594 (patch) | |
| tree | 0dc728f8912f6ea1cdde81ca88179a73acf9bb5f /gcc/fortran/trans-intrinsic.c | |
| parent | 4856a1f0a1b91d2917ab09b08c55ff4fbf66f94e (diff) | |
| download | gcc-aa00059cffcaf09573f37b64351a550ba6904594.zip gcc-aa00059cffcaf09573f37b64351a550ba6904594.tar.gz gcc-aa00059cffcaf09573f37b64351a550ba6904594.tar.bz2 | |
tree-nested.h (build_addr): Adjust prototype.
2015-10-16 Richard Biener <rguenther@suse.de>
* tree-nested.h (build_addr): Adjust prototype.
* tree-nested.c (build_addr): Remove context argument and use
mark_addressable.
(get_static_chain): Adjust calls to build_addr.
(convert_nl_goto_reference): Likewise.
(convert_tramp_reference_op): Likewise.
(finalize_nesting_tree_1): Likewise.
* value-prof.c (gimple_ic): Likewise.
* gimple-low.c (lower_builtin_setjmp): Likewise.
* tree-parloops.c (take_address_of): Likewise.
(create_call_for_reduction_1): Likewise.
* tree-profile.c (gimple_gen_interval_profiler): Likewise.
(gimple_gen_ic_func_profiler): Likewise.
fortran/
* trans-intrinsic.c (gfc_conv_intrinsic_lib_function): Adjust
calls to build_addr.
(gfc_conv_intrinsic_mod): Likewise.
(gfc_conv_intrinsic_ctime): Likewise.
(gfc_conv_intrinsic_fdate): Likewise.
(gfc_conv_intrinsic_ttynam): Likewise.
(gfc_conv_intrinsic_minmax_char): Likewise.
(gfc_conv_intrinsic_index_scan_verify): Likewise.
(gfc_conv_intrinsic_trim): Likewise.
From-SVN: r228862
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index ac61c09..15ef560 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -873,7 +873,7 @@ gfc_conv_intrinsic_lib_function (gfc_se * se, gfc_expr * expr) fndecl = gfc_get_intrinsic_lib_fndecl (m, expr); rettype = TREE_TYPE (TREE_TYPE (fndecl)); - fndecl = build_addr (fndecl, current_function_decl); + fndecl = build_addr (fndecl); se->expr = build_call_array_loc (input_location, rettype, fndecl, num_args, args); } @@ -2294,7 +2294,7 @@ gfc_conv_intrinsic_mod (gfc_se * se, gfc_expr * expr, int modulo) /* The builtin should always be available. */ gcc_assert (fmod != NULL_TREE); - tmp = build_addr (fmod, current_function_decl); + tmp = build_addr (fmod); se->expr = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (fmod)), tmp, 2, args); @@ -2600,7 +2600,7 @@ gfc_conv_intrinsic_ctime (gfc_se * se, gfc_expr * expr) args[0] = gfc_build_addr_expr (NULL_TREE, var); args[1] = gfc_build_addr_expr (NULL_TREE, len); - fndecl = build_addr (gfor_fndecl_ctime, current_function_decl); + fndecl = build_addr (gfor_fndecl_ctime); tmp = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (gfor_fndecl_ctime)), fndecl, num_args, args); @@ -2639,7 +2639,7 @@ gfc_conv_intrinsic_fdate (gfc_se * se, gfc_expr * expr) args[0] = gfc_build_addr_expr (NULL_TREE, var); args[1] = gfc_build_addr_expr (NULL_TREE, len); - fndecl = build_addr (gfor_fndecl_fdate, current_function_decl); + fndecl = build_addr (gfor_fndecl_fdate); tmp = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (gfor_fndecl_fdate)), fndecl, num_args, args); @@ -2849,7 +2849,7 @@ gfc_conv_intrinsic_ttynam (gfc_se * se, gfc_expr * expr) args[0] = gfc_build_addr_expr (NULL_TREE, var); args[1] = gfc_build_addr_expr (NULL_TREE, len); - fndecl = build_addr (gfor_fndecl_ttynam, current_function_decl); + fndecl = build_addr (gfor_fndecl_ttynam); tmp = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (gfor_fndecl_ttynam)), fndecl, num_args, args); @@ -2992,7 +2992,7 @@ gfc_conv_intrinsic_minmax_char (gfc_se * se, gfc_expr * expr, int op) gcc_unreachable (); /* Make the function call. */ - fndecl = build_addr (function, current_function_decl); + fndecl = build_addr (function); tmp = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (function)), fndecl, nargs + 4, args); @@ -5350,7 +5350,7 @@ gfc_conv_intrinsic_index_scan_verify (gfc_se * se, gfc_expr * expr, else args[4] = convert (logical4_type_node, args[4]); - fndecl = build_addr (function, current_function_decl); + fndecl = build_addr (function); se->expr = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (function)), fndecl, 5, args); @@ -6936,7 +6936,7 @@ gfc_conv_intrinsic_trim (gfc_se * se, gfc_expr * expr) else gcc_unreachable (); - fndecl = build_addr (function, current_function_decl); + fndecl = build_addr (function); tmp = build_call_array_loc (input_location, TREE_TYPE (TREE_TYPE (function)), fndecl, num_args, args); |