From f601cdf35d3e76ffc4927ea35e0f82e72b1ba37f Mon Sep 17 00:00:00 2001
From: Ken Raeburn
Date: Mon, 17 Aug 2009 01:25:54 +0000
Subject: * 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.

---
 src/alloc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/alloc.c')

diff --git a/src/alloc.c b/src/alloc.c
index c150157ee05..157d768d69d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2643,7 +2643,7 @@ make_float (float_value)
 
   MALLOC_UNBLOCK_INPUT;
 
-  XFLOAT_DATA (val) = float_value;
+  XFLOAT_INIT (val, float_value);
   eassert (!FLOAT_MARKED_P (XFLOAT (val)));
   consing_since_gc += sizeof (struct Lisp_Float);
   floats_consed++;
@@ -4850,7 +4850,7 @@ make_pure_float (num)
 
   p = (struct Lisp_Float *) pure_alloc (sizeof *p, Lisp_Float);
   XSETFLOAT (new, p);
-  XFLOAT_DATA (new) = num;
+  XFLOAT_INIT (new, num);
   return new;
 }
 
-- 
cgit v1.2.1