gesamt: bei leeren expression, baum bis zum ersten O_CALL durchwandern

[uebersetzerbau-ss10.git] / gesamt / tree.c

diff --git a/gesamt/tree.c b/gesamt/tree.c
index 7d70718c5e748ea1894630bb2ff738181eda3579..1c3f88841305506d57885490be2ddc9366e7e315 100644 (file)
--- a/gesamt/tree.c
+++ b/gesamt/tree.c
@@ -147,3 +147,14 @@ void write_tree(struct treenode *node, int indent)
        }
 }
 
+void just_calls(struct treenode *node)
+{
+       if(node == TREENULL) {
+               return;
+       } else if(node->op == O_CALL) {
+               write_tree(node, 0); burm_label(node); burm_reduce(node, 1);
+       } else {
+               just_calls(node->kids[0]);
+               just_calls(node->kids[1]);
+       }
+}