This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #128763] Fix POSIX.xs longdbl assertion
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Jul 2016 16:55:07 +0000 (09:55 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 28 Jul 2016 16:55:25 +0000 (09:55 -0700)
ext/POSIX/POSIX.xs

index 3820026..a950af3 100644 (file)
@@ -1153,7 +1153,7 @@ static NV my_trunc(NV x)
 #  define NV_PAYLOAD_TYPE NV
 #endif
 
-#ifdef LONGDOUBLE_DOUBLEDOUBLE
+#if defined(USE_LONG_DOUBLE) && defined(LONGDOUBLE_DOUBLEDOUBLE)
 #  define NV_PAYLOAD_SIZEOF_ASSERT(a) assert(sizeof(a) == NVSIZE / 2)
 #else
 #  define NV_PAYLOAD_SIZEOF_ASSERT(a) assert(sizeof(a) == NVSIZE)