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

diff --git a/perl.h b/perl.h
index 88b7e0e..9fa001c 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6419,6 +6419,12 @@ extern void moncontrol(int);
 #  define DOUBLE_LITTLE_ENDIAN
 #endif
 
+#if DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#  define DOUBLE_BIG_ENDIAN
+#endif
+
 #ifdef HAS_LONG_DOUBLEKIND
 
 #  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN || \