* autoconf/floatparam.c (double_wordorder_bigendian_p): new symbol.

        * src/float/dfloat/cl_DF.h: Check for double_wordorder_bigendian_p.

diff --git a/autoconf/floatparam.c b/autoconf/floatparam.c
index 83fcbe4e051594ccbc735dd505b447bfefc9ab4f..f62ae6aaa0e1194a7d23bf78abdce18c54e8f7bc 100644 (file)
--- a/autoconf/floatparam.c
+++ b/autoconf/floatparam.c
@@ -87,7 +87,24 @@ check(double,"double","double",equal_double,main_double)
 check(ldouble,"long_double","long double",equal_ldouble,main_ldouble)
 #endif
 
-
+/* Some systems (arm/linux) store doubles as little endian but with higher
+ * and lower word reversed. */
+static void flipped_double (void)
+{
+  typedef struct { unsigned lo, hi; } dfloat;
+  double x = 2;
+  dfloat test = *(dfloat*)&x;
+  if (test.lo==0 && test.hi!=0) {
+    printf("#define double_wordorder_bigendian_p 0\n");
+  } else if (test.lo!=0 && test.hi==0) {
+    printf("#define double_wordorder_bigendian_p 1\n");
+  } else {
+    /* Dazed and confused!  Better not define anything.
+        * Code should rely on CL_CPU_BIG_ENDIAN_P instead. */
+  }
+  printf("\n");
+}
+        
 int main()
 {
   header();
@@ -96,6 +113,7 @@ int main()
 #ifdef HAVE_LONGDOUBLE
   main_ldouble();
 #endif
+  flipped_double();
 
 #if defined(__cplusplus)
   if (ferror(stdout)) return 1;

diff --git a/src/float/dfloat/cl_DF.h b/src/float/dfloat/cl_DF.h
index 2acace703219914ccc160a47bf08662b2dacf4cc..ec81dc1c942c0785ccb628628a8337c8cb5f339b 100644 (file)
--- a/src/float/dfloat/cl_DF.h
+++ b/src/float/dfloat/cl_DF.h
@@ -21,10 +21,18 @@ typedef // 64-bit float in IEEE format
          uint64
        #else
          // Sign/Exponent/MantissaHigh and MantissaLow
-         #if CL_CPU_BIG_ENDIAN_P
-           struct { uint32 semhi, mlo; }
+         #if defined(double_wordorder_bigendian_p)
+           #if double_wordorder_bigendian_p
+             struct { uint32 semhi, mlo; }
+           #else
+             struct { uint32 mlo, semhi; }
+           #endif
          #else
-           struct { uint32 mlo, semhi; }
+           #if CL_CPU_BIG_ENDIAN_P
+             struct { uint32 semhi, mlo; }
+           #else
+             struct { uint32 mlo, semhi; }
+           #endif
          #endif
        #endif
        dfloat;