OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Schlüter 2004-10-30 14:35:23 +00:00 committed by Paul Brook
parent 7a003d8e2e
commit bf737879fa
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View 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.

8
gcc/fortran/trans.c
View 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);
}
}