From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 20 Sep 1994 04:47:17 +0000 (+0000)
Subject: (make_float, make_pure_float): Fix Lisp_Object vs. int problems.
X-Git-Tag: emacs-19.34~6914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=beded970ac9427cce7b7c2170c57b71f90d833ab;p=emacs.git

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

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;
 }