42 Cell	**fldtab;	/* pointers to Cells */  variable
62 	  || (fldtab = (Cell **) malloc((nfields+2) * 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()
152 				if (freeable(fldtab[0]))  in getrec()
153 					xfree(fldtab[0]->sval);  in getrec()
154 				fldtab[0]->sval = buf;	/* buf == record */  in getrec()
155 				fldtab[0]->tval = REC | STR | DONTFREE;  in getrec()
156 				if (is_number(fldtab[0]->sval)) {  in getrec()
157 					fldtab[0]->fval = atof(fldtab[0]->sval);  in getrec()
158 					fldtab[0]->tval |= NUM;  in getrec()
275 	if (!isstr(fldtab[0]))  in fldbld()
276 		getsval(fldtab[0]);  in fldbld()
277 	r = fldtab[0]->sval;  in fldbld()
301 			if (freeable(fldtab[i]))  in fldbld()
302 				xfree(fldtab[i]->sval);  in fldbld()
303 			fldtab[i]->sval = fr;  in fldbld()
304 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
317 			if (freeable(fldtab[i]))  in fldbld()
318 				xfree(fldtab[i]->sval);  in fldbld()
321 			fldtab[i]->sval = tostring(buf);  in fldbld()
322 			fldtab[i]->tval = FLD | STR;  in fldbld()
337 			if (freeable(fldtab[i]))  in fldbld()
338 				xfree(fldtab[i]->sval);  in fldbld()
339 			fldtab[i]->sval = fr;  in fldbld()
340 			fldtab[i]->tval = FLD | STR | DONTFREE;  in fldbld()
355 		p = fldtab[j];  in fldbld()
365 			p = fldtab[j];  in fldbld()
377 		p = fldtab[i];  in cleanfld()
415 	return(fldtab[n]);  in fieldadr()
427 		fldtab = (Cell **) realloc(fldtab, s);  in growfldtab()
429 		xfree(fldtab);	/* make it null */  in growfldtab()
430 	if (fldtab == NULL)  in growfldtab()
461 		if (freeable(fldtab[i]))  in refldbld()
462 			xfree(fldtab[i]->sval);  in refldbld()
463 		fldtab[i]->tval = FLD | STR | DONTFREE;  in refldbld()
464 		fldtab[i]->sval = fr;  in refldbld()
493 		p = getsval(fldtab[i]);  in recbld()
508 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]) );  in recbld()
510 	if (freeable(fldtab[0]))  in recbld()
511 		xfree(fldtab[0]->sval);  in recbld()
512 	fldtab[0]->tval = REC | STR | DONTFREE;  in recbld()
513 	fldtab[0]->sval = record;  in recbld()
515 	   dprintf( ("in recbld inputFS=%s, fldtab[0]=%p\n", inputFS, (void*)fldtab[0]) );  in recbld()