| Line 1039... |
Line 1039... |
{
|
{
|
gfc_current_backend_file = loc->lb->file;
|
gfc_current_backend_file = loc->lb->file;
|
input_location = loc->lb->location;
|
input_location = loc->lb->location;
|
}
|
}
|
|
|
|
/* Annotate statement or statement list T with location LOC. */
|
|
|
|
static void
|
|
gfc_annotate_with_location (tree t, location_t loc)
|
|
{
|
|
if (TREE_CODE (t) == STATEMENT_LIST)
|
|
{
|
|
tree_stmt_iterator i;
|
|
|
|
for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
|
|
gfc_annotate_with_location (tsi_stmt (i), loc);
|
|
return;
|
|
}
|
|
if (TREE_CODE (t) == COMPOUND_EXPR)
|
|
{
|
|
gfc_annotate_with_location (TREE_OPERAND (t, 0), loc);
|
|
gfc_annotate_with_location (TREE_OPERAND (t, 1), loc);
|
|
}
|
|
if (TREE_CODE (t) == LABEL_EXPR || !TREE_SIDE_EFFECTS (t))
|
|
return;
|
|
if (CAN_HAVE_LOCATION_P (t) && ! EXPR_HAS_LOCATION (t))
|
|
SET_EXPR_LOCATION (t, loc);
|
|
}
|
|
|
/* Translate an executable statement. The tree cond is used by gfc_trans_do.
|
/* Translate an executable statement. The tree cond is used by gfc_trans_do.
|
This static function is wrapped by gfc_trans_code_cond and
|
This static function is wrapped by gfc_trans_code_cond and
|
gfc_trans_code. */
|
gfc_trans_code. */
|
|
|
| Line 1065... |
Line 1088... |
{
|
{
|
res = gfc_trans_label_here (code);
|
res = gfc_trans_label_here (code);
|
gfc_add_expr_to_block (&block, res);
|
gfc_add_expr_to_block (&block, res);
|
}
|
}
|
|
|
|
gfc_set_backend_locus (&code->loc);
|
|
|
switch (code->op)
|
switch (code->op)
|
{
|
{
|
case EXEC_NOP:
|
case EXEC_NOP:
|
case EXEC_END_BLOCK:
|
case EXEC_END_BLOCK:
|
case EXEC_END_PROCEDURE:
|
case EXEC_END_PROCEDURE:
|
| Line 1279... |
Line 1304... |
|
|
gfc_set_backend_locus (&code->loc);
|
gfc_set_backend_locus (&code->loc);
|
|
|
if (res != NULL_TREE && ! IS_EMPTY_STMT (res))
|
if (res != NULL_TREE && ! IS_EMPTY_STMT (res))
|
{
|
{
|
if (TREE_CODE (res) != STATEMENT_LIST)
|
gfc_annotate_with_location (res, input_location);
|
SET_EXPR_LOCATION (res, input_location);
|
|
|
|
/* Add the new statement to the block. */
|
/* Add the new statement to the block. */
|
gfc_add_expr_to_block (&block, res);
|
gfc_add_expr_to_block (&block, res);
|
}
|
}
|
}
|
}
|
