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

trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.

Browse source 
* trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.
	Remove loop argument.
	(gfc_add_loop_ss_code): Update call.

From-SVN: r180885
This commit is contained in:
Mikael Morin 2011-11-03 22:56:12 +00:00
parent 4615abe856
commit 84952a4e31
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.
Remove loop argument.
(gfc_add_loop_ss_code): Update call.
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans.h (struct gfc_ss): New field loop.

6
gcc/fortran/trans-array.c
View file

@ -2162,8 +2162,9 @@ finish:
loop bounds. */
static void
set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss * ss)
set_vector_loop_bounds (gfc_ss * ss)
{
gfc_loopinfo *loop;
gfc_array_info *info;
gfc_se se;
tree tmp;
@ -2173,6 +2174,7 @@ set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss * ss)
int dim;
info = &ss->info->data.array;
loop = ss->loop;
for (n = 0; n < loop->dimen; n++)
{
@ -2271,7 +2273,7 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, bool subscript,
if (info->subscript[n])
gfc_add_loop_ss_code (loop, info->subscript[n], true, where);
set_vector_loop_bounds (loop, ss);
set_vector_loop_bounds (ss);
break;
case GFC_SS_VECTOR: