Protect the newly created XPtr

jimhester · jimhester · commit b5d305f100b8 · 2020-05-28T10:00:52.000-04:00
Thanks @kevinushey
diff --git a/inst/include/xml2_types.h b/inst/include/xml2_types.h
@@ -19,6 +19,7 @@ template <typename T> class XPtr {
 
   XPtr(T* p) {
     data_ = R_MakeExternalPtr((void *) p, R_NilValue, R_NilValue);
+    R_PreserveObject(data_);
   }
 
   operator SEXP() const { return data_; }

Original file line number	Diff line number	Diff line change
`@@ -19,6 +19,7 @@ template <typename T> class XPtr {`
`19`	`19`
`20`	`20`	`XPtr(T* p) {`
`21`	`21`	`data_ = R_MakeExternalPtr((void *) p, R_NilValue, R_NilValue);`
	`22`	`+ R_PreserveObject(data_);`
`22`	`23`	`}`
`23`	`24`
`24`	`25`	`operator SEXP() const { return data_; }`