xref: /original-bsd/usr.bin/pascal/libpc/DEFNAME.c (revision 5fb3de76)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)DEFNAME.c 1.2 03/07/81";
4 
5 #include "h00vars.h"
6 
7 DEFNAME(filep, name, maxnamlen, datasize)
8 
9 	register struct iorec	*filep;
10 	char			*name;
11 	long			maxnamlen;
12 	long			datasize;
13 {
14 	filep = GETNAME(filep, name, maxnamlen, datasize);
15 	filep->funit |= FDEF;
16 }
17