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