| 256 | } |
| 257 | |
| 258 | inline attribute_hidden const char* char_nocheck( SEXP x){ |
| 259 | typedef const char* (*Fun)(SEXP); |
| 260 | static Fun fun = GET_CALLABLE("char_nocheck"); |
| 261 | return fun(x); |
| 262 | } |
| 263 | |
| 264 | inline attribute_hidden void* dataptr(SEXP x){ |
| 265 | typedef void* (*Fun)(SEXP); |