mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 12:21:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument.

Browse Source 
* trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument.
  (gfc_conv_intrinsic_function): update function calls

From-SVN: r95695
This commit is contained in:
Steven G. Kargl 2005-02-28 19:59:05 +00:00
parent 4e3d914635
commit d436d3dea2
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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

11
gcc/fortran/trans-intrinsic.c
View File

@ -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: