47 Cell	**fldtab;	/* pointers to Cells */  variable
68 	  || (fldtab = (Cell **) calloc(nfields+2, sizeof(*fldtab))) == NULL  in recinit()
69 	  || (fldtab[0] = (Cell *) malloc(sizeof(**fldtab))) == NULL)  in recinit()
72 	*fldtab[0] = dollar0;  in recinit()
73 	fldtab[0]->sval = record;  in recinit()
74 	fldtab[0]->nval = tostring("0");  in recinit()
84 		fldtab[i] = (Cell *) malloc(sizeof(**fldtab));  in makefields()
85 		if (fldtab[i] == NULL)  in makefields()
87 		*fldtab[i] = dollar1;  in makefields()
89 		fldtab[i]->nval = tostring(temp);  in makefields()
183 				if (freeable(fldtab[0]))  in getrec()
184 					xfree(fldtab[0]->sval);  in getrec()
185 				fldtab[0]->sval = buf;	/* buf == record */  in getrec()
186 				fldtab[0]->tval = REC | STR | DONTFREE;  in getrec()
187 				if (is_number(fldtab[0]->sval, & result)) {  in getrec()
188 					fldtab[0]->fval = result;  in getrec()
189 					fldtab[0]->tval |= NUM;  in getrec()
385 	if (!isstr(fldtab[0]))  in fldbld()
386 		getsval(fldtab[0]);  in fldbld()
387 	r = fldtab[0]->sval;  in fldbld()
410 			if (freeable(fldtab[i]))  in fldbld()
411 				xfree(fldtab[i]->sval);  in fldbld()
412 			fldtab[i]->sval = fr;  in fldbld()
413 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
426 				if (freeable(fldtab[i]))  in fldbld()
427 					xfree(fldtab[i]->sval);  in fldbld()
428 				fldtab[i]->sval = fr;  in fldbld()
429 				fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
460 			if (freeable(fldtab[i]))  in fldbld()
461 				xfree(fldtab[i]->sval);  in fldbld()
466 			fldtab[i]->sval = tostring(buf);  in fldbld()
467 			fldtab[i]->tval = FLD | STR;  in fldbld()
482 			if (freeable(fldtab[i]))  in fldbld()
483 				xfree(fldtab[i]->sval);  in fldbld()
484 			fldtab[i]->sval = fr;  in fldbld()
485 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
502 		p = fldtab[j];  in fldbld()
512 			p = fldtab[j];  in fldbld()
524 		p = fldtab[i];  in cleanfld()
562 	return(fldtab[n]);  in fieldadr()
574 		fldtab = (Cell **) realloc(fldtab, s);  in growfldtab()
576 		xfree(fldtab);	/* make it null */  in growfldtab()
577 	if (fldtab == NULL)  in growfldtab()
609 		if (freeable(fldtab[i]))  in refldbld()
610 			xfree(fldtab[i]->sval);  in refldbld()
611 		fldtab[i]->tval = FLD | STR | DONTFREE;  in refldbld()
612 		fldtab[i]->sval = fr;  in refldbld()
645 		p = getsval(fldtab[i]);  in recbld()
660 	DPRINTF("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]);  in recbld()
662 	if (freeable(fldtab[0]))  in recbld()
663 		xfree(fldtab[0]->sval);  in recbld()
664 	fldtab[0]->tval = REC | STR | DONTFREE;  in recbld()
665 	fldtab[0]->sval = record;  in recbld()
667 	DPRINTF("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]);  in recbld()