lib/ack/libm2/rcka.c

   1 /*
   2  * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  *
   5  *
   6  * Module:      range checks for INTEGER, now for array indexing
   7  * Author:      Ceriel J.H. Jacobs
   8  * Version:     $Header$
   9 */
  10
  11 #include <em_abs.h>
  12
  13 extern TRP();
  14
  15 struct array_descr {
  16   int   lbound;
  17   int   n_elts_min_one;
  18   unsigned size;
  19 };
  20
  21 rcka(descr, indx)
  22   struct array_descr *descr;
  23 {
  24   if (indx < 0 || indx > descr->n_elts_min_one) TRP(EARRAY);
  25 }