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) { void another_macro_checking(void) {
struct Defined d; struct Defined d;
d.defined = 10; d.defined = 10;
(void)d;
thing(10); thing(10);
stuff(10); stuff(10);
bumpf(10); bumpf(10);

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

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

4
Lib/perl5/perlrun.swg
View File

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