| 91 | VECTOR* p ; |
| 92 | |
| 93 | void check_index(R_xlen_t i) const { |
| 94 | #ifndef RCPP_NO_BOUNDS_CHECK |
| 95 | if (i >= p->size()) { |
| 96 | warning("subscript out of bounds (index %s >= vector size %s)", i, p->size()); // #nocov |
| 97 | } |
| 98 | #endif |
| 99 | } |
| 100 | } ; |
| 101 | |
| 102 | // regular types for INTSXP, REALSXP, ... |