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

trans-stmt.c (gfc_trans_goto): Jump to the known label instead of the assigned goto variable.

Browse Source 
* trans-stmt.c (gfc_trans_goto): Jump to the known label instead
	of the assigned goto variable.

From-SVN: r102607
This commit is contained in:
Steven Bosscher 2005-07-31 20:36:47 +00:00 committed by Steven Bosscher
parent 7dcbf65993
commit 75d2cf695f
2 changed files with 11 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 @@
2005-07-31 Steven Bosscher <stevenb@suse.de>
* trans-stmt.c (gfc_trans_goto): Jump to the known label instead
of the assigned goto variable.
2005-07-29 Steven Bosscher <stevenb@suse.de>
* trans-types.h (gfc_array_range_type): Add missing GTY decl for this.

10
gcc/fortran/trans-stmt.c
View File

@ -163,11 +163,11 @@ gfc_trans_goto (gfc_code * code)
gfc_trans_runtime_check (tmp, assign_error, &se.pre);
assigned_goto = GFC_DECL_ASSIGN_ADDR (se.expr);
target = build1 (GOTO_EXPR, void_type_node, assigned_goto);
code = code->block;
if (code == NULL)
{
target = build1 (GOTO_EXPR, void_type_node, assigned_goto);
gfc_add_expr_to_block (&se.pre, target);
return gfc_finish_block (&se.pre);
}
@ -177,10 +177,12 @@ gfc_trans_goto (gfc_code * code)
do
{
tmp = gfc_get_label_decl (code->label);
tmp = gfc_build_addr_expr (pvoid_type_node, tmp);
target = gfc_get_label_decl (code->label);
tmp = gfc_build_addr_expr (pvoid_type_node, target);
tmp = build2 (EQ_EXPR, boolean_type_node, tmp, assigned_goto);
tmp = build3_v (COND_EXPR, tmp, target, build_empty_stmt ());
tmp = build3_v (COND_EXPR, tmp,
build1 (GOTO_EXPR, void_type_node, target),
build_empty_stmt ());
gfc_add_expr_to_block (&se.pre, tmp);
code = code->block;
}