1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)PRED.c 1.4 6/10/81";
4:
5:
6: long
7: PRED(value, lower, upper)
8:
9: long value;
10: long lower;
11: long upper;
12: {
13: if (value == lower) {
14: ERROR("Cannot take pred of first element of a range\n");
15: return;
16: }
17: value--;
18: if (value < lower || value > upper) {
19: ERROR("Value of %D is out of range\n", value);
20: return;
21: }
22: return value;
23: }
Defined functions
PRED
defined in line
6; used 4 times
Defined variables
sccsid
defined in line
3;
never used