OSDN Git Service

* trans-array.c (constant_array_constructor_loop_size):
[pf3gnuchains/gcc-fork.git] / gcc / fortran / ChangeLog
index 802c2ff..e359eca 100644 (file)
@@ -1,5 +1,152 @@
 2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
 
+       * trans-array.c (constant_array_constructor_loop_size):
+       Handle multiple loops.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (get_rank, get_loop_upper_bound_for_array):
+       New functions.
+       (gfc_trans_array_constructor): Handle multiple loops.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_loopinfo): New field parent.
+       * trans-array.c (gfc_cleanup_loop): Free nested loops.
+       (gfc_add_ss_to_loop): Set nested_loop's parent loop.
+       (gfc_trans_array_constructor): Update assertion.
+       (gfc_conv_loop_setup): Ditto.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_add_loop_ss_code): Skip non-nestedmost ss.
+       Call recursively gfc_add_loop_ss_code for all the nested loops.
+       (gfc_conv_ss_startstride): Only get the descriptor for the outermost
+       ss. Call recursively gfc_conv_ss_startstride for all the nested loops.
+       (set_loop_bounds): Call recursively for all the nested loops.
+       (set_delta): Ditto.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_loopinfo): New fields nested and next.
+       * trans-array.c (gfc_add_ss_to_loop): Update list of nested list if
+       ss has non-null nested_ss field.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_create_temp_array): Loop over the parents.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (get_array_ref_dim, get_scalarizer_dim_for_array_dim): 
+       Rename the former to the latter and loop over the parents.
+       (innermost_ss): New function.
+       (get_array_ref_dim_for_loop_dim): New function.
+       (gfc_trans_create_temp_array): Use get_scalarizer_dim_for_array_dim.
+       (set_loop_bounds): Use get_array_dim_for_loop_dim).
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_ss): New field nested_ss.
+       * trans-expr.c (gfc_advance_se_ss_chain): Update assertion.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (set_vector_loop_bounds): Loop over the parents.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_array_constructor): Loop over the parents.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_set_loop_bounds_from_array_spec): Loop over the
+       parents.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_ss): New field parent.
+       * trans-array.c (gfc_trans_scalarizing_loops): Skip clearing if a
+       parent exists.
+       * trans-expr.c (gfc_advance_se_ss_chain): Move to parent ss at the
+       end of the chain.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.h (gfc_trans_create_temp_array): Remove loop argument.
+       * trans-array.c (gfc_trans_create_temp_array): Ditto.  Get loop from ss.
+       Update reference to loop.  Remove loop argument.
+       (gfc_trans_array_constructor, gfc_conv_loop_setup): Update calls to
+       gfc_trans_create_temp_array.
+       * trans-expr.c (gfc_conv_procedure_call): Ditto.
+       * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Ditto.
+       * trans-stmt.c (gfc_conv_elemental_dependencies): Ditto.
+       Set loop before calling gfc_trans_create_temp_array.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_create_temp_array): New variable total_dim.
+       Set total_dim to loop's rank. Replace usages of loop's rank.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_array_constructor, trans_array_constructor):
+       Rename the former to the later.  Get loop from ss.
+       Remove loop argument.
+       (gfc_add_loop_ss_code): Update call.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.
+       Remove loop argument.
+       (gfc_add_loop_ss_code): Update call.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_ss): New field loop.
+       * trans-array.c (set_ss_loop): New function.
+       (gfc_add_ss_to_loop): Call set_ss_loop.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans.h (struct gfc_ss_info): New field refcount.
+       * trans-array.c (free_ss_info): Decrement refcount. Return early if
+       still non-zero.
+       (gfc_get_array_ss, gfc_get_temp_ss, gfc_get_scalar_ss): Increment
+       refcount.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_trans_create_temp_array): Move invariant condition
+       out of the containing loop. 
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (gfc_conv_loop_setup, gfc_trans_create_temp_array):
+       Move specloop arrays clearing from the former to the latter.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (set_loop_bounds): Separate the beginning of
+       gfc_conv_loop_setup into a function of its own.
+       (set_delta): Separate the end of gfc_conv_loop_setup into a function
+       of its own.
+       (gfc_conv_loop_setup): Call set_loop_bounds and set delta.
+       (set_loop_bounds, set_delta, gfc_conv_loop_setup): Make loopspec a
+       pointer to the specloop field from the loop struct.
+
+2011-11-03  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/50933
+       * interface.c (gfc_compare_derived_types): Fix check for BIND(C).
+
+2011-11-03  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/50960
+       * trans-decl.c (gfc_finish_var_decl): Mark PARAMETER as TREE_READONLY.
+
+2011-11-03  Mikael Morin  <mikael@gcc.gnu.org>
+
        * trans.h (struct gfc_ss, struct gfc_ss_info): Move field
        gfc_ss::where into gfc_ss_info.
        * trans-array.c (gfc_add_loop_ss_code):