12345678910111213141516171819202122232425 |
- /*
- * (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 INTEGER, now for array indexing
- * Author: Ceriel J.H. Jacobs
- * Version: $Id$
- */
- #include <em_abs.h>
- extern TRP();
- struct array_descr {
- int lbound;
- int n_elts_min_one;
- unsigned size;
- };
- rcka(descr, indx)
- struct array_descr *descr;
- {
- if (indx < 0 || indx > descr->n_elts_min_one) TRP(EARRAY);
- }
|