diff options
| author | Andy Lester <andy@petdance.com> | 2005-10-30 17:44:13 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-31 10:28:32 +0000 |
| commit | c4420975666e665b3282e2edeea3304e6626be36 (patch) | |
| tree | cbbc9f25f78f38d9b5d19ecd3b88bcdef363be6e /numeric.c | |
| parent | f5bd084c2c79901a2aea8ac589384123b5b7276d (diff) | |
| download | perl-c4420975666e665b3282e2edeea3304e6626be36.tar.gz | |
Etta James presents: More consting
Message-ID: <20051031054413.GA10767@petdance.com>
p4raw-id: //depot/perl@25915
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -500,7 +500,7 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send) #ifdef USE_LOCALE_NUMERIC if (PL_numeric_radix_sv && IN_LOCALE) { STRLEN len; - const char* radix = SvPV(PL_numeric_radix_sv, len); + const char * const radix = SvPV(PL_numeric_radix_sv, len); if (*sp + len <= send && memEQ(*sp, radix, len)) { *sp += len; return TRUE; @@ -543,7 +543,7 @@ int Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep) { const char *s = pv; - const char *send = pv + len; + const char * const send = pv + len; const UV max_div_10 = UV_MAX / 10; const char max_mod_10 = UV_MAX % 10; int numtype = 0; @@ -765,7 +765,7 @@ S_mulexp10(NV value, I32 exponent) #if ((defined(VMS) && !defined(__IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP) STMT_START { - NV exp_v = log10(value); + const NV exp_v = log10(value); if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP) return NV_MAX; if (exponent < 0) { |