Mercurial > emacs
changeset 8940:18b0314420d5
(make_float, make_pure_float): Fix Lisp_Object vs. int problems.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 20 Sep 1994 04:47:17 +0000 |
| parents | 706a926df1d5 |
| children | 71762e6d69e0 |
| files | src/alloc.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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; }