diff options
Diffstat (limited to 'interpreter/eval.c')
| -rw-r--r-- | interpreter/eval.c | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/interpreter/eval.c b/interpreter/eval.c index 080938c..fda5697 100644 --- a/interpreter/eval.c +++ b/interpreter/eval.c @@ -6,7 +6,9 @@ #include "graphs.h" #include "mem.h" +#ifdef _FUSPEL_DEBUG #include "print.h" +#endif typedef struct { char* name; @@ -56,18 +58,12 @@ void replace_all(fuspel *rules, replacements* repls, struct node** node) { if (repls->replacement.name && repls->replacement.node && !strcmp(repls->replacement.name, (char*) (*node)->var1)) { - printf("Replacing %s with %p on %p / %p\n", - (char*) (*node)->var1, - repls->replacement.node, - node, - *node); org_used_count = (*node)->used_count; if (org_used_count == 1) { free_node(*node, 1, 1); *node = repls->replacement.node; use_node(*node, org_used_count); } else { - printf("---- REDIRECTION ---- \n"); free_node(*node, 1, 0); (*node)->kind = NODE_REDIRECT; (*node)->var1 = repls->replacement.node; @@ -174,8 +170,6 @@ int match_rule(fuspel* rules, rewrite_rule* rule, struct node** node, arg_list* args = rule->args; unsigned char args_len = len_arg_list(args); - printf("RULE: %s\n", rule->name); - while (!empty_args_list(args)) { if (!match_expr(rules, &args->elem, node, repls)) { my_free(node_args); @@ -266,10 +260,6 @@ void eval(fuspel* rules, struct node** node, unsigned to_rnf) { do { rerun = 0; - printf("\nREWRITING %p / %p: ", node, *node); - print_node(*node); - printf("... (repls %p)\n", repls); - switch ((*node)->kind) { case NODE_INT: break; @@ -304,12 +294,7 @@ void eval(fuspel* rules, struct node** node, unsigned to_rnf) { _repls = _repls->rest) use_node(_repls->replacement.node, 1); - printf("Replacing <"); - print_node(*_node); - printf(">: <"); cpy_expression_to_node(new_node, &_rules->rule.rhs); - print_node(new_node); - printf(">\n"); replace_all(rules, repls->rest, &new_node); |