protect argument

krlmlr · krlmlr · commit 828b11d00ed4 · 2017-06-05T02:03:05.000+02:00
diff --git a/src/barrier.cpp b/src/barrier.cpp
@@ -121,6 +121,7 @@ SEXP rcpp_get_stack_trace() {
 
 // [[Rcpp::register]]
 SEXP rcpp_set_stack_trace(SEXP e) {
+    Rcpp::Shield<SEXP> ep(e);
     SET_VECTOR_ELT(get_rcpp_cache(), 3, e);
     return R_NilValue;
 }

Original file line number	Diff line number	Diff line change
`@@ -121,6 +121,7 @@ SEXP rcpp_get_stack_trace() {`
`121`	`121`
`122`	`122`	`// [[Rcpp::register]]`
`123`	`123`	`SEXP rcpp_set_stack_trace(SEXP e) {`
	`124`	`+ Rcpp::Shield<SEXP> ep(e);`
`124`	`125`	`SET_VECTOR_ELT(get_rcpp_cache(), 3, e);`
`125`	`126`	`return R_NilValue;`
`126`	`127`	`}`