]> gcc.gnu.org Git - gcc.git/commitdiff
trans.c (gfc_trans_code): Set global locus after recursing.
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Sat, 30 Oct 2004 14:35:23 +0000 (14:35 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Sat, 30 Oct 2004 14:35:23 +0000 (14:35 +0000)
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

gcc/fortran/ChangeLog
gcc/fortran/trans.c

index c950f8c1920c50efa7b191a05fbee9c3c264c92a..b66bc3ed8d1717e7f525fd845a531931fac4c260 100644 (file)
@@ -1,3 +1,8 @@
+2004-10-30  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * trans.c (gfc_trans_code): Set global locus after recursing. Fix
+       comment typo.
+
 2004-10-30  Canqun Yang  <canqun@nudt.edu.cn>
 
        * check.c (gfc_check_rand): Allow missing optional argument. 
index 8005b32924bf0820fe443c69ad8cfc4dc037db3f..35105437f71244e26a307c7de2d1322ee20c2b1c 100644 (file)
@@ -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);
        }
     }
This page took 0.074569 seconds and 5 git commands to generate.