From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 1 Feb 2015 00:02:22 +0000 (-0500)
Subject: Add NV_MANT_REAL_DIG.
X-Git-Tag: v5.21.9~211
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/02e75e52e271c046df890b5089c2cb1953332c0d?ds=sidebyside

Add NV_MANT_REAL_DIG.
---

diff --git a/perl.h b/perl.h
index 13bb7ff..f5c64d4 100644
--- a/perl.h
+++ b/perl.h
@@ -6482,6 +6482,15 @@ 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
+#endif
+
 /*
 
    (KEEP THIS LAST IN perl.h!)