diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 16:17:59 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 16:17:59 +0000 |
| commit | 79bd1948049e44e2bef8ea00187fee391421b0cf (patch) | |
| tree | e49b4a8743040e93a8b492edc72c69521fa7a99c /gcc/fortran/match.c | |
| parent | 286c4fcbc8953338d4d00d93d8239ad305324209 (diff) | |
| download | gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.zip gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.tar.gz gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.tar.bz2 | |
gfortran.h (gfc_code): Rename struct member label to label1.
2009-05-12 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.h (gfc_code): Rename struct member label to label1.
* dump-parse-tree.c (show_code_node): Update symbol.
* trans-stmt.c (gfc_trans_label_assign, gfc_trans_goto,
gfc_trans_arithmetic_if)": Ditto.
* resolve.c (gfc_resolve_blocks, resolve_code): Ditto.
* match.c (match_arithmetic_if, gfc_match_if, gfc_reference_st_label,
gfc_match_assign, gfc_match_goto): Ditto.
* parse.c (parse_do_block): Ditto.
From-SVN: r147489
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 6faedec..3a49ca1 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -1389,7 +1389,7 @@ match_arithmetic_if (void) new_st.op = EXEC_ARITHMETIC_IF; new_st.expr = expr; - new_st.label = l1; + new_st.label1 = l1; new_st.label2 = l2; new_st.label3 = l3; @@ -1470,7 +1470,7 @@ gfc_match_if (gfc_statement *if_type) new_st.op = EXEC_ARITHMETIC_IF; new_st.expr = expr; - new_st.label = l1; + new_st.label1 = l1; new_st.label2 = l2; new_st.label3 = l3; @@ -1789,7 +1789,7 @@ done: && gfc_reference_st_label (label, ST_LABEL_TARGET) == FAILURE) goto cleanup; - new_st.label = label; + new_st.label1 = label; if (new_st.op == EXEC_DO_WHILE) new_st.expr = iter.end; @@ -2033,7 +2033,7 @@ gfc_match_assign (void) expr->symtree->n.sym->attr.assign = 1; new_st.op = EXEC_LABEL_ASSIGN; - new_st.label = label; + new_st.label1 = label; new_st.expr = expr; return MATCH_YES; } @@ -2063,7 +2063,7 @@ gfc_match_goto (void) return MATCH_ERROR; new_st.op = EXEC_GOTO; - new_st.label = label; + new_st.label1 = label; return MATCH_YES; } @@ -2108,7 +2108,7 @@ gfc_match_goto (void) tail = tail->block; } - tail->label = label; + tail->label1 = label; tail->op = EXEC_GOTO; } while (gfc_match_char (',') == MATCH_YES); @@ -2161,7 +2161,7 @@ gfc_match_goto (void) tail->next = gfc_get_code (); tail->next->op = EXEC_GOTO; - tail->next->label = label; + tail->next->label1 = label; } while (gfc_match_char (',') == MATCH_YES); @@ -2782,7 +2782,7 @@ gfc_match_call (void) c->next = gfc_get_code (); c->next->op = EXEC_GOTO; - c->next->label = a->label; + c->next->label1 = a->label; } } |