diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:01:46 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:01:46 +0000 |
| commit | f98cfd3c42d1aca224bfe463f5852d1ae1e5bd2e (patch) | |
| tree | 96892ec4c807893a7f05a894d6de0ca185078393 /gcc/fortran/trans-stmt.c | |
| parent | bcc4d4e089f5371278a50f8c8827f00a2523854d (diff) | |
| download | gcc-f98cfd3c42d1aca224bfe463f5852d1ae1e5bd2e.zip gcc-f98cfd3c42d1aca224bfe463f5852d1ae1e5bd2e.tar.gz gcc-f98cfd3c42d1aca224bfe463f5852d1ae1e5bd2e.tar.bz2 | |
trans.h (struct gfc_ss, [...]): Move field expr from the former struct to the latter.
* trans.h (struct gfc_ss, struct gfc_ss_info): Move field expr from
the former struct to the latter.
* trans-array.c
(gfc_get_array_ss, gfc_get_scalar_ss,
gfc_trans_constant_array_constructor, gfc_trans_array_constructor,
gfc_add_loop_ss_code, gfc_conv_ss_descriptor,
gfc_trans_array_bound_check, gfc_conv_array_index_offset,
gfc_conv_scalarized_array_ref, gfc_conv_ss_startstride,
gfc_could_be_alias, gfc_conv_resolve_dependencies,
gfc_conv_loop_setup, gfc_conv_expr_descriptor,
gfc_alloc_allocatable_for_assignment): Update references to expr and
factor common reference chains where possible.
* trans-const.c (gfc_conv_constant): Ditto.
* trans-expr.c (gfc_conv_variable, gfc_conv_procedure_call,
gfc_conv_array_constructor_expr, gfc_conv_expr,
gfc_conv_expr_reference): Ditto.
* trans-intrinsic.c (trans_this_image, gfc_conv_intrinsic_bound,
gfc_conv_intrinsic_cobound, gfc_conv_intrinsic_funcall,
gfc_add_intrinsic_ss_code): Ditto.
* trans-stmt.c (gfc_conv_elemental_dependencies): Ditto.
From-SVN: r180868
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index c89419a..936a4ee 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -220,7 +220,7 @@ gfc_conv_elemental_dependencies (gfc_se * se, gfc_se * loopse, info = NULL; for (ss = loopse->ss; ss && ss != gfc_ss_terminator; ss = ss->next) { - if (ss->expr != e) + if (ss->info->expr != e) continue; info = &ss->data.info; break; |