diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-10-07 22:05:35 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-07 20:05:35 +0000 |
| commit | 8e50858e075268ac75d6b39d31638633bb618768 (patch) | |
| tree | 4b60e0218f2ae27b06e3c103eaf82a4b81f0564c /gcc | |
| parent | 5551a54eda2d74c6d3ecd23e81b387d935c4603b (diff) | |
| download | gcc-8e50858e075268ac75d6b39d31638633bb618768.zip gcc-8e50858e075268ac75d6b39d31638633bb618768.tar.gz gcc-8e50858e075268ac75d6b39d31638633bb618768.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ad9c722..072331b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 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 associated dimen_type) in the full array ref case. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index b132bf6..9d4ef5a 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 6157a88..3404123 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; |