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;