From: Mikael Morin <mikael.morin@sfr.fr>
Date: Fri, 7 Oct 2011 19:33:10 +0000 (+0200)
Subject: trans-array.c (gfc_conv_section_startstride): Factor common array ref references.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3ca398580df5bc111e2427922c5c088f693914d3;p=gcc.git

trans-array.c (gfc_conv_section_startstride): Factor common array ref references.

	* trans-array.c (gfc_conv_section_startstride): Factor common
	array ref references.

From-SVN: r179679
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 78f6885aeb8..349e96a2cbc 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
+
+	* trans-array.c (gfc_conv_section_startstride): Factor common
+	array ref references.
+
 2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
 
 	* trans-array.c (gfc_conv_expr_descriptor): Use codim instead of
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 0f5f29ccb1d..7cc86ba2673 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3187,12 +3187,14 @@ gfc_conv_section_startstride (gfc_loopinfo * loop, gfc_ss * ss, int dim,
   tree desc;
   gfc_se se;
   gfc_ss_info *info;
+  gfc_array_ref *ar;
 
   gcc_assert (ss->type == GFC_SS_SECTION);
 
   info = &ss->data.info;
+  ar = &info->ref->u.ar;
 
-  if (info->ref->u.ar.dimen_type[dim] == DIMEN_VECTOR)
+  if (ar->dimen_type[dim] == DIMEN_VECTOR)
     {
       /* We use a zero-based index to access the vector.  */
       info->start[dim] = gfc_index_zero_node;
@@ -3202,12 +3204,12 @@ gfc_conv_section_startstride (gfc_loopinfo * loop, gfc_ss * ss, int dim,
       return;
     }
 
-  gcc_assert (info->ref->u.ar.dimen_type[dim] == DIMEN_RANGE);
+  gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE);
   desc = info->descriptor;
-  start = info->ref->u.ar.start[dim];
-  end = info->ref->u.ar.end[dim];
+  start = ar->start[dim];
+  end = ar->end[dim];
   if (!coarray)
-    stride = info->ref->u.ar.stride[dim];
+    stride = ar->stride[dim];
 
   /* Calculate the start of the range.  For vector subscripts this will
      be the range of the vector.  */