Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 90d73dddcdc4
children c42ec1d1cded
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
1269 Lisp_Object val; 1269 Lisp_Object val;
1270 struct Lisp_Float *f; 1270 struct Lisp_Float *f;
1271 1271
1272 ALLOCATE_FIXED_TYPE (float, struct Lisp_Float, f); 1272 ALLOCATE_FIXED_TYPE (float, struct Lisp_Float, f);
1273 set_lheader_implementation (&(f->lheader), lrecord_float); 1273 set_lheader_implementation (&(f->lheader), lrecord_float);
1274 float_next (f) = ((struct Lisp_Float *) -1);
1275 float_data (f) = float_value; 1274 float_data (f) = float_value;
1276 XSETFLOAT (val, f); 1275 XSETFLOAT (val, f);
1277 return val; 1276 return val;
1278 } 1277 }
1279 1278
2747 f->lheader.pure = 1; 2746 f->lheader.pure = 1;
2748 #endif 2747 #endif
2749 pure_bytes_used += sizeof (struct Lisp_Float); 2748 pure_bytes_used += sizeof (struct Lisp_Float);
2750 bump_purestat (&purestat_float, sizeof (struct Lisp_Float)); 2749 bump_purestat (&purestat_float, sizeof (struct Lisp_Float));
2751 2750
2752 float_next (f) = ((struct Lisp_Float *) -1);
2753 float_data (f) = num; 2751 float_data (f) = num;
2754 XSETFLOAT (val, f); 2752 XSETFLOAT (val, f);
2755 return val; 2753 return val;
2756 } 2754 }
2757 2755