search for: recursiverelease

...t(object)" adds the object to the beginning of the list while "R_ReleaseObject(object)" removes the first "object" found from the list. > void R_PreserveObject(SEXP object) > { > R_PreciousList = CONS(object, R_PreciousList); > } > > static SEXP RecursiveRelease(SEXP object, SEXP list) > { > if (!isNull(list)) { > if (object == CAR(list)) > return CDR(list); > else > CDR(list) = RecursiveRelease(object, CDR(list)); > } > return list; > } > > void R_ReleaseObject(SEXP object) > { > R...

...r, if we preserve the same SEXP twice (or more), should we implement some sort of reference counting ? Reading the source (below, from memory.c) I think not, but some confirmation would help. void R_PreserveObject(SEXP object) { R_PreciousList = CONS(object, R_PreciousList); } static SEXP RecursiveRelease(SEXP object, SEXP list) { if (!isNull(list)) { if (object == CAR(list)) return CDR(list); else CDR(list) = RecursiveRelease(object, CDR(list)); } return list; } void R_ReleaseObject(SEXP object) { R_PreciousList = RecursiveRelease(object, R_PreciousList); } I'...