FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Use gfc_index_one_node.

Browse source 
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Use
	gfc_index_one_node.
	(gfc_conv_intrinsic_size): Use gfc_index_{zero,one}_node.

From-SVN: r142046
This commit is contained in:
Jakub Jelinek 2008-11-20 16:21:12 +01:00 • committed by Jakub Jelinek
parent 97e274e76f
commit 8c3ed71edb
2 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,5 +1,9 @@
2008-11-20 Jakub Jelinek <jakub@redhat.com>
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Use
gfc_index_one_node.
(gfc_conv_intrinsic_size): Use gfc_index_{zero,one}_node.
PR fortran/38181
* trans-intrinsic.c (gfc_conv_intrinsic_size): Inline 2 argument
size if the second argument is not optional and one argument size

13
gcc/fortran/trans-intrinsic.c
View file

@ -2209,7 +2209,7 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, int op)
tmp = fold_build2 (MINUS_EXPR, gfc_array_index_type,
gfc_index_one_node, loop.from[0]);
else
tmp = build_int_cst (gfc_array_index_type, 1);
tmp = gfc_index_one_node;
gfc_add_modify (&block, offset, tmp);
@ -3422,14 +3422,13 @@ gfc_conv_intrinsic_size (gfc_se * se, gfc_expr * expr)
else
{
se->expr = NULL_TREE;
argse.expr = fold_build2 (MINUS_EXPR,
gfc_array_index_type, argse.expr,
build_int_cst (gfc_array_index_type, 1));
argse.expr = fold_build2 (MINUS_EXPR, gfc_array_index_type,
argse.expr, gfc_index_one_node);
}
}
else if (expr->value.function.actual->expr->rank == 1)
{
argse.expr = build_int_cst (gfc_array_index_type, 0);
argse.expr = gfc_index_zero_node;
se->expr = NULL_TREE;
}
else
@ -3445,9 +3444,9 @@ gfc_conv_intrinsic_size (gfc_se * se, gfc_expr * expr)
se->expr = fold_build2 (MINUS_EXPR, gfc_array_index_type,
ubound, lbound);
se->expr = fold_build2 (PLUS_EXPR, gfc_array_index_type, se->expr,
build_int_cst (gfc_array_index_type, 1));
gfc_index_one_node);
se->expr = fold_build2 (MAX_EXPR, gfc_array_index_type, se->expr,
build_int_cst (gfc_array_index_type, 0));
gfc_index_zero_node);
}
type = gfc_typenode_for_spec (&expr->ts);