rcka.c 515 B

12345678910111213141516171819202122232425
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  6. /* Author: Hans van Eck */
  7. #include <em_abs.h>
  8. extern _trp();
  9. struct array_descr {
  10. int lbound;
  11. unsigned n_elts_min_one;
  12. unsigned size; /* doesn't really matter */
  13. };
  14. _rcka(descr, index)
  15. struct array_descr *descr;
  16. {
  17. if( index < descr->lbound ||
  18. index > (int) descr->n_elts_min_one + descr->lbound )
  19. _trp(EARRAY);
  20. }