1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)PRED.c 1.4 06/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 } 24