This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
With this we are g++ -Wunused-* clean.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 18 Jun 2014 12:52:17 +0000 (08:52 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 18 Jun 2014 18:14:27 +0000 (14:14 -0400)
mg.c

diff --git a/mg.c b/mg.c
index bd09ff6..3a0f18b 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1363,6 +1363,12 @@ Perl_csighandler(int sig)
 #else
     dTHX;
 #endif
+#if defined(__cplusplus) && defined(__GNUC__)
+    /* g++ doesn't support PERL_UNUSED_DECL, so the sip and uap
+     * parameters would be warned about. */
+    PERL_UNUSED_ARG(sip);
+    PERL_UNUSED_ARG(uap);
+#endif
 #ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
     (void) rsignal(sig, PL_csighandlerp);
     if (PL_sig_ignoring[sig]) return;