diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-16 05:13:53 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-16 16:56:43 +0000 |
| commit | a3b680e6b77dd7f88268fad8b1dbdf4f641dd836 (patch) | |
| tree | 5b6dc5a60baf7a56b2db73bf0faffe0c3c44963c /numeric.c | |
| parent | 02a44301bf4932369de0c75ad20a9c1256a455cd (diff) | |
| download | perl-a3b680e6b77dd7f88268fad8b1dbdf4f641dd836.tar.gz | |
consting-eleventy.patch: More consts, plus actual bug fix
Message-ID: <20050516151353.GA25387@petdance.com>
p4raw-id: //depot/perl@24489
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -270,7 +270,6 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) { const UV max_div_16 = UV_MAX / 16; const bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; bool overflowed = FALSE; - const char *hexdigit; if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) { /* strip off leading x or 0x. @@ -289,7 +288,7 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) { } for (; len-- && *s; s++) { - hexdigit = strchr(PL_hexdigit, *s); + const char *hexdigit = strchr(PL_hexdigit, *s); if (hexdigit) { /* Write it in this wonky order with a goto to attempt to get the compiler to make the common case integer-only loop pretty tight. |