File tree Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Original file line number Diff line number Diff line change @@ -6867,26 +6867,6 @@ extern void moncontrol(int);
68676867# endif
68686868#endif
68696869
6870- /* We have somehow managed not to define the denormal/subnormal
6871- * detection.
6872- *
6873- * This may happen if the compiler doesn't expose the C99 math like
6874- * the fpclassify() without some special switches. Perl tries to
6875- * stay C89, so for example -std=c99 is not an option.
6876- *
6877- * The Perl_isinf() and Perl_isnan() should have been defined even if
6878- * the C99 isinf() and isnan() are unavailable, and the NV_MIN becomes
6879- * from the C89 DBL_MIN or moral equivalent. */
6880- #if !defined(Perl_fp_class_denorm) && defined(Perl_isinf) && defined(Perl_isnan) && defined(NV_MIN)
6881- # define Perl_fp_class_denorm (x ) ((x) != 0.0 && !Perl_isinf(x) && !Perl_isnan(x) && PERL_ABS(x) < NV_MIN)
6882- #endif
6883-
6884- /* This is not a great fallback: subnormals tests will fail,
6885- * but at least Perl will link and 99.999% of tests will work. */
6886- #if !defined(Perl_fp_class_denorm)
6887- # define Perl_fp_class_denorm (x ) FALSE
6888- #endif
6889-
68906870#ifdef DOUBLE_IS_IEEE_FORMAT
68916871# define DOUBLE_HAS_INF
68926872# define DOUBLE_HAS_NAN
You can’t perform that action at this time.
0 commit comments