* lisp.h (XFLOAT_DATA): Produce an rvalue by adding 0 to the value.

(XFLOAT_INIT): New macro for storing a float value.
* alloc.c (make_float, make_pure_float): Use XFLOAT_INIT.
* fns.c (sxhash): Copy out the value of a float in order to examine its bytes.
* dbusbind.c (xd_append_arg): Likewise.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/fns.c b/src/fns.c
index 61abf32138d..562d493b59c 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4604,8 +4604,9 @@ sxhash (obj, depth)
 
     case Lisp_Float:
       {
-        unsigned char *p = (unsigned char *) &XFLOAT_DATA (obj);
-        unsigned char *e = p + sizeof XFLOAT_DATA (obj);
+        double val = XFLOAT_DATA (obj);
+        unsigned char *p = (unsigned char *) &val;
+        unsigned char *e = p + sizeof val;
         for (hash = 0; p < e; ++p)
           hash = SXHASH_COMBINE (hash, *p);
         break;