diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-27 08:06:59 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-27 18:26:15 +0000 |
| commit | 9d4ba2ae61ff15b15f3e889810ff89dfb2ed1738 (patch) | |
| tree | 7d9dddf90ece7fcf85fc729c006f4aee3f23ff67 /sv.c | |
| parent | c9797b8fcc214dc5b78e594b627aa6c921e4633a (diff) | |
| download | perl-9d4ba2ae61ff15b15f3e889810ff89dfb2ed1738.tar.gz | |
We're going round in circles with pp_sys.c
Message-ID: <20050627180659.GB29744@petdance.com>
(edited)
p4raw-id: //depot/perl@24997
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -6023,7 +6023,7 @@ Perl_sv_pos_u2b(pTHX_ register SV *sv, I32* offsetp, I32* lenp) STRLEN *cache = 0; const U8 *s = start; I32 uoffset = *offsetp; - const U8 *send = s + len; + const U8 * const send = s + len; MAGIC *mg = 0; bool found = FALSE; @@ -6125,7 +6125,7 @@ Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp) * is made as in S_utf8_mg_pos(), namely that * walking backward is twice slower than * walking forward. */ - STRLEN forw = *offsetp; + const STRLEN forw = *offsetp; STRLEN backw = cache[1] - *offsetp; if (!(forw < 2 * backw)) { @@ -6258,7 +6258,7 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2) if (SvUTF8(sv1)) { /* sv1 is the UTF-8 one, * if is equal it must be downgrade-able */ - char *pv = (char*)bytes_from_utf8((const U8*)pv1, + char * const pv = (char*)bytes_from_utf8((const U8*)pv1, &cur1, &is_utf8); if (pv != pv1) pv1 = tpv = pv; @@ -6266,7 +6266,7 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2) else { /* sv2 is the UTF-8 one, * if is equal it must be downgrade-able */ - char *pv = (char *)bytes_from_utf8((const U8*)pv2, + char * const pv = (char *)bytes_from_utf8((const U8*)pv2, &cur2, &is_utf8); if (pv != pv2) pv2 = tpv = pv; |