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

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)SUBSC.c 1.1 %G%";

#include	"h01errs.h"

SUBSC(i, lower, upper)

	long	i, lower, upper;
{
	if (i < lower || i > upper) {
		ERROR(ESUBSC, i);
	}
	return i;
}
Commit	Line	Data
b0158e32 KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)SUBSC.c 1.1 %G%";
	4
	5	#include "h01errs.h"
	6
	7	SUBSC(i, lower, upper)
	8
	9	long i, lower, upper;
	10	{
	11	if (i < lower \|\| i > upper) {
	12	ERROR(ESUBSC, i);
	13	}
	14	return i;
	15	}