[Rcpp-commits] r1018 - pkg/Rcpp/inst/include/Rcpp/internal

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-04-06 19:24:21 +0200 (Tue, 06 Apr 2010)
New Revision: 1018

Modified:
   pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
Log:
small but quite confusing mistake

Modified: pkg/Rcpp/inst/include/Rcpp/internal/wrap.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2010-04-06 13:49:29 UTC (rev 1017)
+++ pkg/Rcpp/inst/include/Rcpp/internal/wrap.h	2010-04-06 17:24:21 UTC (rev 1018)
@@ -584,7 +584,7 @@
 	const int RTYPE = ::Rcpp::traits::r_sexptype_traits<value_type>::rtype ;
 	typedef typename ::Rcpp::traits::storage_type<RTYPE>::type STORAGE ;
 	SEXP out = PROTECT( ::Rf_allocVector( RTYPE, nrow * ncol ) );
-	value_type* ptr = r_vector_start<RTYPE,STORAGE>( out );
+	STORAGE* ptr = r_vector_start<RTYPE,STORAGE>( out );
 	int i=0, j=0 ;
 	for( j=0; j<ncol; j++){
 		for( i=0; i<nrow; i++, ++first ){