codea: bugfix fuer ag-part...

diff --git a/codea/symtable.c b/codea/symtable.c
index b38500040d542ab5fce25f7226da6b2ce2009237..f8e4f21b6d8166406ba9ce10781eb453d07d242c 100755 (executable)
--- a/codea/symtable.c
+++ b/codea/symtable.c
@@ -40,7 +40,7 @@ struct symbol *tab_add_symbol(struct symbol *tab, char *ident, short type, short
                exit(4);
        }
 
-       if(tab_lookup(tab, ident, type) != SYMNULL) {
+       if(tab_lookup(tab, ident, type) != SYMNULL || (type == S_VAR && tab_lookup(tab, ident, S_PARM) != SYMNULL)) {
                if(check) {
                        fprintf(stderr, "Identifier doppelt vorhanden: \"%s\"\n", ident);
                        exit(3);

diff --git a/codea/tree.c b/codea/tree.c
index 3669383c735c89b7907e38b4cfbe416ab1fdb4b0..82d986a6fa921f2921683c615d361be301041d5e 100644 (file)
--- a/codea/tree.c
+++ b/codea/tree.c
@@ -107,6 +107,7 @@ static void write_indent(int i)
 
 void write_tree(struct treenode *node, int indent)
 {
+       if(node == TREENULL) return;
        write_indent(indent);
        fprintf(stderr, "%s @ %%%s (%i). \"%s\"\n", o_names[node->op], node->reg, node->exprcount, node->name == (char*) NULL ? "" : node->name);
        if(node->kids[0] != TREENULL) {