Displaying 2 results from an estimated 2 matches for "prlst_tail".
2020 Sep 11
4
Garbage collection of seemingly PROTECTed pairlist
...OTECT(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_nrnc(int_mat_int, nr, 2, row_num));
Rf_PrintValue(prlst); // This is where the error occurs
int *row_int = INTEGER(...
2020 Sep 12
0
Garbage collection of seemingly PROTECTed pairlist
...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_nrnc(int_mat_int, nr, 2,
> row_num));
> Rf_PrintValue(prlst); // This is where the error...