xref: /original-bsd/usr.bin/pascal/libpc/DEFNAME.c (revision e59fb703)
1 /*-
2  * Copyright (c) 1979 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)DEFNAME.c	1.3 (Berkeley) 04/09/90";
10 #endif /* not lint */
11 
12 #include "h00vars.h"
13 
14 DEFNAME(filep, name, maxnamlen, datasize)
15 
16 	register struct iorec	*filep;
17 	char			*name;
18 	long			maxnamlen;
19 	long			datasize;
20 {
21 	filep = GETNAME(filep, name, maxnamlen, datasize);
22 	filep->funit |= FDEF;
23 }
24