Displaying 2 results from an estimated 2 matches for "row_int".
2020 Sep 11
4
Garbage collection of seemingly PROTECTed pairlist
...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(row);
if (row_int[0] == last + 1) {
Rprintf("here1");
SEXP next = PROTECT(Rf_list1(row));
prlst_tail = SETCDR(prlst_tail, next);
last = row_int[1];
UNPROTECT(1);
++row_num;
} else {
Rprintf("here2");
SEXP next_car...
2020 Sep 12
0
Garbage collection of seemingly PROTECTed pairlist
...= 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(row);
> if (row_int[0] == last + 1) {
> Rprintf("here1");
> SEXP next = PROTECT(Rf_list1(row));
> prlst_tail = SETCDR(prlst_tail, next);
> last = row_int[1];
> UNPROTECT(1);
> ++row_num;
> } else {
> Rp...