This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add NV_IMPLICIT_BIT define.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 Jan 2015 02:00:59 +0000 (21:00 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 2 Feb 2015 22:02:55 +0000 (17:02 -0500)
perl.h

diff --git a/perl.h b/perl.h
index 29086d8..13bb7ff 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6430,6 +6430,10 @@ extern void moncontrol(int);
 #  define DOUBLE_MIX_ENDIAN
 #endif
 
+/* All the basic IEEE formats have the implicit bit,
+ * except for the 80-bit extended formats, which will undef this. */
+#define NV_IMPLICIT_BIT
+
 #ifdef LONG_DOUBLEKIND
 
 #  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN || \
@@ -6447,6 +6451,9 @@ extern void moncontrol(int);
 #  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN || \
       LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
 #    define LONGDOUBLE_X86_80_BIT
+#    ifdef USE_LONG_DOUBLE
+#      undef NV_IMPLICIT_BIT
+#    endif
 #  endif
 
 #  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LITTLE_ENDIAN || \