[unix-history] / usr / src / usr.bin / pascal / libpc / RSNG4.c

/*-
 * Copyright (c) 1979 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)RSNG4.c	1.6 (Berkeley) %G%";
#endif /* not lint */

extern char ERANG[];	/* ERANG is defined in RANG4.c */

long
RSNG4(value, upper)
	long		value;
	unsigned long	upper;
{
	if (value > upper) {
		ERROR(ERANG, value);
	}
	return	value;
}
Commit	Line	Data
0d78ca85 KB	1	/*-
	2	* Copyright (c) 1979 The Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* %sccs.include.redist.c%
	6	*/
5546ab1f	7
0d78ca85 KB	8	#ifndef lint
	9	static char sccsid[] = "@(#)RSNG4.c 1.6 (Berkeley) %G%";
	10	#endif /* not lint */
5546ab1f	11
1198f08c	12	extern char ERANG[]; /* ERANG is defined in RANG4.c */
5546ab1f	13
492cc5d3	14	long
5546ab1f	15	RSNG4(value, upper)
1198f08c KM	16	long value;
1198f08c KM	17	unsigned long upper;
5546ab1f	18	{
1198f08c KM	19	if (value > upper) {
1198f08c KM	20	ERROR(ERANG, value);
5546ab1f KM	21	}
	22	return value;
	23	}