xref: /original-bsd/usr.bin/pascal/libpc/DEFNAME.c (revision 33717ddf)
1ab0b9960Sbostic /*-
2*33717ddfSbostic  * Copyright (c) 1979, 1993
3*33717ddfSbostic  *	The Regents of the University of California.  All rights reserved.
4ab0b9960Sbostic  *
5ab0b9960Sbostic  * %sccs.include.redist.c%
6ab0b9960Sbostic  */
790896b37Smckusick 
8ab0b9960Sbostic #ifndef lint
9*33717ddfSbostic static char sccsid[] = "@(#)DEFNAME.c	8.1 (Berkeley) 06/06/93";
10ab0b9960Sbostic #endif /* not lint */
1190896b37Smckusick 
1290896b37Smckusick #include "h00vars.h"
1390896b37Smckusick 
DEFNAME(filep,name,maxnamlen,datasize)1490896b37Smckusick DEFNAME(filep, name, maxnamlen, datasize)
1590896b37Smckusick 
1690896b37Smckusick 	register struct iorec	*filep;
1790896b37Smckusick 	char			*name;
186809976dSmckusic 	long			maxnamlen;
196809976dSmckusic 	long			datasize;
2090896b37Smckusick {
2190896b37Smckusick 	filep = GETNAME(filep, name, maxnamlen, datasize);
2290896b37Smckusick 	filep->funit |= FDEF;
2390896b37Smckusick }
24