rem: Cell *setsymtab(n, s, f, t, tp) uchar *n, *s; Awkfloat f; unsigned t; Array *tp;
add: setsymtab(uchar *n, uchar *s, Awkfloat f, unsigned int t, Array *tp)
context: Cell *setsymtab(n, s, f, t, tp)	uchar *n, *s;	Awkfloat f;	unsigned t;	Array *tp;{	register int h;	register Cell *p;	Cell *lookup();	if (n != NULL && (p = lookup(n, tp)) != NULL) {		dprintf( ("setsymtab found %o: n=%s", p, p->nval) );		dprintf( (" s=\"%s\" f=%g t=%o\n", p->sval, p->fval, p->tval) );		return(p);	}	p = (Cell *) malloc(sizeof(Cell));	if (p == NULL)		ERROR "symbol table overflow at %s", n FATAL;	p->nval = tostring(n);	p->sval = s ? tostring(s) : tostring("");	p->fval = f;	p->tval = t;	p->csub = 0;	tp->nelem++;	if (tp->nelem > FULLTAB * tp->size)		rehash(tp);	h = hash(n, tp->size);	p->cnext = tp->tab[h];	tp->tab[h] = p;	dprintf( ("setsymtab set %o: n=%s", p, p->nval) );	dprintf( (" s=\"%s\" f=%g t=%o\n", p->sval, p->fval, p->tval) );	return(p);}