Safer casting in operator= (closes #146)

Author: kevinushey

ChangeLog

@@ -1,3 +1,7 @@
+2014-05-18  Kevin Ushey  <[email protected]>
+
+	* inst/include/Rcpp/vector/Vector.h: Safer casting to fix #146
+
 2014-05-10  Dirk Eddelbuettel  <[email protected]>
 
 	* R/Attributes.R (compileAttributes): Read Imports: as well

inst/include/Rcpp/vector/Vector.h

@@ -941,7 +941,9 @@ class Vector :
     // anything else
     template <typename T>
     inline void assign_object( const T& x, traits::false_type ) {
-        Storage::set__( r_cast<RTYPE>( wrap(x) ) ) ;
+        Shield<SEXP> wrapped(wrap(x));
+        Shield<SEXP> casted(r_cast<RTYPE>(wrapped));
+        Storage::set__(casted);
     }
 
     // we are importing a real sugar expression, i.e. not a vector