This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sanity x86 long double check.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 5 Aug 2015 03:00:33 +0000 (23:00 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Aug 2015 12:35:20 +0000 (08:35 -0400)
ext/POSIX/POSIX.xs

index 96892d9..801bf4b 100644 (file)
@@ -1229,7 +1229,9 @@ static void S_setpayload(NV* nvp, NV_PAYLOAD_TYPE payload, bool signaling)
   }
 #ifdef USE_LONG_DOUBLE
 # if LONG_DOUBLEKIND == 3 || LONG_DOUBLEKIND == 4
+#  if LONG_DOUBLESIZE > 10
   memset((char *)nvp + 10, '\0', LONG_DOUBLESIZE - 10); /* x86 long double */
+#  endif
 # endif
 #endif
   for (i = 0; i < (int)C_ARRAY_LENGTH(a); i++) {