diff options
Diffstat (limited to 'symbol.c')
| -rw-r--r-- | symbol.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -55,11 +55,11 @@ init_symbol_table() { getnode(global_table); memset(global_table, '\0', sizeof(NODE)); - init_array(global_table); + null_array(global_table); getnode(param_table); memset(param_table, '\0', sizeof(NODE)); - init_array(param_table); + null_array(param_table); installing_specials = true; func_table = install_symbol(estrdup("FUNCTAB", 7), Node_var_array); @@ -280,7 +280,7 @@ make_symbol(char *name, NODETYPE type) getnode(r); memset(r, '\0', sizeof(NODE)); if (type == Node_var_array) - init_array(r); + null_array(r); else if (type == Node_var) r->var_value = dupnode(Nnull_string); r->vname = name; @@ -449,7 +449,7 @@ print_vars(NODE **table, int (*print_func)(FILE *, const char *, ...), FILE *fp) continue; print_func(fp, "%s: ", r->vname); if (r->type == Node_var_array) - print_func(fp, "array, %ld elements\n", r->table_size); + print_func(fp, "array, %ld elements\n", assoc_length(r)); else if (r->type == Node_var_new) print_func(fp, "untyped variable\n"); else if (r->type == Node_var) @@ -549,7 +549,7 @@ load_symbols() getnode(sym_array); memset(sym_array, '\0', sizeof(NODE)); /* PPC Mac OS X wants this */ - init_array(sym_array); + null_array(sym_array); unref(*aptr); *aptr = sym_array; |