diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-30 14:35:23 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-10-30 14:35:23 +0000 |
| commit | bf737879fa82bd9797ad559518dfab1ce9e1f4d6 (patch) | |
| tree | 89e26787fdeb2f802a81caf7083a638ab398aac7 /gcc/fortran/trans.c | |
| parent | 7a003d8e2e5f20fab390c2e2988e1c630cbb3ba9 (diff) | |
| download | gcc-bf737879fa82bd9797ad559518dfab1ce9e1f4d6.zip gcc-bf737879fa82bd9797ad559518dfab1ce9e1f4d6.tar.gz gcc-bf737879fa82bd9797ad559518dfab1ce9e1f4d6.tar.bz2 | |
trans.c (gfc_trans_code): Set global locus after recursing.
2004-10-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans.c (gfc_trans_code): Set global locus after recursing. Fix
comment typo.
From-SVN: r89887
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 8005b32..3510543 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -479,8 +479,6 @@ gfc_trans_code (gfc_code * code) the end of this gfc_code branch. */ for (; code; code = code->next) { - gfc_set_backend_locus (&code->loc); - if (code->here != 0) { res = gfc_trans_label_here (code); @@ -625,14 +623,16 @@ gfc_trans_code (gfc_code * code) internal_error ("gfc_trans_code(): Bad statement code"); } + gfc_set_backend_locus (&code->loc); + if (res != NULL_TREE && ! IS_EMPTY_STMT (res)) { if (TREE_CODE (res) == STATEMENT_LIST) annotate_all_with_locus (&res, input_location); else SET_EXPR_LOCATION (res, input_location); - - /* Add the new statemment to the block. */ + + /* Add the new statement to the block. */ gfc_add_expr_to_block (&block, res); } } |