Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 19dcec799385
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
1268 Lisp_Object val; 1268 Lisp_Object val;
1269 struct Lisp_Float *f; 1269 struct Lisp_Float *f;
1270 1270
1271 ALLOCATE_FIXED_TYPE (float, struct Lisp_Float, f); 1271 ALLOCATE_FIXED_TYPE (float, struct Lisp_Float, f);
1272 set_lheader_implementation (&(f->lheader), lrecord_float); 1272 set_lheader_implementation (&(f->lheader), lrecord_float);
1273 float_next (f) = ((struct Lisp_Float *) -1);
1274 float_data (f) = float_value; 1273 float_data (f) = float_value;
1275 XSETFLOAT (val, f); 1274 XSETFLOAT (val, f);
1276 return val; 1275 return val;
1277 } 1276 }
1278 1277
2746 f->lheader.pure = 1; 2745 f->lheader.pure = 1;
2747 #endif 2746 #endif
2748 pure_bytes_used += sizeof (struct Lisp_Float); 2747 pure_bytes_used += sizeof (struct Lisp_Float);
2749 bump_purestat (&purestat_float, sizeof (struct Lisp_Float)); 2748 bump_purestat (&purestat_float, sizeof (struct Lisp_Float));
2750 2749
2751 float_next (f) = ((struct Lisp_Float *) -1);
2752 float_data (f) = num; 2750 float_data (f) = num;
2753 XSETFLOAT (val, f); 2751 XSETFLOAT (val, f);
2754 return val; 2752 return val;
2755 } 2753 }
2756 2754