Patch integer overflow in 'Rcpp::wrap(<Eigen::Matrix>)'

Author: jaganmn

inst/include/RcppEigenWrap.h

@@ -80,16 +80,19 @@ namespace Rcpp{
 
         // for plain dense objects
         template <typename T>
-        SEXP eigen_wrap_plain_dense( const T& obj, Rcpp::traits::true_type ){
-			typename Eigen::internal::conditional<T::IsRowMajor,
-												  Eigen::Matrix<typename T::Scalar,
-																T::RowsAtCompileTime,
-																T::ColsAtCompileTime>,
-												  const T&>::type objCopy(obj);
-            int m = obj.rows(), n = obj.cols();
-			R_xlen_t size = static_cast<R_xlen_t>(m) * n;
-			SEXP ans = PROTECT(::Rcpp::wrap(objCopy.data(), objCopy.data() + size));
-            if( T::ColsAtCompileTime != 1 ) {
+        SEXP eigen_wrap_plain_dense( const T& obj, Rcpp::traits::true_type ) {
+	    typename Eigen::internal::conditional<
+		T::IsRowMajor,
+		Eigen::Matrix<typename T::Scalar,
+			      T::RowsAtCompileTime,
+			      T::ColsAtCompileTime>,
+		const T&>::type objCopy(obj);
+	    R_xlen_t m = obj.rows(), n = obj.cols(), size = m * n;
+	    SEXP ans = PROTECT(::Rcpp::wrap(objCopy.data(), objCopy.data() + size));
+            if ( T::ColsAtCompileTime != 1 ) {
+		if (m > INT_MAX || n > INT_MAX) {
+		    throw std::runtime_error("array dimensions cannot exceed INT_MAX");
+		}
                 SEXP dd = PROTECT(::Rf_allocVector(INTSXP, 2));
                 int *d = INTEGER(dd);
                 d[0] = m;