diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2016-06-02 21:27:00 +0100 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2016-06-05 21:40:03 +0100 |
commit | a293ee6a154bf5209f3ca44cee44e86908453261 (patch) | |
tree | 8dfc5db00c3ae4c6dca4bb4492018d2147e22c4f /Lib/r | |
parent | f3cff4784502523a8baaa4f37b048251c6394ed7 (diff) | |
download | swig-a293ee6a154bf5209f3ca44cee44e86908453261.tar.gz |
Remove unused code in R wrappers
Diffstat (limited to 'Lib/r')
-rw-r--r-- | Lib/r/rrun.swg | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Lib/r/rrun.swg b/Lib/r/rrun.swg index 990443e23..823b61ea5 100644 --- a/Lib/r/rrun.swg +++ b/Lib/r/rrun.swg @@ -218,10 +218,6 @@ SWIGRUNTIME SEXP SWIG_MakePtr(void *ptr, const char *typeName, R_SWIG_Owner owner) { 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(r_obj = NEW_OBJECT(MAKE_CLASS((char *) typeName))); |