140865Sbostic /*- 2*62094Sbostic * Copyright (c) 1979, 1993 3*62094Sbostic * The Regents of the University of California. All rights reserved. 440865Sbostic * 540865Sbostic * %sccs.include.redist.c% 640865Sbostic */ 71675Smckusick 840865Sbostic #ifndef lint 9*62094Sbostic static char sccsid[] = "@(#)PRED.c 8.1 (Berkeley) 06/06/93"; 1040865Sbostic #endif /* not lint */ 111675Smckusick 123017Smckusic long PRED(value,lower,upper)131675SmckusickPRED(value, lower, upper) 141675Smckusick 153017Smckusic long value; 163017Smckusic long lower; 173017Smckusic long upper; 181675Smckusick { 193858Smckusic if (value == lower) { 203858Smckusic ERROR("Cannot take pred of first element of a range\n"); 213858Smckusic } 221675Smckusick value--; 231675Smckusick if (value < lower || value > upper) { 243858Smckusic ERROR("Value of %D is out of range\n", value); 251675Smckusick } 261675Smckusick return value; 271675Smckusick } 28