xref: /csrg-svn/usr.bin/pascal/libpc/NIL.c (revision 62092)
140865Sbostic /*-
2*62092Sbostic  * Copyright (c) 1979, 1993
3*62092Sbostic  *	The Regents of the University of California.  All rights reserved.
440865Sbostic  *
540865Sbostic  * %sccs.include.redist.c%
640865Sbostic  */
71668Smckusick 
840865Sbostic #ifndef lint
9*62092Sbostic static char sccsid[] = "@(#)NIL.c	8.1 (Berkeley) 06/06/93";
1040865Sbostic #endif /* not lint */
111668Smckusick 
121668Smckusick #include "h00vars.h"
131668Smckusick 
149136Smckusick char ENIL[] = "Pointer value out of legal range\n";
159136Smckusick 
161668Smckusick char *
NIL(ptr)171668Smckusick NIL(ptr)
181668Smckusick 	char	*ptr;		/* pointer to struct */
191668Smckusick {
201668Smckusick 	if (ptr > _maxptr || ptr < _minptr) {
219136Smckusick 		ERROR(ENIL, 0);
221668Smckusick 	}
231668Smckusick 	return ptr;
241668Smckusick }
25