X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=blobdiff_plain;f=gesamt%2Ftree.c;h=4dcf0d76361f91f5efc5da5f6bd026341a6febb5;hp=593709c5c71ce7fc17171a07eef934013ec3af5d;hb=dc9777f5c4d517c8c4f2888449250c8f187f2fa6;hpb=1016ac04fb98f0e5de8ff18711518b3113e2c7ce

diff --git a/gesamt/tree.c b/gesamt/tree.c
index 593709c..4dcf0d7 100644
--- a/gesamt/tree.c
+++ b/gesamt/tree.c
@@ -63,6 +63,17 @@ struct treenode *new_field(char *name, struct treenode *l, struct treenode *r, i
 	return new;
 }
 
+struct treenode *new_call(char *name, struct treenode *l, struct treenode *r)
+{
+	struct treenode *new = new_node(O_CALL, l, r);
+
+#ifdef DDTREE
+	fprintf(stderr, "new_call\n");
+#endif
+	new->name = name;
+	return new;
+}
+
 struct treenode *new_number(long val)
 {
 	struct treenode *new;