:i	static char d_fread_sccs_id[] = "%W% %G%";
:1#include "V_s_lc.h"
/*
* fread - buffered binary input
*/
d_fread(p,s,n,f)
	char *p;
	int   s;
	int   n;
	FILE *f;
{	int   v;
	File *fp;
:8	V8s "fread(%08X,%d,%d,%08X)",p,s,n,f D;
	v = fread(p,s,n,f);
:6	V6s "fread(%06X,%d,%d,%06X)=%d [Err %d=%s=%s]",p,s,n,f,v,Errinfo D;
	if (v > 0) {
:7		H7s(p,v*s,"read");
		if (fp = d_openfile(Fileno(f)))
			fp->addr += v*s;	/* Keep track of the offset */
	}
	return v;
}