jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused code in R wrappers

Browse source
This commit is contained in:
William S Fulton 2016-06-02 21:27:00 +01:00
commit a293ee6a15
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/r/rrun.swg
View file

@ -218,10 +218,6 @@ SWIGRUNTIME SEXP
SWIG_MakePtr(void *ptr, const char *typeName, R_SWIG_Owner owner) SWIG_MakePtr(void *ptr, const char *typeName, R_SWIG_Owner owner)
{ {
SEXP external, r_obj; SEXP external, r_obj;
const char *p = typeName;
if(typeName[0] == '_')
p = typeName + 1;
Rf_protect(external = R_MakeExternalPtr(ptr, Rf_install(typeName), R_NilValue)); Rf_protect(external = R_MakeExternalPtr(ptr, Rf_install(typeName), R_NilValue));
Rf_protect(r_obj = NEW_OBJECT(MAKE_CLASS((char *) typeName))); Rf_protect(r_obj = NEW_OBJECT(MAKE_CLASS((char *) typeName)));