This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
infnan: NV_MANT_REAL_DIG is unused
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 27 Feb 2015 21:37:57 +0000 (16:37 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 27 Feb 2015 21:40:35 +0000 (16:40 -0500)
(now that the nan payload code is gone)

perl.h

diff --git a/perl.h b/perl.h
index f540e3a..1df9e71 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6482,15 +6482,6 @@ extern void moncontrol(int);
 #  endif
 #endif
 
-/* The implicit bit platforms include the implicit bit
- * in the NV_MANT_DIG.  The bit isn't really there, however,
- * so the real count of mantissa bits is one less. */
-#ifdef NV_IMPLICIT_BIT
-#  define NV_MANT_REAL_DIG (NV_MANT_DIG - 1)
-#else
-#  define NV_MANT_REAL_DIG (NV_MANT_DIG)
-#endif
-
 /*
 
    (KEEP THIS LAST IN perl.h!)