summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSawyer X <xsawyerx@cpan.org>2017-05-30 11:58:06 +0200
committerSawyer X <xsawyerx@cpan.org>2017-05-30 11:58:12 +0200
commit2749d0395cc1e21d69af38cde41490699fc6e3ab (patch)
tree89c05b28685f3fcb8bff5ad865859210311d13c5
parente77299d3416e7e737523afdc0642734205e46d59 (diff)
downloadperl-2749d0395cc1e21d69af38cde41490699fc6e3ab.tar.gz
Revert "Fallbacks for Perl_fp_class_denorm()."
This reverts commit e77299d3416e7e737523afdc0642734205e46d59. This was reverted due to a major freeze. It was merged into the blead-next branch and will appear in 5.26.1.
-rw-r--r--perl.h20
1 files changed, 0 insertions, 20 deletions
diff --git a/perl.h b/perl.h
index 8c4d776791..70e12bd722 100644
--- a/perl.h
+++ b/perl.h
@@ -6867,26 +6867,6 @@ extern void moncontrol(int);
# endif
#endif
-/* We have somehow managed not to define the denormal/subnormal
- * detection.
- *
- * This may happen if the compiler doesn't expose the C99 math like
- * the fpclassify() without some special switches. Perl tries to
- * stay C89, so for example -std=c99 is not an option.
- *
- * The Perl_isinf() and Perl_isnan() should have been defined even if
- * the C99 isinf() and isnan() are unavailable, and the NV_MIN becomes
- * from the C89 DBL_MIN or moral equivalent. */
-#if !defined(Perl_fp_class_denorm) && defined(Perl_isinf) && defined(Perl_isnan) && defined(NV_MIN)
-# define Perl_fp_class_denorm(x) ((x) != 0.0 && !Perl_isinf(x) && !Perl_isnan(x) && PERL_ABS(x) < NV_MIN)
-#endif
-
-/* This is not a great fallback: subnormals tests will fail,
- * but at least Perl will link and 99.999% of tests will work. */
-#if !defined(Perl_fp_class_denorm)
-# define Perl_fp_class_denorm(x) FALSE
-#endif
-
#ifdef DOUBLE_IS_IEEE_FORMAT
# define DOUBLE_HAS_INF
# define DOUBLE_HAS_NAN