#nocov end [[Rcpp::register]]
| 108 | } // #nocov end |
| 109 | // [[Rcpp::register]] |
| 110 | SEXP Rcpp_precious_preserve(SEXP object) { |
| 111 | if (object == R_NilValue) { |
| 112 | return R_NilValue; // #nocov |
| 113 | } |
| 114 | PROTECT(object); |
| 115 | SEXP cell = PROTECT(CONS(Rcpp_precious, CDR(Rcpp_precious))); |
| 116 | SET_TAG(cell, object); |
| 117 | SETCDR(Rcpp_precious, cell); |
| 118 | if (CDR(cell) != R_NilValue) { |
| 119 | SETCAR(CDR(cell), cell); |
| 120 | } |
| 121 | UNPROTECT(2); |
| 122 | return cell; |
| 123 | } |
| 124 | // [[Rcpp::register]] |
| 125 | void Rcpp_precious_remove(SEXP token) { |
| 126 | if (token == R_NilValue || TYPEOF(token) != LISTSXP) { |
nothing calls this directly
no outgoing calls
no test coverage detected