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

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

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


long
SUBSCZ(i, upper)

	long	i, upper;
{
	if (i < 0 || i > upper) {
		ERROR("Subscript value of %D is out of range\n", i);
		return;
	}
	return i;
}
Commit	Line	Data
0961106f KM	1	/* Copyright (c) 1979 Regents of the University of California */
0961106f KM	2
86997b19	3	static char sccsid[] = "@(#)SUBSCZ.c 1.3 %G%";
0961106f	4
0961106f	5
492cc5d3	6	long
0961106f KM	7	SUBSCZ(i, upper)
	8
	9	long i, upper;
	10	{
	11	if (i < 0 \|\| i > upper) {
86997b19 KM	12	ERROR("Subscript value of %D is out of range\n", i);
86997b19 KM	13	return;
0961106f KM	14	}
	15	return i;
	16	}