Skip to content

Commit 2749d03

Browse files
committed
Revert "Fallbacks for Perl_fp_class_denorm()."
This reverts commit e77299d. This was reverted due to a major freeze. It was merged into the blead-next branch and will appear in 5.26.1.
1 parent e77299d commit 2749d03

File tree

1 file changed

+0
-20
lines changed

1 file changed

+0
-20
lines changed

perl.h

Lines changed: 0 additions & 20 deletions
Original file line numberDiff line numberDiff 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

0 commit comments

Comments
 (0)