From 43e7d60bc6f03030a9b1355e3866b67a4e769cc7 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Thu, 3 Nov 2011 21:31:12 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/trans-array.c | 7 +++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dec4134d3891..57673ba406f0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2011-11-03 Mikael Morin + + * 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 * trans-array.h (gfc_trans_create_temp_array): Replace info argument diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 0e7c1c14c77c..6af4fd6174cb 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: -- 2.47.2