[Rcpp-commits] r2709 - pkg/Rcpp/inst/include/Rcpp

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

Author: romain
Date: 2010-12-04 14:05:39 +0100 (Sat, 04 Dec 2010)
New Revision: 2709

Modified:
   pkg/Rcpp/inst/include/Rcpp/XPtr.h
Log:
remove code deprecated long ago

Modified: pkg/Rcpp/inst/include/Rcpp/XPtr.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/XPtr.h	2010-12-04 13:00:57 UTC (rev 2708)
+++ pkg/Rcpp/inst/include/Rcpp/XPtr.h	2010-12-04 13:05:39 UTC (rev 2709)
@@ -79,21 +79,7 @@
      * on this as if it was the dumb pointer
      */
     T* operator->() const ;
-  		
-    /**
-     * Returns the 'protected' part of the external pointer, this is 
-     * the SEXP that is passed in as the third argument of the 
-     * R_MakeExternalPointer function. See Writing R extensions
-     */
-    SEXP getProtected() ;
-  		
-    /** 
-     * Returns the 'tag' part of the external pointer, this is the 
-     * SEXP that is passed in as the 2nd argument of the 
-     * R_MakeExternalPointer function. See Writing R extensions
-     */
-    SEXP getTag() ;
-        
+  		  		        
     void setDeleteFinalizer() ;
   	
     inline operator T*(){ return (T*)(EXTPTR_PTR(m_sexp)) ; }
@@ -190,18 +176,6 @@
     return (T*)(EXTPTR_PTR(m_sexp));
 }
 
-template<typename T>
-SEXP XPtr<T>::getProtected(){
-    Rprintf( "getProtected is deprecated in Rcpp 0.8.1, and will be removed in version 0.8.2, use prot() instead\n" ) ;
-    return EXTPTR_PROT(m_sexp) ;
-}
-
-template<typename T>
-SEXP XPtr<T>::getTag(){
-	Rprintf( "getTag is deprecated in Rcpp 0.8.1, and will be removed in version 0.8.2, use tag() instead\n" ) ;
-    return EXTPTR_TAG(m_sexp) ;
-}
-
 } // namespace Rcpp 
 
 #endif