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

1 files changed, 2 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 965a1e97795..32152fa85b0 100644
--- 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;
 }