Displaying 2 results from an estimated 2 matches for "prlst0cdr".
2020 Sep 11
4
Garbage collection of seemingly PROTECTed pairlist
...= PROTECT(Rf_allocVector(INTSXP, 2));
int *out_int = INTEGER(out);
out_int[0] = first;
out_int[1] = second;
UNPROTECT(1);
return out;}
SEXP C_fullocate(SEXP int_mat) {
int nr = Rf_nrows(int_mat), *int_mat_int = INTEGER(int_mat);
int last, row_num; // row_num will be 1-indexed
SEXP prlst0cdr = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, 1));
SEXP prlst = PROTECT(Rf_list1(prlst0cdr));
SEXP prlst_tail = prlst;
last = INTEGER(prlst0cdr)[1];
row_num = 2;
while (row_num <= nr) {
Rprintf("row_num: %i\n", row_num);
SEXP row = PROTECT(C_int_mat_nth_row_nrn...
2020 Sep 12
0
Garbage collection of seemingly PROTECTed pairlist
...*out_int = INTEGER(out);
> out_int[0] = first;
> out_int[1] = second;
> UNPROTECT(1);
> return out;}
>
> SEXP C_fullocate(SEXP int_mat) {
> int nr = Rf_nrows(int_mat), *int_mat_int = INTEGER(int_mat);
> int last, row_num; // row_num will be 1-indexed
> SEXP prlst0cdr = PROTECT(C_int_mat_nth_row_nrnc(int_mat_int, nr, 2, 1));
> SEXP prlst = PROTECT(Rf_list1(prlst0cdr));
> SEXP prlst_tail = prlst;
> last = INTEGER(prlst0cdr)[1];
> row_num = 2;
> while (row_num <= nr) {
> Rprintf("row_num: %i\n", row_num);
> SEXP...