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

Added support for guile's native pointer type

Browse source
This commit is contained in:
Brian Caine 2016-07-09 21:39:28 -04:00 • committed by Olly Betts
commit 391bb79cba
5 changed files with 49 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Lib/guile/guile_scm_run.swg
View file

@ -176,6 +176,9 @@ SWIG_Guile_ConvertPtr(SCM s, void **result, swig_type_info *type, int flags)
if (SCM_NULLP(smob)) {
*result = NULL;
return SWIG_OK;
} else if (SCM_POINTER_P(s)) {
*result = SCM_POINTER_VALUE(s);
return SWIG_OK;
} else if (SCM_SMOB_PREDICATE(swig_tag, smob) || SCM_SMOB_PREDICATE(swig_collectable_tag, smob)) {
/* we do not accept smobs representing destroyed pointers */
from = (swig_type_info *) SCM_CELL_WORD_2(smob);