XS-MLVP
/
swig
mirror of https://github.com/swig/swig
5
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix unused warnings in perl wrappers

This commit is contained in:
William S Fulton 2016-05-28 09:59:16 +01:00
parent 624195f313
commit db54a8d5d1
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Examples/test-suite/preproc_defined.i
View File

@ -102,6 +102,7 @@ ANOTHER_MACRO(int)
void another_macro_checking(void) {
struct Defined d;
d.defined = 10;
(void)d;
thing(10);
stuff(10);
bumpf(10);

2
Examples/test-suite/typemap_subst.i
View File

@ -27,12 +27,14 @@
(void)c;
(void)d;
(void)e;
(void)f;
}
{ /* Test locals */
basetemp.member = 0;
startemp = &basetemp;
temp = &startemp;
amptemp = &temp;
(void)amptemp;
}
{ /* Test descriptors */
void *desc = $descriptor;

4
Lib/perl5/perlrun.swg
View File

@ -144,9 +144,9 @@ typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
# ifdef PERL_OBJECT
# define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
static void SWIG_Perl_croak_null(CPerlObj *pPerl)
static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
# else
static void SWIG_croak_null()
static void SWIGUNUSED SWIG_croak_null()
# endif
{
SV *err = get_sv("@", GV_ADD);