# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780036437 0
# Node ID 18b0314420d5a3407e40f197c1168f422d450827
# Parent  706a926df1d59972ded7f47df2510e54c5e61770
(make_float, make_pure_float): Fix Lisp_Object vs. int problems.

diff -r 706a926df1d5 -r 18b0314420d5 src/alloc.c
--- a/src/alloc.c	Tue Sep 20 04:44:01 1994 +0000
+++ b/src/alloc.c	Tue Sep 20 04:47:17 1994 +0000
@@ -463,7 +463,7 @@
       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 @@
   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;
 }