diff mbox

[fortran,17/66] inline sum and product: Interfaces changes: gfc_set_vector_loop_bounds

Message ID 20111027233015.18581.70405@gimli.local
State New
Headers show

Commit Message

Mikael Morin Oct. 27, 2011, 11:30 p.m. UTC 
Same as previous patch, gfc_set_vector_loop_bounds uses dimensions, and thus
needs a gfc_ss struct as argument.
gfc_ prefix removed along the way.
OK?
2011-10-19  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.
diff mbox

Patch

diff --git a/trans-array.c b/trans-array.c
index 0e7c1c1..6af4fd6 100644
--- a/trans-array.c
+++ b/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: