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

Fix unused variable warning in Perl wrappers

Browse source
This commit is contained in:
William S Fulton 2016-05-27 08:36:34 +01:00
commit 7ead141aa9
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Lib/perl5/perlinit.swg
View file

@ -28,6 +28,7 @@ extern "C"
XS(SWIG_init) { XS(SWIG_init) {
dXSARGS; dXSARGS;
int i; int i;
(void)items;
SWIG_InitializeModule(0); SWIG_InitializeModule(0);

2
Source/Modules/perl5.cxx
View file

@ -2130,6 +2130,8 @@ public:
String *cres = SwigType_lstr(returntype, "c_result"); String *cres = SwigType_lstr(returntype, "c_result");
Printf(w->code, "%s;\n", cres); Printf(w->code, "%s;\n", cres);
Delete(cres); Delete(cres);
}
if (!ignored_method) {
String *pres = NewStringf("SV *%s", Swig_cresult_name()); String *pres = NewStringf("SV *%s", Swig_cresult_name());
Wrapper_add_local(w, Swig_cresult_name(), pres); Wrapper_add_local(w, Swig_cresult_name(), pres);
Delete(pres); Delete(pres);