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

Modify following features to work as flags, so that they can be truely set and unset:

Browse source 
new


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7564 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-09-30 22:10:17 +00:00
commit 75972cd1df
15 changed files with 36 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Source/Modules/perl5.cxx
View file

@ -654,7 +654,7 @@ public:
} else {
Replaceall(tm, "$shadow", "0");
}
if (Getattr(n,"feature:new")) {
if (GetFlag(n,"feature:new")) {
Replaceall(tm,"$owner","SWIG_OWNER");
} else {
Replaceall(tm,"$owner","0");
@ -673,7 +673,7 @@ public:
Printv(f->code,cleanup,NIL);
if (Getattr(n,"feature:new")) {
if (GetFlag(n,"feature:new")) {
if ((tm = Swig_typemap_lookup_new("newfree",n,"result",0))) {
Replaceall(tm,"$source","result");
Printf(f->code,"%s\n",tm);