}
#endif /* #ifndef USE_QUADMATH */
+#ifdef USE_QUADMATH
+# define ATOF(s, x) my_atof2(s, &x)
+# else
+# define ATOF(s, x) Perl_atof2(s, x)
+# endif
+
NV
Perl_my_atof(pTHX_ const char* s)
{
PERL_ARGS_ASSERT_MY_ATOF;
-#ifdef USE_QUADMATH
+#if ! defined(USE_LOCALE_NUMERIC)
- my_atof2(s, &x);
-
-#elif ! defined(USE_LOCALE_NUMERIC)
-
- Perl_atof2(s, x);
+ ATOF(s, x);
#else
LOCK_LC_NUMERIC_STANDARD();
}
- Perl_atof2(s, x);
+ ATOF(s,x);
if (use_standard_radix) {
UNLOCK_LC_NUMERIC_STANDARD();
SET_NUMERIC_UNDERLYING();
}
}
- else
- Perl_atof2(s, x);
+ else {
+ ATOF(s,x);
+ }
RESTORE_LC_NUMERIC();
}