diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2014-05-31 16:54:22 +0200 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-06-13 00:00:33 +0200 |
| commit | dc3bf405700292479bd7ac9b4b914cabd6567c33 (patch) | |
| tree | 17a4589bbc50f498dcc2609f9e6ea3718990391b /mg.c | |
| parent | acfd4d8e7fdfa20116069fff8faae1108f58a00e (diff) | |
| download | perl-dc3bf405700292479bd7ac9b4b914cabd6567c33.tar.gz | |
Silence several -Wunused-parameter warnings about my_perl
This meant sprinkling some PERL_UNUSED_CONTEXT invocations,
as well as stopping some functions from getting my_perl in
the first place; all of the functions in the latter category
are internal (S_ prefix and s or i in embed.fnc), so
this should be both safe and economical.
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -700,6 +700,7 @@ int Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg) { PERL_ARGS_ASSERT_MAGIC_REGDATUM_SET; + PERL_UNUSED_CONTEXT; PERL_UNUSED_ARG(sv); PERL_UNUSED_ARG(mg); Perl_croak_no_modify(); @@ -1433,6 +1434,7 @@ Perl_csighandler_init(void) static void unblock_sigmask(pTHX_ void* newset) { + PERL_UNUSED_CONTEXT; sigprocmask(SIG_UNBLOCK, (sigset_t*)newset, NULL); } #endif @@ -2066,6 +2068,7 @@ Perl_magic_cleararylen_p(pTHX_ SV *sv, MAGIC *mg) PERL_ARGS_ASSERT_MAGIC_CLEARARYLEN_P; PERL_UNUSED_ARG(sv); + PERL_UNUSED_CONTEXT; /* Reset the iterator when the array is cleared */ #if IVSIZE == I32SIZE |