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