diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-20 04:47:17 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-20 04:47:17 +0000 |
| commit | 0f02e53b41dcf7e9d0de3f49ca03d363200bb82e (patch) | |
| tree | 7be4b226ac8777af0420b94bb5dcd4f1a4674c51 /src | |
| parent | fae7e1fce9377049f9f3aed204e359a84c29ade3 (diff) | |
| download | emacs-0f02e53b41dcf7e9d0de3f49ca03d363200bb82e.tar.gz | |
(make_float, make_pure_float): Fix Lisp_Object vs. int problems.
Diffstat (limited to 'src')
| -rw-r--r-- | src/alloc.c | 4 |
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; } |