codea: feldzugriffe

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

diff --git a/codea/tree.c b/codea/tree.c
index 9ee0b479161005c252aa2b103b4c5c2488589ed2..7e7c715fab3f69dce60e446701a4b591147ccb7b 100644 (file)
--- a/codea/tree.c
+++ b/codea/tree.c
@@ -47,6 +47,18 @@ struct treenode *new_param(int op, char *name, struct treenode *l, struct treeno
        return new;
 }
 
+struct treenode *new_field(char *name, struct treenode *l, struct treenode *r, int soffset, int exprcount)
+{
+       struct treenode *new = new_node(O_FIELD, l, r, exprcount);
+
+#ifdef DDTREE
+       fprintf(stderr, "new_field: %i (soffset)\n", soffset);
+#endif
+       new->soffset = soffset;
+       new->name = name;
+       return new;
+}
+
 struct treenode *new_number(long val, int exprcount)
 {
        struct treenode *new = _new_plain(O_NUM);