mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 14:41:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans-array.c (gfc_set_vector_loop_bounds, [...]): Rename the former to the latter.

Browse Source 
* trans-array.c (gfc_set_vector_loop_bounds, set_vector_loop_bounds):
	Rename the former to the latter.  Change type and name of argument.
	Get previous argument from the new one.
	(gfc_add_loop_ss_code): Update call.

From-SVN: r180860
This commit is contained in:
Mikael Morin 2011-11-03 21:31:12 +00:00
parent f44d227711
commit 43e7d60bc6
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_set_vector_loop_bounds, set_vector_loop_bounds):
Rename the former to the latter. Change type and name of argument.
Get previous argument from the new one.
(gfc_add_loop_ss_code): Update call.
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.h (gfc_trans_create_temp_array): Replace info argument

7
gcc/fortran/trans-array.c
View File

@ -2094,8 +2094,9 @@ finish:
loop bounds. */
static void
gfc_set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss_info * info)
set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss * ss)
{
gfc_ss_info *info;
gfc_se se;
tree tmp;
tree desc;
@ -2103,6 +2104,8 @@ gfc_set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss_info * info)
int n;
int dim;
info = &ss->data.info;
for (n = 0; n < loop->dimen; n++)
{
dim = info->dim[n];
@ -2194,7 +2197,7 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, bool subscript,
gfc_add_loop_ss_code (loop, ss->data.info.subscript[n], true,
where);
gfc_set_vector_loop_bounds (loop, &ss->data.info);
set_vector_loop_bounds (loop, ss);
break;
case GFC_SS_VECTOR: