diff options
| author | Steven Bosscher <stevenb@suse.de> | 2005-01-27 00:58:11 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2005-01-27 00:58:11 +0000 |
| commit | c006df4eecdd0b1abbaca7728893d3729df10e65 (patch) | |
| tree | 4960857b959a431ea43e5af1b1a42bcea50d741c /gcc/fortran/trans-io.c | |
| parent | 2f0a3aa2db103da5125827aad01c97359c62b81e (diff) | |
| download | gcc-c006df4eecdd0b1abbaca7728893d3729df10e65.zip gcc-c006df4eecdd0b1abbaca7728893d3729df10e65.tar.gz gcc-c006df4eecdd0b1abbaca7728893d3729df10e65.tar.bz2 | |
trans-decl.c (gfc_build_label_decl): Set DECL_ARTIFICAL and TREE_USED for all labels.
* trans-decl.c (gfc_build_label_decl): Set DECL_ARTIFICAL and
TREE_USED for all labels.
(gfc_trans_entry_master_switch): Use it instead of building a
label by hand.
* trans-io.c (add_case): Likewise.
* trans-stmt.c (gfc_trans_integer_select): Likewise.
From-SVN: r94299
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 67fc796..b5ef13f 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -452,8 +452,7 @@ add_case (int label_value, gfc_st_label * label, stmtblock_t * body) value = build_int_cst (NULL_TREE, label_value); /* Make a backend label for this case. */ - tmp = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); - DECL_CONTEXT (tmp) = current_function_decl; + tmp = gfc_build_label_decl (NULL_TREE); /* And the case itself. */ tmp = build3_v (CASE_LABEL_EXPR, value, NULL_TREE, tmp); |