diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-22 04:41:00 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 08:39:44 +0000 |
| commit | 1b6737cc10a847650f574c35f419cbd680a5a5ef (patch) | |
| tree | b96d16d5faf3db00f9c9488a814c8a8d6a217387 /perlio.c | |
| parent | 89e33a0587050e7ef2e88ba45c87444d8506f821 (diff) | |
| download | perl-1b6737cc10a847650f574c35f419cbd680a5a5ef.tar.gz | |
Const Boy II: The Localizing
Message-ID: <20050622144059.GA19598@petdance.com>
p4raw-id: //depot/perl@24945
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -650,6 +650,9 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param) f++; } } +#else + PERL_UNUSED_ARG(proto); + PERL_UNUSED_ARG(param); #endif } @@ -2178,6 +2181,7 @@ PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param) return newSVsv(arg); } #else + PERL_UNUSED_ARG(param); return newSVsv(arg); #endif } @@ -2185,7 +2189,7 @@ PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param) PerlIO * PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags) { - PerlIO *nexto = PerlIONext(o); + PerlIO * const nexto = PerlIONext(o); if (PerlIOValid(nexto)) { const PerlIO_funcs * const tab = PerlIOBase(nexto)->tab; if (tab && tab->Dup) @@ -2545,6 +2549,7 @@ PerlIOUnix_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) } PERL_ASYNC_CHECK(); } + /*NOTREACHED*/ } Off_t |