[[Rcpp::export]]
| 65 | |
| 66 | // [[Rcpp::export]] |
| 67 | bool xptr_access_released( XPtr< std::vector<int> > p) { |
| 68 | |
| 69 | // double-release should be a no-op |
| 70 | p.release(); |
| 71 | |
| 72 | // get should return NULL |
| 73 | return p.get() == NULL; |
| 74 | } |
| 75 | |
| 76 | // [[Rcpp::export]] |
| 77 | int xptr_use_released( XPtr< std::vector<int> > p ) { |