ack/lang/m2/libm2/rckul.c

25 lines
476 B
C
Raw Normal View History

1991-03-05 11:56:39 +00:00
/*
* (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: $Header$
*/
#include <em_abs.h>
extern TRP();
struct range_descr {
unsigned long low, high;
};
1991-03-06 10:20:17 +00:00
rckul(descr, val)
1991-03-05 11:56:39 +00:00
struct range_descr *descr;
unsigned long val;
{
if (val < descr->low || val > descr->high) TRP(ERANGE);
}