aboutsummaryrefslogtreecommitdiff
path: root/tree.c
diff options
context:
space:
mode:
Diffstat (limited to 'tree.c')
-rw-r--r--tree.c19
1 files changed, 14 insertions, 5 deletions
diff --git a/tree.c b/tree.c
index 1874712..fd40781 100644
--- a/tree.c
+++ b/tree.c
@@ -164,15 +164,24 @@ int spaces;
case IF:
fprintf(stderr, "[IF]");
break;
+ case THEN:
+ fprintf(stderr, "[THEN]");
+ break;
case WHILE:
fprintf(stderr, "[WHILE]");
break;
- case THEN:
- fprintf(stderr, "[THEN]");
+ case FOR:
+ fprintf(stderr, "[FOR]");
+ break;
+ case TO:
+ fprintf(stderr, "[TO]");
+ break;
+ case DT:
+ fprintf(stderr, "[DOWN-TO]");
break;
- default:
- fprintf(stderr, "\t%d", t->type);
- yyerror("Error in tree_print");
+ default:
+ fprintf(stderr, "\t%d", t->type);
+ yyerror("Error in tree_print");
}
fprintf(stderr," %d\n", t->ret_type);
aux_tree_print(t->l, spaces + 2);