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

more fixes for valgrind

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7722 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-25 15:15:42 +00:00
commit ead70adb56
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Examples/test-suite/perl5/enum_thorough_runme.pl
View file

@ -1,5 +1,7 @@
use enum_thorough;
$enum_thorough::myColour;
# Just test an in and out typemap for enum SWIGTYPE and const enum SWIGTYPE & typemaps
if (enum_thorough::speedTest4($enum_thorough::SpeedClass::slow) != $enum_thorough::SpeedClass::slow) {

6
Lib/perl5/perlrun.swg
View file

@ -156,8 +156,10 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *
To set ownership (see bellow), an newSViv(1) entry is added.
Hence, to remove ownership, we delete the entry.
*/
SV *v = hv_delete_ent(hv, obj, 0, 0);
if (v) SvREFCNT_dec(v);
/* SV *val = */
hv_delete_ent(hv, obj, 0, 0);
/* if (val) SvREFCNT_dec(val); */
}
}
return SWIG_OK;

6
Lib/perl5/perltypemaps.swg
View file

@ -66,13 +66,13 @@
%set_output(obj) %enddef
/* variable output */
%define %set_varoutput(obj) sv_setsv($result,obj); SvREFCNT_dec(obj) %enddef
%define %set_varoutput(obj) sv_setsv($result,obj) %enddef
/* constant */
%define %set_constant(name, obj) %begin_block
SV *_obj = obj;
SV *sv = get_sv((char*) SWIG_prefix name, TRUE | 0x2);
sv_setsv(sv, obj);
SvREFCNT_dec(obj);
sv_setsv(sv, _obj);
SvREADONLY_on(sv);
%end_block %enddef