update RcppFireAs.h

kafku · kafku · commit 5e335e1fd614 · 2015-03-01T20:26:34.000+09:00
diff --git a/inst/include/RcppFireAs.h b/inst/include/RcppFireAs.h
@@ -44,16 +44,16 @@ namespace RcppFire{
 				>( object, buff ) ;
 		}
 
-		STORAGE* data_dispatch(::Rcpp::traits::false_type){
+		const STORAGE* data_dispatch(::Rcpp::traits::false_type) const {
 			return start;
 		}
-		value_type* data_dispatch(::Rcpp::traits::true_type){
+		const value_type* data_dispatch(::Rcpp::traits::true_type) const {
 			return buff.data();
 		}
-		size_t size_dispatch(::Rcpp::traits::false_type){
+		size_t size_dispatch(::Rcpp::traits::false_type) const {
 			return ::Rf_length(this->t);
 		}
-		size_t size_dispatch(::Rcpp::traits::true_type){
+		size_t size_dispatch(::Rcpp::traits::true_type) const {
 			return buff.size();
 		}
 
@@ -75,7 +75,7 @@ namespace RcppFire{
 		}
 		~SEXP2CxxPtr(){}
 
-		value_type* data() const {
+		const value_type* data() const {
 			return data_dispatch(
 				typename ::Rcpp::traits::r_sexptype_needscast<value_type>()
 			);

Original file line number	Diff line number	Diff line change
`@@ -44,16 +44,16 @@ namespace RcppFire{`
`44`	`44`	`>( object, buff ) ;`
`45`	`45`	`}`
`46`	`46`
`47`		`- STORAGE* data_dispatch(::Rcpp::traits::false_type){`
	`47`	`+ const STORAGE* data_dispatch(::Rcpp::traits::false_type) const {`
`48`	`48`	`return start;`
`49`	`49`	`}`
`50`		`- value_type* data_dispatch(::Rcpp::traits::true_type){`
	`50`	`+ const value_type* data_dispatch(::Rcpp::traits::true_type) const {`
`51`	`51`	`return buff.data();`
`52`	`52`	`}`
`53`		`- size_t size_dispatch(::Rcpp::traits::false_type){`
	`53`	`+ size_t size_dispatch(::Rcpp::traits::false_type) const {`
`54`	`54`	`return ::Rf_length(this->t);`
`55`	`55`	`}`
`56`		`- size_t size_dispatch(::Rcpp::traits::true_type){`
	`56`	`+ size_t size_dispatch(::Rcpp::traits::true_type) const {`
`57`	`57`	`return buff.size();`
`58`	`58`	`}`
`59`	`59`
`@@ -75,7 +75,7 @@ namespace RcppFire{`
`75`	`75`	`}`
`76`	`76`	`~SEXP2CxxPtr(){}`
`77`	`77`
`78`		`- value_type* data() const {`
	`78`	`+ const value_type* data() const {`
`79`	`79`	`return data_dispatch(`
`80`	`80`	`typename ::Rcpp::traits::r_sexptype_needscast<value_type>()`
`81`	`81`	`);`