| Line | |
|---|
| 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: /cvsup/minix/src/lib/ack/libm2/rcka.c,v 1.1 2005/10/10 15:27:46 beng Exp $
|
|---|
| 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 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
