minix/lib/libp/rcka.c
2005-04-21 14:53:53 +00:00

25 lines
519 B
C
Executable file

/* $Header$ */
/*
* (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 <em_abs.h>
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);
}