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

Added SWIG_MakePtr() and made other fixes.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@676 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-08-18 20:12:17 +00:00
commit 475fc1b442
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Lib/perl5/perl5.swg
View file

@ -65,10 +65,14 @@ extern "C" {
#ifndef PERL_OBJECT #ifndef PERL_OBJECT
extern int SWIG_ConvertPtr(SV *, void **, _swig_type_info *); extern int SWIG_ConvertPtr(SV *, void **, _swig_type_info *);
extern void SWIG_MakePtr(SV *, void *, _swig_type_info *);
#else #else
extern int _SWIG_ConvertPtr(CPerlObj *, SV *, void **, _swig_type_info *); extern int _SWIG_ConvertPtr(CPerlObj *, SV *, void **, _swig_type_info *);
extern void _SWIG_MakePtr(CPerlObj *, SV *, void *, _swig_type_info *);
#define SWIG_ConvertPtr(a,b,c) _SWIG_ConvertPtr(pPerl,a,b,c) #define SWIG_ConvertPtr(a,b,c) _SWIG_ConvertPtr(pPerl,a,b,c)
#define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c)
#endif #endif
#endif #endif
/* Function for getting a pointer value */ /* Function for getting a pointer value */
@ -78,7 +82,7 @@ SWIGSTATICRUNTIME(int)
SWIG_ConvertPtr(SV *sv, void **ptr, _swig_type_info *_t) SWIG_ConvertPtr(SV *sv, void **ptr, _swig_type_info *_t)
#else #else
#define SWIG_ConvertPtr(a,b,c) _SWIG_GetConvert(pPerl,a,b,c) #define SWIG_ConvertPtr(a,b,c) _SWIG_GetConvert(pPerl,a,b,c)
SWIGSTATICRUNTIME(int *) SWIGSTATICRUNTIME(int)
_SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, _swig_type_info *_t) _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, _swig_type_info *_t)
#endif #endif
{ {
@ -140,6 +144,17 @@ _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, _swig_type_info *_t)
*ptr = (void *) tmp; *ptr = (void *) tmp;
return 0; return 0;
} }
#ifndef PERL_OBJECT
SWIGSTATICRUNTIME(void)
SWIG_MakePtr(SV *sv, void *ptr, _swig_type_info *t)
#else
#define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c)
SWIGSTATICRUNTIME(int *)
_SWIG_MakePtr(CPerlObj *pPerl, SV *sv, void *ptr, _swig_type_info *t)
#endif
{
sv_setref_pv(sv, t->name, ptr);
}
/* Magic variable code */ /* Magic variable code */
#ifndef PERL_OBJECT #ifndef PERL_OBJECT