|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)PRED.c 1.1 10/29/80";
4:
5: #include "h01errs.h"
6:
7: PRED(value, lower, upper)
8:
9: int value;
10: int lower;
11: int upper;
12: {
13: value--;
14: if (value < lower || value > upper) {
15: ERROR(ERANGE, value);
16: return;
17: }
18: return value;
19: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.