diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2010-10-06 15:59:31 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-10-06 15:59:31 +0000 |
| commit | 3db5d687b485630201b905fae8f54cf39c65cc6a (patch) | |
| tree | 1e4489346bf74d625a3d7f75b6972c82f5b92e10 /gcc/fortran/trans-expr.c | |
| parent | 363aab219509999ae48a7c8e5c515e7d82f08474 (diff) | |
| download | gcc-3db5d687b485630201b905fae8f54cf39c65cc6a.zip gcc-3db5d687b485630201b905fae8f54cf39c65cc6a.tar.gz gcc-3db5d687b485630201b905fae8f54cf39c65cc6a.tar.bz2 | |
trans-array.c (gfc_conv_tmp_array_ref): Add factorized call to gfc_advance_se_ss_chain.
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_conv_tmp_array_ref): Add factorized call to
gfc_advance_se_ss_chain.
* trans-expr.c (gfc_conv_subref_array_ref, gfc_conv_procedure_call,
gfc_conv_array_constructor_expr, gfc_trans_assignment_1): Remove
calls to gfc_advance_se_ss_chain after gfc_conv_tmp_array_ref.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Ditto.
* trans-stmt.c (gfc_trans_where_assign, gfc_trans_where_3): Ditto.
From-SVN: r165046
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index a6837c9..d662d20 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2354,7 +2354,6 @@ gfc_conv_subref_array_arg (gfc_se * parmse, gfc_expr * expr, int g77, gfc_conv_expr (&rse, expr); gfc_conv_tmp_array_ref (&lse); - gfc_advance_se_ss_chain (&lse); if (intent != INTENT_OUT) { @@ -2829,7 +2828,6 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, /* Access the previously obtained result. */ gfc_conv_tmp_array_ref (se); - gfc_advance_se_ss_chain (se); return 0; } } @@ -3977,7 +3975,6 @@ gfc_conv_array_constructor_expr (gfc_se * se, gfc_expr * expr) gcc_assert (se->ss->expr == expr && se->ss->type == GFC_SS_CONSTRUCTOR); gfc_conv_tmp_array_ref (se); - gfc_advance_se_ss_chain (se); } @@ -5679,7 +5676,6 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, if (l_is_temp) { gfc_conv_tmp_array_ref (&lse); - gfc_advance_se_ss_chain (&lse); if (expr2->ts.type == BT_CHARACTER) lse.string_length = string_length; } @@ -5730,7 +5726,6 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, lse.ss = lss; gfc_conv_tmp_array_ref (&rse); - gfc_advance_se_ss_chain (&rse); gfc_conv_expr (&lse, expr1); gcc_assert (lse.ss == gfc_ss_terminator |