diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2017-12-14 07:49:56 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2017-12-14 07:51:45 +0000 |
commit | 717b7866d4e438e1ae3483f796eb07f96e246fe6 (patch) | |
tree | 61759909373802cce8a075dcc96087021deb3773 /Lib/perl5 | |
parent | e86c881a70333af96694dae4310f1ba48e71dd64 (diff) | |
download | swig-717b7866d4e438e1ae3483f796eb07f96e246fe6.tar.gz |
Perl - Add support for missing directorfree typemaps
Related to issue #1167, to free up memory when returning reference types.
SWIG_Perl_AcquirePtr still needs implementing.
Diffstat (limited to 'Lib/perl5')
-rw-r--r-- | Lib/perl5/perlrun.swg | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg index cc4ba446a..02714c451 100644 --- a/Lib/perl5/perlrun.swg +++ b/Lib/perl5/perlrun.swg @@ -20,6 +20,7 @@ #define SWIG_ConvertPtr(obj, pp, type, flags) SWIG_Perl_ConvertPtr(SWIG_PERL_OBJECT_CALL obj, pp, type, flags) #define SWIG_ConvertPtrAndOwn(obj, pp, type, flags,own) SWIG_Perl_ConvertPtrAndOwn(SWIG_PERL_OBJECT_CALL obj, pp, type, flags, own) #define SWIG_NewPointerObj(p, type, flags) SWIG_Perl_NewPointerObj(SWIG_PERL_OBJECT_CALL p, type, flags) +#define SWIG_AcquirePtr(ptr, src) SWIG_Perl_AcquirePtr(ptr, src) #define swig_owntype int /* for raw packed data */ @@ -229,6 +230,14 @@ SWIG_TypeProxyCheck(const char *c, swig_type_info *ty) { return 0; } +/* Acquire a pointer value */ + +SWIGRUNTIME int +SWIG_Perl_AcquirePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, int own) { + /* TODO */ + return 0; +} + /* Function for getting a pointer value */ SWIGRUNTIME int |