diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-13 16:17:59 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-13 16:17:59 +0000 |
| commit | 13b33c165dad9b28d19dd05294748284829d33a9 (patch) | |
| tree | e49b4a8743040e93a8b492edc72c69521fa7a99c /gcc/fortran/dump-parse-tree.c | |
| parent | ec0044e4362064b88d5d29e1ae84bb860e295cd6 (diff) | |
| download | gcc-13b33c165dad9b28d19dd05294748284829d33a9.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147489 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 51d76f0503e..8c8ad8d32de 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1174,7 +1174,7 @@ show_code_node (int level, gfc_code *c) case EXEC_LABEL_ASSIGN: fputs ("LABEL ASSIGN ", dumpfile); show_expr (c->expr); - fprintf (dumpfile, " %d", c->label->value); + fprintf (dumpfile, " %d", c->label1->value); break; case EXEC_POINTER_ASSIGN: @@ -1186,8 +1186,8 @@ show_code_node (int level, gfc_code *c) case EXEC_GOTO: fputs ("GOTO ", dumpfile); - if (c->label) - fprintf (dumpfile, "%d", c->label->value); + if (c->label1) + fprintf (dumpfile, "%d", c->label1->value); else { show_expr (c->expr); @@ -1197,7 +1197,7 @@ show_code_node (int level, gfc_code *c) fputs (", (", dumpfile); for (; d; d = d ->block) { - code_indent (level, d->label); + code_indent (level, d->label1); if (d->block != NULL) fputc (',', dumpfile); else @@ -1260,7 +1260,7 @@ show_code_node (int level, gfc_code *c) fputs ("IF ", dumpfile); show_expr (c->expr); fprintf (dumpfile, " %d, %d, %d", - c->label->value, c->label2->value, c->label3->value); + c->label1->value, c->label2->value, c->label3->value); break; case EXEC_IF: @@ -1287,7 +1287,7 @@ show_code_node (int level, gfc_code *c) show_code (level + 1, d->next); } - code_indent (level, c->label); + code_indent (level, c->label1); fputs ("ENDIF", dumpfile); break; @@ -1317,7 +1317,7 @@ show_code_node (int level, gfc_code *c) show_code (level + 1, d->next); } - code_indent (level, c->label); + code_indent (level, c->label1); fputs ("END SELECT", dumpfile); break; @@ -1398,7 +1398,7 @@ show_code_node (int level, gfc_code *c) show_code (level + 1, c->block->next); - code_indent (level, c->label); + code_indent (level, c->label1); fputs ("END DO", dumpfile); break; |