mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a bunch of PERL_UNUSED_ARG calls

Browse Source 
These should silence warnings on MingW.
This commit is contained in:
Karl Williamson 2025-11-02 11:07:36 -07:00 committed by Karl Williamson
parent 10eed7f59c
commit e21783e092
5 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
mg.c
View File

@ -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);

4
perl.c
View File

@ -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

1
pp_sys.c
View File

@ -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

1
util.c
View File

@ -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++;
}

7
win32/win32sck.c
View File

@ -780,6 +780,7 @@ win32_getnetent(void)
struct netent *
win32_getnetbyname(char *name)
{
PERL_UNUSED_ARG(name);
win32_croak_not_implemented("getnetbyname");
return (struct netent *)NULL;
}
@ -787,6 +788,8 @@ win32_getnetbyname(char *name)
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,6 +811,7 @@ win32_getservent(void)
void
win32_sethostent(int stayopen)
{
PERL_UNUSED_ARG(stayopen);
win32_croak_not_implemented("sethostent");
}
@ -815,6 +819,7 @@ win32_sethostent(int stayopen)
void
win32_setnetent(int stayopen)
{
PERL_UNUSED_ARG(stayopen);
win32_croak_not_implemented("setnetent");
}
@ -822,6 +827,7 @@ win32_setnetent(int stayopen)
void
win32_setprotoent(int stayopen)
{
PERL_UNUSED_ARG(stayopen);
win32_croak_not_implemented("setprotoent");
}
@ -829,6 +835,7 @@ win32_setprotoent(int stayopen)
void
win32_setservent(int stayopen)
{
PERL_UNUSED_ARG(stayopen);
win32_croak_not_implemented("setservent");
}