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

Added object destruction patch (provided by karl forner).

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@295 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-02-29 17:38:35 +00:00
commit c38e38f2a7
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
SWIG/Source/Modules1.1/perl5.cxx
View file

@ -1054,7 +1054,11 @@ void PERL5::create_function(char *name, char *iname, DataType *d, ParmList *l)
// into our local hash table
if ((d->is_pointer == 0) || ((d->is_pointer == 1) && NewObject)) {
func << tab4 << "$" << GetChar(classes,d->name) << "::OWNER{$result} = 1;\n";
char *name = GetChar(classes,d->name);
if (hidden)
func << tab4 << "$" << realpackage << "::" << name << "::OWNER{$result} = 1;\n";
else
func << tab4 << "$" << name << "::OWNER{$result} = 1;\n";
}
// We're returning a Perl "object" of some kind. Turn it into
@ -1850,7 +1854,11 @@ void PERL5::cpp_member_func(char *name, char *iname, DataType *t, ParmList *l) {
// into our local hash table
if ((t->is_pointer == 0) || ((t->is_pointer == 1) && NewObject)) {
func << tab4 << "$" << GetChar(classes,t->name) << "::OWNER{$result} = 1;\n";
char *name = GetChar(classes,t->name);
if (hidden)
func << tab4 << "$" << realpackage << "::" << name << "::OWNER{$result} = 1;\n";
else
func << tab4 << "$" << name << "::OWNER{$result} = 1; \n";
}
// We're returning a Perl "object" of some kind. Turn it into