diff options
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 8c8ad8d..eb747c1 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1166,20 +1166,20 @@ show_code_node (int level, gfc_code *c) case EXEC_INIT_ASSIGN: case EXEC_ASSIGN: fputs ("ASSIGN ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fputc (' ', dumpfile); show_expr (c->expr2); break; case EXEC_LABEL_ASSIGN: fputs ("LABEL ASSIGN ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fprintf (dumpfile, " %d", c->label1->value); break; case EXEC_POINTER_ASSIGN: fputs ("POINTER ASSIGN ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fputc (' ', dumpfile); show_expr (c->expr2); break; @@ -1190,7 +1190,7 @@ show_code_node (int level, gfc_code *c) fprintf (dumpfile, "%d", c->label1->value); else { - show_expr (c->expr); + show_expr (c->expr1); d = c->block; if (d != NULL) { @@ -1221,26 +1221,26 @@ show_code_node (int level, gfc_code *c) case EXEC_COMPCALL: fputs ("CALL ", dumpfile); - show_compcall (c->expr); + show_compcall (c->expr1); break; case EXEC_CALL_PPC: fputs ("CALL ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); show_actual_arglist (c->ext.actual); break; case EXEC_RETURN: fputs ("RETURN ", dumpfile); - if (c->expr) - show_expr (c->expr); + if (c->expr1) + show_expr (c->expr1); break; case EXEC_PAUSE: fputs ("PAUSE ", dumpfile); - if (c->expr != NULL) - show_expr (c->expr); + if (c->expr1 != NULL) + show_expr (c->expr1); else fprintf (dumpfile, "%d", c->ext.stop_code); @@ -1249,8 +1249,8 @@ show_code_node (int level, gfc_code *c) case EXEC_STOP: fputs ("STOP ", dumpfile); - if (c->expr != NULL) - show_expr (c->expr); + if (c->expr1 != NULL) + show_expr (c->expr1); else fprintf (dumpfile, "%d", c->ext.stop_code); @@ -1258,7 +1258,7 @@ show_code_node (int level, gfc_code *c) case EXEC_ARITHMETIC_IF: fputs ("IF ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fprintf (dumpfile, " %d, %d, %d", c->label1->value, c->label2->value, c->label3->value); break; @@ -1266,7 +1266,7 @@ show_code_node (int level, gfc_code *c) case EXEC_IF: d = c->block; fputs ("IF ", dumpfile); - show_expr (d->expr); + show_expr (d->expr1); fputc ('\n', dumpfile); show_code (level + 1, d->next); @@ -1275,12 +1275,12 @@ show_code_node (int level, gfc_code *c) { code_indent (level, 0); - if (d->expr == NULL) + if (d->expr1 == NULL) fputs ("ELSE\n", dumpfile); else { fputs ("ELSE IF ", dumpfile); - show_expr (d->expr); + show_expr (d->expr1); fputc ('\n', dumpfile); } @@ -1295,7 +1295,7 @@ show_code_node (int level, gfc_code *c) case EXEC_SELECT: d = c->block; fputs ("SELECT CASE ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fputc ('\n', dumpfile); for (; d; d = d->block) @@ -1325,7 +1325,7 @@ show_code_node (int level, gfc_code *c) fputs ("WHERE ", dumpfile); d = c->block; - show_expr (d->expr); + show_expr (d->expr1); fputc ('\n', dumpfile); show_code (level + 1, d->next); @@ -1334,7 +1334,7 @@ show_code_node (int level, gfc_code *c) { code_indent (level, 0); fputs ("ELSE WHERE ", dumpfile); - show_expr (d->expr); + show_expr (d->expr1); fputc ('\n', dumpfile); show_code (level + 1, d->next); } @@ -1360,10 +1360,10 @@ show_code_node (int level, gfc_code *c) fputc (',', dumpfile); } - if (c->expr != NULL) + if (c->expr1 != NULL) { fputc (',', dumpfile); - show_expr (c->expr); + show_expr (c->expr1); } fputc ('\n', dumpfile); @@ -1393,7 +1393,7 @@ show_code_node (int level, gfc_code *c) case EXEC_DO_WHILE: fputs ("DO WHILE ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); fputc ('\n', dumpfile); show_code (level + 1, c->block->next); @@ -1416,10 +1416,10 @@ show_code_node (int level, gfc_code *c) case EXEC_ALLOCATE: fputs ("ALLOCATE ", dumpfile); - if (c->expr) + if (c->expr1) { fputs (" STAT=", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); } for (a = c->ext.alloc_list; a; a = a->next) @@ -1432,10 +1432,10 @@ show_code_node (int level, gfc_code *c) case EXEC_DEALLOCATE: fputs ("DEALLOCATE ", dumpfile); - if (c->expr) + if (c->expr1) { fputs (" STAT=", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); } for (a = c->ext.alloc_list; a; a = a->next) @@ -1798,7 +1798,7 @@ show_code_node (int level, gfc_code *c) case EXEC_IOLENGTH: fputs ("IOLENGTH ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); goto show_dt_code; break; @@ -1907,7 +1907,7 @@ show_code_node (int level, gfc_code *c) case EXEC_TRANSFER: fputs ("TRANSFER ", dumpfile); - show_expr (c->expr); + show_expr (c->expr1); break; case EXEC_DT_END: |