diff options
| author | Karl Williamson <khw@cpan.org> | 2018-08-08 11:22:09 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-08-09 11:23:15 -0600 |
| commit | 19c1206df85bde60bc9fb5bea2e6c245ceeb9759 (patch) | |
| tree | 1d93e023d5ed808b8a6672a00c815e4dbb6168d1 /numeric.c | |
| parent | b93d1309412c6ce0c1526b177a2a2e845bd4806e (diff) | |
| download | perl-19c1206df85bde60bc9fb5bea2e6c245ceeb9759.tar.gz | |
numeric.c: White-space only
Remove trailing blanks, add a few blank lines
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 21 |
1 files changed, 11 insertions, 10 deletions
@@ -204,7 +204,7 @@ Perl_grok_bin(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) "Illegal binary digit '%c' ignored", *s); break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff @@ -325,7 +325,7 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) "Illegal hexadecimal digit '%c' ignored", *s); break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff @@ -432,7 +432,7 @@ Perl_grok_oct(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) } break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff @@ -1161,11 +1161,11 @@ S_mulexp10(NV value, I32 exponent) /* On OpenVMS VAX we by default use the D_FLOAT double format, * and that format does not have *easy* capabilities [1] for - * overflowing doubles 'silently' as IEEE fp does. We also need - * to support G_FLOAT on both VAX and Alpha, and though the exponent - * range is much larger than D_FLOAT it still doesn't do silent - * overflow. Therefore we need to detect early whether we would - * overflow (this is the behaviour of the native string-to-float + * overflowing doubles 'silently' as IEEE fp does. We also need + * to support G_FLOAT on both VAX and Alpha, and though the exponent + * range is much larger than D_FLOAT it still doesn't do silent + * overflow. Therefore we need to detect early whether we would + * overflow (this is the behaviour of the native string-to-float * conversion routines, and therefore of native applications, too). * * [1] Trying to establish a condition handler to trap floating point @@ -1233,7 +1233,7 @@ S_mulexp10(NV value, I32 exponent) # endif #endif /* Floating point exceptions are supposed to be turned off, - * but if we're obviously done, don't risk another iteration. + * but if we're obviously done, don't risk another iteration. */ if (exponent == 0) break; } @@ -1268,6 +1268,7 @@ Perl_my_atof(pTHX_ const char* s) DECLARATION_FOR_LC_NUMERIC_MANIPULATION; STORE_LC_NUMERIC_SET_TO_NEEDED(); if (PL_numeric_radix_sv && IN_LC(LC_NUMERIC)) { + /* Look through the string for the first thing that looks like a * decimal point: either the value in the current locale or the * standard fallback of '.'. The one which appears earliest in the @@ -1705,7 +1706,7 @@ Perl_my_frexpl(long double x, int *e) { =for apidoc Perl_signbit Return a non-zero integer if the sign bit on an NV is set, and 0 if -it is not. +it is not. If F<Configure> detects this system has a C<signbit()> that will work with our NVs, then we just use it via the C<#define> in F<perl.h>. Otherwise, |