From: BT Templeton <bpt@hcoop.net>
Date: Fri, 29 Jun 2012 20:08:48 +0000 (-0400)
Subject: remove chain field from Lisp_Float struct
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/cb42294caa1c21842d55c2d287296766705a4df9?ds=sidebyside

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 e93a297c43..2dc21b8bfa 100644
--- 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;
 }
 
 
diff --git a/src/lisp.h b/src/lisp.h
index f4d9670d6f..9e1bb70ef2 100644
--- 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