diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-07-05 12:46:52 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-07-05 12:46:52 +0000 |
| commit | 989ea525bec01e16c29b69bf5194310c551d9c34 (patch) | |
| tree | 5666dfc48fb2cc1c04e55452418033ee9e2438bd /gcc/fortran/trans-stmt.c | |
| parent | 7ec6356e22e1644f3fee6314790b2680098778de (diff) | |
| download | gcc-989ea525bec01e16c29b69bf5194310c551d9c34.zip gcc-989ea525bec01e16c29b69bf5194310c551d9c34.tar.gz gcc-989ea525bec01e16c29b69bf5194310c551d9c34.tar.bz2 | |
vec.h (VEC_splice, [...]): New macros.
gcc/
* vec.h (VEC_splice, VEC_safe_splice): New macros. Add function
implementations.
gcc/fortran/
* trans.h (gfc_conv_procedure_call): Take a VEC instead of a tree.
* trans-intrinsic.c (gfc_conv_intrinsic_funcall): Adjust for new
type of gfc_conv_procedure_call.
(conv_generic_with_optional_char_arg): Likewise.
* trans-stmt.c (gfc_trans_call): Likewise.
* trans-expr.c (gfc_conv_function_expr): Likewise.
(gfc_conv_procedure_call): Use build_call_vec instead of
build_call_list.
From-SVN: r161834
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 15f2acb..beada6a 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -373,7 +373,7 @@ gfc_trans_call (gfc_code * code, bool dependency_check, /* Translate the call. */ has_alternate_specifier = gfc_conv_procedure_call (&se, code->resolved_sym, code->ext.actual, - code->expr1, NULL_TREE); + code->expr1, NULL); /* A subroutine without side-effect, by definition, does nothing! */ TREE_SIDE_EFFECTS (se.expr) = 1; @@ -457,8 +457,7 @@ gfc_trans_call (gfc_code * code, bool dependency_check, /* Add the subroutine call to the block. */ gfc_conv_procedure_call (&loopse, code->resolved_sym, - code->ext.actual, code->expr1, - NULL_TREE); + code->ext.actual, code->expr1, NULL); if (mask && count1) { |