[Rcpp-commits] r2648 - pkg/Rcpp/src

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

Author: romain
Date: 2010-12-02 09:56:08 +0100 (Thu, 02 Dec 2010)
New Revision: 2648

Modified:
   pkg/Rcpp/src/RcppCommon.cpp
Log:
adding deprecation hooks (6)

Modified: pkg/Rcpp/src/RcppCommon.cpp
===================================================================
--- pkg/Rcpp/src/RcppCommon.cpp	2010-12-02 08:52:16 UTC (rev 2647)
+++ pkg/Rcpp/src/RcppCommon.cpp	2010-12-02 08:56:08 UTC (rev 2648)
@@ -68,7 +68,7 @@
 #ifdef RCPP_NO_CLASSIC_API
 	LOGICAL(cap)[7] = FALSE ;
 #else
-	LOGICAL(cap)[8] = TRUE ;
+	LOGICAL(cap)[7] = TRUE ;
 #endif
 
 	SET_STRING_ELT(names, 0, Rf_mkChar("variadic templates") ) ;
@@ -78,7 +78,7 @@
 	SET_STRING_ELT(names, 4, Rf_mkChar("tr1 unordered sets") ) ;
 	SET_STRING_ELT(names, 5, Rf_mkChar("Rcpp modules") ) ;
 	SET_STRING_ELT(names, 6, Rf_mkChar("demangling") ) ;
-	SET_STRING_ELT(names, 6, Rf_mkChar("classic api") ) ;
+	SET_STRING_ELT(names, 7, Rf_mkChar("classic api") ) ;
 	Rf_setAttrib( cap, R_NamesSymbol, names ) ;
 	UNPROTECT(2) ;
 	return cap ;