From 8e50858e075268ac75d6b39d31638633bb618768 Mon Sep 17 00:00:00 2001 From: Mikael Morin Date: Fri, 7 Oct 2011 22:05:35 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-array.c | 2 -- gcc/fortran/trans.h | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ad9c722ec7f..072331bb9ae 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-10-07 Mikael Morin + + * 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 * 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 b132bf655bd..9d4ef5abc4e 100644 --- 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 6157a885676..340412391ed 100644 --- 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;