/* $Id$ */ /* * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* Author: Hans van Eck */ #include extern _trp(); struct array_descr { int lbound; unsigned n_elts_min_one; unsigned size; /* doesn't really matter */ }; _rcka(descr, index) struct array_descr *descr; { if( index < descr->lbound || index > (int) descr->n_elts_min_one + descr->lbound ) _trp(EARRAY); }