Mercurial > hg > xemacs-beta

diff src/alloc.c @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children e11d67e05968
line wrap: on
line diff
--- a/src/alloc.c	Mon Aug 13 10:32:23 2007 +0200
+++ b/src/alloc.c	Mon Aug 13 10:33:18 2007 +0200
@@ -1271,6 +1271,7 @@
 
   ALLOCATE_FIXED_TYPE (float, struct Lisp_Float, f);
   set_lheader_implementation (&(f->lheader), lrecord_float);
+  float_next (f) = ((struct Lisp_Float *) -1);
   float_data (f) = float_value;
   XSETFLOAT (val, f);
   return val;
@@ -2748,6 +2749,7 @@
   pure_bytes_used += sizeof (struct Lisp_Float);
   bump_purestat (&purestat_float, sizeof (struct Lisp_Float));
 
+  float_next (f) = ((struct Lisp_Float *) -1);
   float_data (f) = num;
   XSETFLOAT (val, f);
   return val;