:i	static char d_dup_sccs_id[] = "%W% %G%";
:1#include "V.h"
/*
*/
d_dup(f)
{	int   v;
	File *fp;
:8	V8 "dup(%d)",f D;
	errno = 0;
	v = dup(f);
:6	V6 "dup(%d)=%d [Err %d=%s=%s]",f,v,Errinfo D;
	d_newfile(fp->flgs,v,N(fp->name.v),0);
	return v;
}