[unix-history] / usr / src / usr.bin / pascal / libpc / DEFNAME.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)DEFNAME.c 1.1 %G%";


#include "h00vars.h"

DEFNAME(filep, name, maxnamlen, datasize)

	register struct iorec	*filep;
	char			*name;
	int			maxnamlen;
	int			datasize;
{
	filep = GETNAME(filep, name, maxnamlen, datasize);
	filep->funit |= FDEF;
}
Commit	Line	Data
6df892be KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)DEFNAME.c 1.1 %G%";
	4
	5
	6	#include "h00vars.h"
	7
	8	DEFNAME(filep, name, maxnamlen, datasize)
	9
	10	register struct iorec *filep;
	11	char *name;
	12	int maxnamlen;
	13	int datasize;
	14	{
	15	filep = GETNAME(filep, name, maxnamlen, datasize);
	16	filep->funit \|= FDEF;
	17	}