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

fix #1124 - return R_NilValue for null pointer objects

Browse source 
This fixes #1124 and returns R_NilValue for null pointer objects
This commit is contained in:
Joseph C Wang 2017-11-24 23:43:02 +08:00
commit 0b97170f1d
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Lib/r/rrun.swg
View file

@ -260,6 +260,9 @@ AddOutputArgToReturn(int pos, SEXP value, const char *name, SEXP output)
/* Create a new pointer object */
SWIGRUNTIMEINLINE SEXP
SWIG_R_NewPointerObj(void *ptr, swig_type_info *type, int flags) {
if (!ptr) {
return R_NilValue;
}
SEXP rptr = R_MakeExternalPtr(ptr,
R_MakeExternalPtr(type, R_NilValue, R_NilValue), R_NilValue);
SET_S4_OBJECT(rptr);