diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-15 05:51:15 -0500 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-15 16:30:05 +0000 |
| commit | aec46f14fac1bc74bf8ad4054a6f9674b324f8d2 (patch) | |
| tree | a721e80508692d28218dc799de854ad1efec3aa0 /utf8.c | |
| parent | 73beb80caec743f7a0628a7df6def488c00ea59a (diff) | |
| download | perl-aec46f14fac1bc74bf8ad4054a6f9674b324f8d2.tar.gz | |
more embed cleanup
Message-ID: <20050715155115.GC29983@petdance.com>
(and run regen.pl)
p4raw-id: //depot/perl@25156
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1456,7 +1456,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; STRLEN len = 0; - const UV uv0 = utf8_to_uvchr(p, 0); + const UV uv0 = utf8_to_uvchr(p, NULL); /* The NATIVE_TO_UNI() and UNI_TO_NATIVE() mappings * are necessary in EBCDIC, they are redundant no-ops * in ASCII-ish platforms, and hopefully optimized away. */ @@ -1629,7 +1629,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits dSP; const size_t pkg_len = strlen(pkg); const size_t name_len = strlen(name); - HV *stash = gv_stashpvn(pkg, pkg_len, FALSE); + HV * const stash = gv_stashpvn(pkg, pkg_len, FALSE); SV* errsv_save; PUSHSTACKi(PERLSI_MAGIC); @@ -1674,7 +1674,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits POPSTACK; if (IN_PERL_COMPILETIME) { STRLEN len; - const char* pv = SvPV_const(tokenbufsv, len); + const char* const pv = SvPV_const(tokenbufsv, len); Copy(pv, PL_tokenbuf, len+1, char); PL_curcop->op_private = (U8)(PL_hints & HINT_PRIVATE_MASK); @@ -1698,7 +1698,7 @@ UV Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8) { dVAR; - HV* hv = (HV*)SvRV(sv); + HV* const hv = (HV*)SvRV(sv); U32 klen; U32 off; STRLEN slen; @@ -1763,7 +1763,7 @@ Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8) /* We use utf8n_to_uvuni() as we want an index into Unicode tables, not a native character number. */ - UV code_point = utf8n_to_uvuni(ptr, UTF8_MAXBYTES, 0, + const UV code_point = utf8n_to_uvuni(ptr, UTF8_MAXBYTES, 0, ckWARN(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY); SV *errsv_save; @@ -1878,7 +1878,7 @@ Allows length and flags to be passed to low level routine. UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) { - UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags); + const UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags); return UNI_TO_NATIVE(uv); } |