Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
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);
1274 float_data (f) = float_value; 1275 float_data (f) = float_value;
1275 XSETFLOAT (val, f); 1276 XSETFLOAT (val, f);
1276 return val; 1277 return val;
1277 } 1278 }
1278 1279
2746 f->lheader.pure = 1; 2747 f->lheader.pure = 1;
2747 #endif 2748 #endif
2748 pure_bytes_used += sizeof (struct Lisp_Float); 2749 pure_bytes_used += sizeof (struct Lisp_Float);
2749 bump_purestat (&purestat_float, sizeof (struct Lisp_Float)); 2750 bump_purestat (&purestat_float, sizeof (struct Lisp_Float));
2750 2751
2752 float_next (f) = ((struct Lisp_Float *) -1);
2751 float_data (f) = num; 2753 float_data (f) = num;
2752 XSETFLOAT (val, f); 2754 XSETFLOAT (val, f);
2753 return val; 2755 return val;
2754 } 2756 }
2755 2757