diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:24:37 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:24:37 +0000 |
| commit | 7a412892a6b9234be08dee746a8b15b770756d99 (patch) | |
| tree | 202c68bdeb115b6b4d82e3cdab5e3f5f677ae71e /gcc/fortran/trans-array.c | |
| parent | c3b0bfe175273179cf5dc786c571ea88867898b7 (diff) | |
| download | gcc-7a412892a6b9234be08dee746a8b15b770756d99.zip gcc-7a412892a6b9234be08dee746a8b15b770756d99.tar.gz gcc-7a412892a6b9234be08dee746a8b15b770756d99.tar.bz2 | |
trans.h (struct gfc_ss, [...]): Move field gfc_ss::useflags into gfc_ss_info.
* trans.h (struct gfc_ss, struct gfc_ss_info): Move field
gfc_ss::useflags into gfc_ss_info.
* trans-array.c (gfc_mark_ss_chain_used, gfc_trans_preloop_setup,
gfc_trans_scalarizing_loops, gfc_trans_scalarized_boundary):
Update reference chains.
* trans-expr.c (gfc_conv_procedure_call): Ditto.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Ditto.
From-SVN: r180875
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 78e1443..427bb7b 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -463,7 +463,7 @@ void gfc_mark_ss_chain_used (gfc_ss * ss, unsigned flags) { for (; ss != gfc_ss_terminator; ss = ss->next) - ss->useflags = flags; + ss->info->useflags = flags; } static void gfc_free_ss (gfc_ss *); @@ -2906,7 +2906,7 @@ gfc_trans_preloop_setup (gfc_loopinfo * loop, int dim, int flag, { ss_info = ss->info; - if ((ss->useflags & flag) == 0) + if ((ss_info->useflags & flag) == 0) continue; ss_type = ss_info->type; @@ -3148,7 +3148,7 @@ gfc_trans_scalarizing_loops (gfc_loopinfo * loop, stmtblock_t * body) /* Clear all the used flags. */ for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain) - ss->useflags = 0; + ss->info->useflags = 0; } @@ -3185,7 +3185,7 @@ gfc_trans_scalarized_loop_boundary (gfc_loopinfo * loop, stmtblock_t * body) ss_info = ss->info; - if ((ss->useflags & 2) == 0) + if ((ss_info->useflags & 2) == 0) continue; ss_type = ss_info->type; |