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

add extra replace that the UTL requires

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8299 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-08 19:37:34 +00:00
commit 6eff5b03dd
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -726,7 +726,7 @@ public:
"XSRETURN(argvi);\n",
"fail:\n",
cleanup,
"croak(Nullch);\n"
"croak(\"\");\n"
"XSRETURN(0);\n"
"}\n",
"}\n",
@ -954,11 +954,21 @@ public:
Replaceall(tm,"$source",value);
Replaceall(tm,"$target",name);
Replaceall(tm,"$value",value);
if (is_shadow(type)) {
Replaceall(tm, "$shadow", "SWIG_SHADOW");
} else {
Replaceall(tm, "$shadow", "0");
}
Printf(constant_tab,"%s,\n", tm);
} else if ((tm = Swig_typemap_lookup_new("constcode", n, name, 0))) {
Replaceall(tm,"$source", value);
Replaceall(tm,"$target", name);
Replaceall(tm,"$value",value);
if (is_shadow(type)) {
Replaceall(tm, "$shadow", "SWIG_SHADOW");
} else {
Replaceall(tm, "$shadow", "0");
}
Printf(f_init, "%s\n", tm);
} else {
Swig_warning(WARN_TYPEMAP_CONST_UNDEF, input_file, line_number,