codea: bugfix fuer ag-part...

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

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);