diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 21:31:12 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 21:31:12 +0000 |
| commit | 43e7d60bc6f03030a9b1355e3866b67a4e769cc7 (patch) | |
| tree | e64ec381d7d8216b531dfb7b9e2dcfb10082d179 /gcc | |
| parent | f44d2277117c668c073ffde7732977699a221ceb (diff) | |
| download | gcc-43e7d60bc6f03030a9b1355e3866b67a4e769cc7.zip gcc-43e7d60bc6f03030a9b1355e3866b67a4e769cc7.tar.gz gcc-43e7d60bc6f03030a9b1355e3866b67a4e769cc7.tar.bz2 | |
trans-array.c (gfc_set_vector_loop_bounds, [...]): Rename the former to the latter.
* 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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 7 |
2 files changed, 12 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dec4134..57673ba 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 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 with ss argument. * trans-array.c (gfc_trans_create_temp_array): Ditto. Get info from ss. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 0e7c1c1..6af4fd6 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -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: |