protect the temporary SEXPs produced by wrap

Author: kevinushey

ChangeLog

@@ -1,3 +1,9 @@
+2017-12-04  Kevin Ushey  <[email protected]>
+
+        * inst/include/Rcpp/api/meat/proxy.h: Protect temporary SEXP
+        * inst/include/Rcpp/proxy/ProtectedProxy.h: Idem
+        * inst/include/Rcpp/vector/generic_proxy.h: Idem
+
 2017-12-03  Dirk Eddelbuettel  <[email protected]>
 
         * DESCRIPTION (Version, Date): New minor version

inst/include/Rcpp/api/meat/proxy.h

@@ -30,7 +30,7 @@ template <typename CLASS>
 template <typename T>
 typename AttributeProxyPolicy<CLASS>::AttributeProxy&
 AttributeProxyPolicy<CLASS>::AttributeProxy::operator=(const T& rhs) {
-    set( wrap(rhs) );
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
@@ -61,7 +61,7 @@ template <typename CLASS>
 template <typename T>
 typename NamesProxyPolicy<CLASS>::NamesProxy&
 NamesProxyPolicy<CLASS>::NamesProxy::operator=(const T& rhs) {
-    set( wrap(rhs) );
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
@@ -82,7 +82,7 @@ template <typename CLASS>
 template <typename T>
 typename SlotProxyPolicy<CLASS>::SlotProxy&
 SlotProxyPolicy<CLASS>::SlotProxy::operator=(const T& rhs) {
-    set(wrap(rhs));
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
@@ -97,7 +97,7 @@ template <typename CLASS>
 template <typename T>
 typename TagProxyPolicy<CLASS>::TagProxy&
 TagProxyPolicy<CLASS>::TagProxy::operator=(const T& rhs) {
-    set( wrap(rhs) );
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
@@ -128,7 +128,7 @@ template <typename CLASS>
 template <typename T>
 typename BindingPolicy<CLASS>::Binding&
 BindingPolicy<CLASS>::Binding::operator=(const T& rhs) {
-    set(wrap(rhs));
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
@@ -149,15 +149,15 @@ template <typename CLASS>
 template <typename T>
 typename DottedPairProxyPolicy<CLASS>::DottedPairProxy&
 DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator=(const T& rhs) {
-    set(wrap(rhs));
+    set(Shield<SEXP>(wrap(rhs)));
     return *this;
 }
 
 template <typename CLASS>
 template <typename T>
 typename DottedPairProxyPolicy<CLASS>::DottedPairProxy&
 DottedPairProxyPolicy<CLASS>::DottedPairProxy::operator=(const traits::named_object<T>& rhs) {
-    return set(wrap(rhs.object), rhs.name);
+    return set(Shield<SEXP>(wrap(rhs.object)), rhs.name);
 }
 
 template <typename CLASS>

inst/include/Rcpp/proxy/ProtectedProxy.h

@@ -32,7 +32,7 @@ namespace Rcpp{
 
             template <typename U>
             ProtectedProxy& operator=( const U& u) {
-              set( wrap( u ) );
+              set(Shield<SEXP>(wrap(u)));
               return *this;
             }
 

inst/include/Rcpp/vector/generic_proxy.h

@@ -47,7 +47,7 @@ namespace internal{
 
 			template <typename T>
 			generic_proxy& operator=( const T& rhs){
-				set(wrap(rhs)) ;
+				set(Shield<SEXP>(wrap(rhs))) ;
 				return *this;
 			}