diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-20 18:27:11 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-24 10:41:53 +0000 |
| commit | 96a5add60f1f39d38341c09c11f0542e68f782b0 (patch) | |
| tree | 13f30a43f69671f51be60eec2b59f84e6d4679ca /toke.c | |
| parent | 1e7f542f0732947deb78e87eb5c42a3ee9fa9418 (diff) | |
| download | perl-96a5add60f1f39d38341c09c11f0542e68f782b0.tar.gz | |
unused context warnings
Message-ID: <20060221062711.GA16160@petdance.com>
p4raw-id: //depot/perl@27300
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1215,7 +1215,7 @@ S_sublex_start(pTHX) if (SvTYPE(sv) == SVt_PVIV) { /* Overloaded constants, nothing fancy: Convert to SVt_PV: */ STRLEN len; - const char *p = SvPV_const(sv, len); + const char * const p = SvPV_const(sv, len); SV * const nsv = newSVpvn(p, len); if (SvUTF8(sv)) SvUTF8_on(nsv); @@ -9552,6 +9552,7 @@ S_scan_ident(pTHX_ register char *s, register const char *send, char *dest, STRL void Perl_pmflag(pTHX_ U32* pmfl, int ch) { + PERL_UNUSED_CONTEXT; if (ch == 'i') *pmfl |= PMf_FOLD; else if (ch == 'g') @@ -10924,7 +10925,7 @@ S_set_csh(pTHX) PL_cshlen = strlen(PL_cshname); #else #if defined(USE_ITHREADS) - PERL_UNUSED_ARG(my_perl); + PERL_UNUSED_CONTEXT; #endif #endif } |