(make_float, make_pure_float): Fix Lisp_Object vs. int problems.

diff --git a/src/alloc.c b/src/alloc.c
index 965a1e97795f40a1eb4af89850e3500abdd944d4..32152fa85b03fb4436a155f69167d60ecebd6b8c 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -463,7 +463,7 @@ make_float (float_value)
       XSET (val, Lisp_Float, &float_block->floats[float_block_index++]);
     }
   XFLOAT (val)->data = float_value;
-  XFLOAT (val)->type = 0;      /* bug chasing -wsr */
+  XFASTINT (XFLOAT (val)->type) = 0;   /* bug chasing -wsr */
   consing_since_gc += sizeof (struct Lisp_Float);
   return val;
 }
@@ -1078,7 +1078,7 @@ make_pure_float (num)
   XSET (new, Lisp_Float, PUREBEG + pureptr);
   pureptr += sizeof (struct Lisp_Float);
   XFLOAT (new)->data = num;
-  XFLOAT (new)->type = 0;      /* bug chasing -wsr */
+  XFASTINT (XFLOAT (new)->type) = 0;   /* bug chasing -wsr */
   return new;
 }