trans.h (gfc_ss): Remove data.temp.codimen field.

	* trans.h (gfc_ss): Remove data.temp.codimen field.
	* trans-array.c (gfc_conv_resolve_dependencies,
	gfc_conv_expr_descriptor): Don't set temp's codimen field.

From-SVN: r179686

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ad9c722ec7fafdb3ce09b27b35213698a5028f09..072331bb9ae01e58280d654486b33b12ed25c49b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
+
+       * trans.h (gfc_ss): Remove data.temp.codimen field.
+       * trans-array.c (gfc_conv_resolve_dependencies,
+       gfc_conv_expr_descriptor): Don't set temp's codimen field.
+
 2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
 
        * resolve.c (resolve_array_ref): Set array_ref's dimen field (and the

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index b132bf655bdbcbd788c08a30c8d88a9b3272e503..9d4ef5abc4eed1cee3ddeb9d9b5d21e2b08cdcbf 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3861,7 +3861,6 @@ temporary:
        base_type = gfc_get_element_type (base_type);
       loop->temp_ss = gfc_get_temp_ss (base_type, dest->string_length,
                                       loop->dimen);
-      loop->temp_ss->data.temp.codimen = loop->codimen;
       gfc_add_ss_to_loop (loop, loop->temp_ss);
     }
   else
@@ -5920,7 +5919,6 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
 
       se->string_length = loop.temp_ss->string_length;
       gcc_assert (loop.temp_ss->data.temp.dimen == loop.dimen);
-      loop.temp_ss->data.temp.codimen = loop.codimen;
       gfc_add_ss_to_loop (&loop, loop.temp_ss);
     }
 

diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index 6157a885676a03ce94eadf801131008b07f89301..340412391edf4fdba546f994546babd5d50408bd 100644 (file)
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -212,7 +212,7 @@ typedef struct gfc_ss
     {
       /* The rank of the temporary.  May be less than the rank of the
          assigned expression.  */
-      int dimen, codimen;
+      int dimen;
       tree type;
     }
     temp;