xref: /original-bsd/usr.bin/pascal/libpc/NIL.c (revision 9eb838fd)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)NIL.c 1.4 01/09/89";
4 
5 #include "h00vars.h"
6 
7 char ENIL[] = "Pointer value out of legal range\n";
8 
9 char *
10 NIL(ptr)
11 	char	*ptr;		/* pointer to struct */
12 {
13 	if (ptr > _maxptr || ptr < _minptr) {
14 		ERROR(ENIL, 0);
15 	}
16 	return ptr;
17 }
18