This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
If this format ever happens, it is probably left-aligned.
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Wed, 3 Sep 2014 16:15:47 +0000 (18:15 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Wed, 3 Sep 2014 16:15:47 +0000 (18:15 +0200)
Backport of fc0f129beb8db78ea29e976328efbe5df2f7aaf8
Author: Jarkko Hietaniemi <jhi@iki.fi>  2014-08-22 16:56:10

U/modified/d_longdbl.U

index 323c8db..16c7b13 100644 (file)
@@ -174,8 +174,7 @@ int main() {
     printf("3\n");
     exit(0);
   }
-  if (b[LONGDBLSIZE - 11] == 0x00 && b[LONGDBLSIZE - 10] == 0xBF &&
-      b[LONGDBLSIZE -  1] == 0xCD) {
+  if (b[0] == 0xBF && b[9] == 0xCD && b[10] == 0x00) {
     /* is there ever big-endian 80-bit, really? */
     printf("4\n");
     exit(0);