io/sem.t: eliminate warnings

[perl5.git] / numeric.c

diff --git a/numeric.c b/numeric.c
index a476881..52c4547 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -16,9 +16,6 @@
  */
 
 /*
  */
 
 /*

-=for apidoc_section Numeric Functions
-
-=cut

 
 This file contains all the stuff needed by perl for manipulating numeric
 values, including such things as replacements for the OS's atof() function
 
 This file contains all the stuff needed by perl for manipulating numeric
 values, including such things as replacements for the OS's atof() function


@@ -1467,7 +1464,18 @@ S_mulexp10(NV value, I32 exponent)
 NV
 Perl_my_atof(pTHX_ const char* s)
 {
 NV
 Perl_my_atof(pTHX_ const char* s)
 {

-    /* 's' must be NUL terminated */
+
+/*
+=for apidoc my_atof
+
+L<C<atof>(3)>, but properly works with Perl locale handling, accepting a dot
+radix character always, but also the current locale's radix character if and
+only if called from within the lexical scope of a Perl C<use locale> statement.
+
+N.B. C<s> must be NUL terminated.
+
+=cut
+*/

 
     NV x = 0.0;
 
 
     NV x = 0.0;
 


@@ -1832,9 +1840,15 @@ Perl_my_atof3(pTHX_ const char* orig, NV* value, const STRLEN len)
     /* now apply the sign */
     if (negative)
        result[2] = -result[2];
     /* now apply the sign */
     if (negative)
        result[2] = -result[2];

-#endif /* USE_PERL_ATOF */

     *value = result[2];
     return (char *)s;
     *value = result[2];
     return (char *)s;

+#else  /* USE_PERL_ATOF */
+    /* If you see this error you both don't have strtod (or configured -Ud_strtod or
+       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
+#endif

 }
 
 /*
 }
 
 /*