[Rcpp-commits] r1899 - in pkg/Rcpp/inst: . include/Rcpp

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

Author: romain
Date: 2010-08-02 12:35:27 +0200 (Mon, 02 Aug 2010)
New Revision: 1899

Modified:
   pkg/Rcpp/inst/ChangeLog
   pkg/Rcpp/inst/include/Rcpp/XPtr.h
Log:
default values for parameters of XPtr

Modified: pkg/Rcpp/inst/ChangeLog
===================================================================
--- pkg/Rcpp/inst/ChangeLog	2010-08-02 07:20:19 UTC (rev 1898)
+++ pkg/Rcpp/inst/ChangeLog	2010-08-02 10:35:27 UTC (rev 1899)
@@ -1,3 +1,7 @@
+2010-08-02  Romain Francois <romain at r-enthusiasts.com>
+
+	* inst/include/Rcpp/XPtr.h: give default values to tag and prot in XPtr ctor
+
 2010-07-30  Romain Francois <romain at r-enthusiasts.com>
 
 	* inst/doc/Rcpp-quickref/* : new vignette Rcpp-quickref: quick reference guide

Modified: pkg/Rcpp/inst/include/Rcpp/XPtr.h
===================================================================
--- pkg/Rcpp/inst/include/Rcpp/XPtr.h	2010-08-02 07:20:19 UTC (rev 1898)
+++ pkg/Rcpp/inst/include/Rcpp/XPtr.h	2010-08-02 10:35:27 UTC (rev 1899)
@@ -168,7 +168,7 @@
 };
 
 template<typename T>
-XPtr<T>::XPtr(T* p, bool set_delete_finalizer = true, SEXP tag, SEXP prot) : RObject() {
+XPtr<T>::XPtr(T* p, bool set_delete_finalizer = true, SEXP tag = R_NilValue, SEXP prot = R_NilValue) : RObject() {
     setSEXP( R_MakeExternalPtr( (void*)p , tag, prot) ) ;
     if( set_delete_finalizer ){
 	setDeleteFinalizer() ;