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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index dec4134d3891677d8c1532324a74549fc8ef3b4b..57673ba406f06f5ee6215dfbe2e3d71cab3963bd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 0e7c1c14c77c59a1ff159b392a0d01d29cbea2ae..6af4fd6174cbd4e749cc91062123fb39f6e87d46 100644 (file)
--- 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: