| 232 | } |
| 233 | |
| 234 | inline attribute_hidden SEXP* get_string_ptr(SEXP s){ |
| 235 | typedef SEXP* (*Fun)(SEXP); |
| 236 | static Fun fun = GET_CALLABLE("get_string_ptr"); |
| 237 | return fun(s); |
| 238 | } |
| 239 | |
| 240 | inline attribute_hidden SEXP get_vector_elt(SEXP v, R_xlen_t i){ |
| 241 | typedef SEXP (*Fun)(SEXP, R_xlen_t); |