remove chain field from Lisp_Float struct

* src/lisp.h (struct Lisp_Float): Remove `chain' field.
  (XFLOAT_DATA, XFLOAT_INIT): Update.

diff --git a/src/alloc.c b/src/alloc.c
index e93a297..2dc21b8 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -146,7 +146,7 @@ struct gcpro *gcprolist;
 static void
 XFLOAT_INIT (Lisp_Object f, double n)
 {
-  XFLOAT (f)->u.data = n;
+  XFLOAT (f)->data = n;
 }
 
 \f

diff --git a/src/lisp.h b/src/lisp.h
index f4d9670..9e1bb70 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2249,17 +2249,13 @@ XBUFFER_OBJFWD (union Lisp_Fwd *a)
 /* Lisp floating point type.  */
 struct Lisp_Float
   {
-    union
-    {
-      double data;
-      struct Lisp_Float *chain;
-    } u;
+    double data;
   };
 
 INLINE double
 XFLOAT_DATA (Lisp_Object f)
 {
-  return XFLOAT (f)->u.data;
+  return XFLOAT (f)->data;
 }
 
 /* Most hosts nowadays use IEEE floating point, so they use IEC 60559