Add a bunch of PERL_UNUSED_ARG calls

These should silence warnings on MingW.

Author: khwilliamson

mg.c

@@ -3803,6 +3803,7 @@ Perl_perly_sighandler(int sig, Siginfo_t *sip PERL_UNUSED_DECL,
             /* Not clear if this will work */
             /* XXX not clear if this should be protected by 'if (safe)'
              * too */
+            PERL_UNUSED_ARG(safe);
 
             (void)rsignal(sig, SIG_IGN);
             (void)rsignal(sig, PL_csighandlerp);

perl.c

@@ -4406,7 +4406,9 @@ S_init_ids(pTHX)
 bool
 Perl_doing_taint(int argc, char *argv[], char *envp[])
 {
-#ifndef PERL_IMPLICIT_SYS
+#ifdef PERL_IMPLICIT_SYS
+    PERL_UNUSED_ARG(envp);
+#else
     /* If we have PERL_IMPLICIT_SYS we can't call getuid() et alia
      * before we have an interpreter-- and the whole point of this
      * function is to be called at such an early stage.  If you are on

pp_sys.c

@@ -5558,6 +5558,7 @@ PP_wrapped(pp_shostent, 1, 0)
 {
     dSP;
     const int stayopen = TOPi;
+    PERL_UNUSED_VAR(stayopen);
     switch(PL_op->op_type) {
     case OP_SHOSTENT:
 #ifdef HAS_SETHOSTENT

util.c

@@ -2940,6 +2940,7 @@ Perl_rsignal(pTHX_ int signo, Sighandler_t handler)
 static Signal_t
 sig_trap(int signo)
 {
+    PERL_UNUSED_ARG(signo);
     PL_sig_trapped++;
 }
 

win32/win32sck.c

@@ -780,13 +780,16 @@ win32_getnetent(void)
 struct netent *
 win32_getnetbyname(char *name) 
 {
+    PERL_UNUSED_ARG(name);
     win32_croak_not_implemented("getnetbyname");
     return (struct netent *)NULL;
 }
 
 struct netent *
 win32_getnetbyaddr(long net, int type) 
 {
+    PERL_UNUSED_ARG(net);
+    PERL_UNUSED_ARG(type);
     win32_croak_not_implemented("getnetbyaddr");
     return (struct netent *)NULL;
 }
@@ -808,27 +811,31 @@ win32_getservent(void)
 void
 win32_sethostent(int stayopen)
 {
+    PERL_UNUSED_ARG(stayopen);
     win32_croak_not_implemented("sethostent");
 }
 
 
 void
 win32_setnetent(int stayopen)
 {
+    PERL_UNUSED_ARG(stayopen);
     win32_croak_not_implemented("setnetent");
 }
 
 
 void
 win32_setprotoent(int stayopen)
 {
+    PERL_UNUSED_ARG(stayopen);
     win32_croak_not_implemented("setprotoent");
 }
 
 
 void
 win32_setservent(int stayopen)
 {
+    PERL_UNUSED_ARG(stayopen);
     win32_croak_not_implemented("setservent");
 }