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