diff options
| author | Zefram <zefram@fysh.org> | 2010-12-11 18:18:12 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2010-12-11 18:23:16 +0000 |
| commit | c33e8be1506a75e393304af89d64e3f46e0ca7cb (patch) | |
| tree | 064f08620e62d11eca50f73b7439564b702f47ad /ext/Devel-Peek | |
| parent | d6f31ecf904f01f8a2aab2bca55e33b1b51e0b4d (diff) | |
| download | perl-c33e8be1506a75e393304af89d64e3f46e0ca7cb.tar.gz | |
fix various compiler warnings from XS code
Trivial changes to fix warnings of types
* unclear precedence
* assignment as conditional
* signed/unsigned mixing
* unused parameter/variable
* value computed not used
* wrong argument type for a printf format
* variable may be used uninitialised (due to unhandled switch case)
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/Peek.xs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs index d555ab7d08..3dcba4780e 100644 --- a/ext/Devel-Peek/Peek.xs +++ b/ext/Devel-Peek/Peek.xs @@ -294,18 +294,25 @@ mstats2hash(SV *sv, SV *rv, int level) static void fill_mstats(SV *sv, int level) { + PERL_UNUSED_ARG(sv); + PERL_UNUSED_ARG(level); croak("Cannot report mstats without Perl malloc"); } static void mstats_fillhash(SV *sv, int level) { + PERL_UNUSED_ARG(sv); + PERL_UNUSED_ARG(level); croak("Cannot report mstats without Perl malloc"); } static void mstats2hash(SV *sv, SV *rv, int level) { + PERL_UNUSED_ARG(sv); + PERL_UNUSED_ARG(rv); + PERL_UNUSED_ARG(level); croak("Cannot report mstats without Perl malloc"); } #endif /* defined(MYMALLOC) */ |