ack/lang/m2/libm2/rckul.c
1994-06-24 14:02:31 +00:00

25 lines
472 B
C

/*
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*
*
* Module: range checks for LONGCARD
* Author: Ceriel J.H. Jacobs
* Version: $Id$
*/
#include <em_abs.h>
extern TRP();
struct range_descr {
unsigned long low, high;
};
rckul(descr, val)
struct range_descr *descr;
unsigned long val;
{
if (val < descr->low || val > descr->high) TRP(ERANGE);
}