Merge pull request #706 from krlmlr/b-stack-trace-protect

Protect function argument to rcpp_set_stack_trace()

Author: eddelbuettel

inst/NEWS.Rd

@@ -8,6 +8,7 @@
     \item Changes in Rcpp API:
     \itemize{
       \item The \code{tinyformat.h} header now ends in a newline (\ghit{701}).
+      \item Fixed rare protection error that occurred when fetching stack traces during the construction of an Rcpp exception (Kirill Müller in \ghit{706}).
     }
     \item Changes in Rcpp Attributes:
     \itemize{

inst/include/Rcpp/exceptions.h

@@ -31,12 +31,12 @@ namespace Rcpp {
         explicit exception(const char* message_, bool include_call = true) :	// #nocov start
             message(message_),
             include_call_(include_call){
-            rcpp_set_stack_trace(stack_trace());
+            rcpp_set_stack_trace(Shield<SEXP>(stack_trace()));
         }
         exception(const char* message_, const char* file, int line, bool include_call = true) :
             message(message_),
             include_call_(include_call){
-            rcpp_set_stack_trace(stack_trace(file,line));
+            rcpp_set_stack_trace(Shield<SEXP>(stack_trace()));
         }
         bool include_call() const {
             return include_call_;