| Line | |
|---|
| 1 | /* $Header: /cvsup/minix/src/lib/ack/libp/rcka.c,v 1.1 2005/10/10 15:27:47 beng Exp $ */
|
|---|
| 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 |
|
|---|
| 7 | /* Author: Hans van Eck */
|
|---|
| 8 |
|
|---|
| 9 | #include <em_abs.h>
|
|---|
| 10 |
|
|---|
| 11 | extern _trp();
|
|---|
| 12 |
|
|---|
| 13 | struct array_descr {
|
|---|
| 14 | int lbound;
|
|---|
| 15 | unsigned n_elts_min_one;
|
|---|
| 16 | unsigned size; /* doesn't really matter */
|
|---|
| 17 | };
|
|---|
| 18 |
|
|---|
| 19 | _rcka(descr, index)
|
|---|
| 20 | struct array_descr *descr;
|
|---|
| 21 | {
|
|---|
| 22 | if( index < descr->lbound ||
|
|---|
| 23 | index > (int) descr->n_elts_min_one + descr->lbound )
|
|---|
| 24 | _trp(EARRAY);
|
|---|
| 25 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
