From bf737879fa82bd9797ad559518dfab1ce9e1f4d6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 30 Oct 2004 14:35:23 +0000 Subject: [PATCH] trans.c (gfc_trans_code): Set global locus after recursing. 2004-10-30 Tobias Schlueter * trans.c (gfc_trans_code): Set global locus after recursing. Fix comment typo. From-SVN: r89887 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans.c | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c950f8c1920..b66bc3ed8d1 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-10-30 Tobias Schlueter + + * trans.c (gfc_trans_code): Set global locus after recursing. Fix + comment typo. + 2004-10-30 Canqun Yang * check.c (gfc_check_rand): Allow missing optional argument. diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 8005b32924b..35105437f71 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); } } -- 2.30.2