xref: /original-bsd/usr.bin/pascal/libpc/NIL.c (revision 6c57d260)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)NIL.c 1.1 10/30/80";
4 
5 #include "h00vars.h"
6 #include "h01errs.h"
7 
8 char *
9 NIL(ptr)
10 
11 	char	*ptr;		/* pointer to struct */
12 {
13 	if (ptr > _maxptr || ptr < _minptr) {
14 		ERROR(ENILPTR, 0);
15 		return;
16 	}
17 	return ptr;
18 }
19