X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=gesamt%2Ftree.c;h=1c3f88841305506d57885490be2ddc9366e7e315;hb=e01d4b5591d2684af59e9dbb30330da9aa145794;hp=7d70718c5e748ea1894630bb2ff738181eda3579;hpb=cba86813c2e4004a1fc73d7888b99998d18c3be7;p=uebersetzerbau-ss10.git

diff --git a/gesamt/tree.c b/gesamt/tree.c
index 7d70718..1c3f888 100644
--- 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]);
+	}
+}