xref: /csrg-svn/usr.bin/pascal/libpc/RANG4.c (revision 1678)
1*1678Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1678Smckusick 
3*1678Smckusick static char sccsid[] = "@(#)RANG4.c 1.1 10/30/80";
4*1678Smckusick 
5*1678Smckusick #include "h01errs.h"
6*1678Smckusick 
7*1678Smckusick RANG4(value, lower, upper)
8*1678Smckusick 
9*1678Smckusick 	int	value;
10*1678Smckusick 	int	lower;
11*1678Smckusick 	int	upper;
12*1678Smckusick {
13*1678Smckusick 	if (value < lower || value > upper) {
14*1678Smckusick 		ERROR(ERANGE, value);
15*1678Smckusick 		return;
16*1678Smckusick 	}
17*1678Smckusick 	return	value;
18*1678Smckusick }
19