Skip to content

Commit

Permalink
numeric.c: White-space only
Browse files Browse the repository at this point in the history
Properly indent some nested preprocessor directives in my_atof2()
  • Loading branch information
khwilliamson committed Jul 25, 2021
1 parent 93579e6 commit 58af924
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions numeric.c
Expand Up @@ -1731,17 +1731,17 @@ Perl_my_atof3(pTHX_ const char* orig, NV* value, const STRLEN len)
* both the first and last digit, since neither can hold all values from
* 0..9; but for calculating the value we must examine those two digits.
*/
#ifdef MAX_SIG_DIG_PLUS
# ifdef MAX_SIG_DIG_PLUS
/* It is not necessarily the case that adding 2 to NV_DIG gets all the
possible digits in a NV, especially if NVs are not IEEE compliant
(e.g., long doubles on IRIX) - Allen <allens@cpan.org> */
# define MAX_SIG_DIGITS (NV_DIG+MAX_SIG_DIG_PLUS)
#else
# define MAX_SIG_DIGITS (NV_DIG+2)
#endif
# define MAX_SIG_DIGITS (NV_DIG+MAX_SIG_DIG_PLUS)
# else
# define MAX_SIG_DIGITS (NV_DIG+2)
# endif

/* the max number we can accumulate in a UV, and still safely do 10*N+9 */
#define MAX_ACCUMULATE ( (UV) ((UV_MAX - 9)/10))
# define MAX_ACCUMULATE ( (UV) ((UV_MAX - 9)/10))

/* we accumulate digits into an integer; when this becomes too
* large, we add the total to NV and start again */
Expand Down Expand Up @@ -1850,7 +1850,7 @@ Perl_my_atof3(pTHX_ const char* orig, NV* value, const STRLEN len)
or it's long double/quadmath equivalent) and disabled USE_PERL_ATOF, thus
removing any way for perl to convert strings to floating point numbers.
*/
# error No mechanism to convert strings to numbers available
# error No mechanism to convert strings to numbers available
#endif
}

Expand Down

0 comments on commit 58af924

Please sign in to comment.