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