whoami , --i , nsamples );
whoami , i , nsamples );
readsamples(pfile)    FILE	*pfile;{    register i;    UNIT	sample;        if (samples == 0) {	samples = (UNIT *) calloc(sampbytes, sizeof (UNIT));	if (samples == 0) {	    fprintf( stderr , "%s: No room for %d sample pc's\n", 		whoami , sampbytes / sizeof (UNIT));	    done();	}    }    for (i = 0; i < nsamples; i++) {	fread(&sample, sizeof (UNIT), 1, pfile);	if (feof(pfile))		break;	samples[i] += sample;    }    if (i != nsamples) {	fprintf(stderr,	    "%s: unexpected EOF after reading %d/%d samples\n",		whoami , --i , nsamples );	done();    }}