diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-06-27 20:00:50 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-06-27 20:00:50 +0000 |
| commit | e7041633a5b9ac8eb09b92de5321bf3184a7b98f (patch) | |
| tree | fa9685b9314b38bc39469f771fb889342e130b2d /gcc/fortran/trans-openmp.c | |
| parent | de8f4b07c03ffb0db0562f462be066684af2f0b7 (diff) | |
| download | gcc-e7041633a5b9ac8eb09b92de5321bf3184a7b98f.zip gcc-e7041633a5b9ac8eb09b92de5321bf3184a7b98f.tar.gz gcc-e7041633a5b9ac8eb09b92de5321bf3184a7b98f.tar.bz2 | |
gfortran.h (gfc_code): Split backend_decl field into cycle_label and exit_label fields.
* gfortran.h (gfc_code): Split backend_decl field into cycle_label
and exit_label fields.
* trans-openmp.c (gfc_trans_omp_do): Assign to new fields
individually.
* trans-stmt.c (gfc_trans_simple_do): Likewise.
(gfc_trans_do): Likewise.
(gfc_trans_do_while): Likewise.
(gfc_trans_cycle): Use cycle_label directly.
(gfc_trans_exit): Use exit_label directly.
From-SVN: r161473
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 1be4b81..a5d5ba1 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1357,12 +1357,10 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock, present for this loop. */ cycle_label = gfc_build_label_decl (NULL_TREE); - /* Put these labels where they can be found later. We put the - labels in a TREE_LIST node (because TREE_CHAIN is already - used). cycle_label goes in TREE_PURPOSE (backend_decl), exit - label in TREE_VALUE (backend_decl). */ + /* Put these labels where they can be found later. */ - code->block->backend_decl = tree_cons (cycle_label, NULL, NULL); + code->block->cycle_label = cycle_label; + code->block->exit_label = NULL_TREE; /* Main loop body. */ tmp = gfc_trans_omp_code (code->block->next, true); |