diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-02-28 19:59:05 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-02-28 19:59:05 +0000 |
| commit | d436d3dea2af2288cf3bace09f693bf27caebe15 (patch) | |
| tree | c7a5e6e083932613a6e11bd65e488faa99e6d612 | |
| parent | 4e3d914635bd2fb63f8baf45f824337d4444b88b (diff) | |
| download | gcc-d436d3dea2af2288cf3bace09f693bf27caebe15.zip gcc-d436d3dea2af2288cf3bace09f693bf27caebe15.tar.gz gcc-d436d3dea2af2288cf3bace09f693bf27caebe15.tar.bz2 | |
trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument.
* trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument.
(gfc_conv_intrinsic_function): update function calls
From-SVN: r95695
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 11 |
2 files changed, 9 insertions, 7 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 80c63bd..0ddf41c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-02-28 Steven G. Kargl <kargl@gcc.gnu.org> + + * trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument. + (gfc_conv_intrinsic_function): update function calls + 2005-02-27 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/20058 diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index dcabd41..57bb8c3 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -2649,11 +2649,10 @@ gfc_conv_intrinsic_repeat (gfc_se * se, gfc_expr * expr) } -/* Generate code for the IARGC intrinsic. If args_only is true this is - actually the COMMAND_ARGUMENT_COUNT intrinsic, so return IARGC - 1. */ +/* Generate code for the IARGC intrinsic. */ static void -gfc_conv_intrinsic_iargc (gfc_se * se, gfc_expr * expr, bool args_only) +gfc_conv_intrinsic_iargc (gfc_se * se, gfc_expr * expr) { tree tmp; tree fndecl; @@ -2667,8 +2666,6 @@ gfc_conv_intrinsic_iargc (gfc_se * se, gfc_expr * expr, bool args_only) type = gfc_typenode_for_spec (&expr->ts); tmp = fold_convert (type, tmp); - if (args_only) - tmp = build2 (MINUS_EXPR, type, tmp, build_int_cst (type, 1)); se->expr = tmp; } @@ -2827,7 +2824,7 @@ gfc_conv_intrinsic_function (gfc_se * se, gfc_expr * expr) break; case GFC_ISYM_COMMAND_ARGUMENT_COUNT: - gfc_conv_intrinsic_iargc (se, expr, TRUE); + gfc_conv_intrinsic_iargc (se, expr); break; case GFC_ISYM_CONJG: @@ -2869,7 +2866,7 @@ gfc_conv_intrinsic_function (gfc_se * se, gfc_expr * expr) break; case GFC_ISYM_IARGC: - gfc_conv_intrinsic_iargc (se, expr, FALSE); + gfc_conv_intrinsic_iargc (se, expr); break; case GFC_ISYM_IEOR: |