42 Cell	**fldtab;	/* pointers to Cells */  variable
62 	  || (fldtab = (Cell **) malloc((nfields+1) * sizeof(Cell *))) == NULL  in recinit()
63 	  || (fldtab[0] = (Cell *) malloc(sizeof(Cell))) == NULL )  in recinit()
65 	*fldtab[0] = dollar0;  in recinit()
66 	fldtab[0]->sval = record;  in recinit()
67 	fldtab[0]->nval = tostring("0");  in recinit()
77 		fldtab[i] = (Cell *) malloc(sizeof (struct Cell));  in makefields()
78 		if (fldtab[i] == NULL)  in makefields()
80 		*fldtab[i] = dollar1;  in makefields()
82 		fldtab[i]->nval = tostring(temp);  in makefields()
147 				if (freeable(fldtab[0]))  in getrec()
148 					xfree(fldtab[0]->sval);  in getrec()
149 				fldtab[0]->sval = buf;	/* buf == record */  in getrec()
150 				fldtab[0]->tval = REC | STR | DONTFREE;  in getrec()
151 				if (is_number(fldtab[0]->sval)) {  in getrec()
152 					fldtab[0]->fval = atof(fldtab[0]->sval);  in getrec()
153 					fldtab[0]->tval |= NUM;  in getrec()
265 	if (!isstr(fldtab[0]))  in fldbld()
266 		getsval(fldtab[0]);  in fldbld()
267 	r = fldtab[0]->sval;  in fldbld()
288 			if (freeable(fldtab[i]))  in fldbld()
289 				xfree(fldtab[i]->sval);  in fldbld()
290 			fldtab[i]->sval = fr;  in fldbld()
291 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
304 			if (freeable(fldtab[i]))  in fldbld()
305 				xfree(fldtab[i]->sval);  in fldbld()
308 			fldtab[i]->sval = tostring(buf);  in fldbld()
309 			fldtab[i]->tval = FLD | STR;  in fldbld()
324 			if (freeable(fldtab[i]))  in fldbld()
325 				xfree(fldtab[i]->sval);  in fldbld()
326 			fldtab[i]->sval = fr;  in fldbld()
327 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
342 		p = fldtab[j];  in fldbld()
351 			p = fldtab[j];  in fldbld()
363 		p = fldtab[i];  in cleanfld()
386 	return(fldtab[n]);  in fieldadr()
398 		fldtab = (Cell **) realloc(fldtab, s);  in growfldtab()
400 		xfree(fldtab);	/* make it null */  in growfldtab()
401 	if (fldtab == NULL)  in growfldtab()
432 		if (freeable(fldtab[i]))  in refldbld()
433 			xfree(fldtab[i]->sval);  in refldbld()
434 		fldtab[i]->tval = FLD | STR | DONTFREE;  in refldbld()
435 		fldtab[i]->sval = fr;  in refldbld()
463 		p = getsval(fldtab[i]);  in recbld()
478 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, fldtab[0]) );  in recbld()
480 	if (freeable(fldtab[0]))  in recbld()
481 		xfree(fldtab[0]->sval);  in recbld()
482 	fldtab[0]->tval = REC | STR | DONTFREE;  in recbld()
483 	fldtab[0]->sval = record;  in recbld()
485 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, fldtab[0]) );  in recbld()