* src/lisp.h (struct Lisp_Float): Remove `chain' field.
(XFLOAT_DATA, XFLOAT_INIT): Update.
static void
XFLOAT_INIT (Lisp_Object f, double n)
{
static void
XFLOAT_INIT (Lisp_Object f, double n)
{
- XFLOAT (f)->u.data = n;
/* Lisp floating point type. */
struct Lisp_Float
{
/* Lisp floating point type. */
struct Lisp_Float
{
- union
- {
- double data;
- struct Lisp_Float *chain;
- } u;
};
INLINE double
XFLOAT_DATA (Lisp_Object f)
{
};
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
}
/* Most hosts nowadays use IEEE floating point, so they use IEC 60559