trying to make sense of what happens with wrap(const char* const)

romainfrancois · romainfrancois · commit c584067d62c7 · 2013-11-14T11:01:25.000+01:00
diff --git a/inst/include/Rcpp/internal/wrap.h b/inst/include/Rcpp/internal/wrap.h
@@ -921,7 +921,8 @@ inline SEXP module_wrap<SEXP>( const SEXP& obj ){
 }
 
 inline SEXP wrap(const char* const v ){ 
-	if (v)
+	Rprintf( "wrap(const char* const v = <%p>)\n", v ) ;
+	if (v && v != NULL)
 		return Rf_mkString(v) ;
 	else 	
 		return R_NilValue;

Original file line number	Diff line number	Diff line change
`@@ -921,7 +921,8 @@ inline SEXP module_wrap<SEXP>( const SEXP& obj ){`
`921`	`921`	`}`
`922`	`922`
`923`	`923`	`inline SEXP wrap(const char* const v ){`
`924`		`- if (v)`
	`924`	`+ Rprintf( "wrap(const char* const v = <%p>)\n", v ) ;`
	`925`	`+ if (v && v != NULL)`
`925`	`926`	`return Rf_mkString(v) ;`
`926`	`927`	`else`
`927`	`928`	`return R_NilValue;`