Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 5163:57f4dcb14ad5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't assume a Lisp_Object will fit in a Bytecount, src/alloc.c 2010-03-21 Aidan Kehoe <kehoea@parhasard.net> * alloc.c (tick_lrecord_stats): Fix the union build after Ben's last change, don't assume that a Lisp_Object will fit into a Bytecount.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 21 Mar 2010 13:25:21 +0000
parents ab9ee10a53e4
children be6e5ea38dda
comparison
equal deleted inserted replaced
5162:41262f87eb39 5163:57f4dcb14ad5
3647 void 3647 void
3648 tick_lrecord_stats (const struct lrecord_header *h, 3648 tick_lrecord_stats (const struct lrecord_header *h,
3649 enum lrecord_alloc_status status) 3649 enum lrecord_alloc_status status)
3650 { 3650 {
3651 int type_index = h->type; 3651 int type_index = h->type;
3652 Bytecount obj = wrap_pointer_1 (h); 3652 Lisp_Object obj = wrap_pointer_1 (h);
3653 Bytecount sz = lisp_object_size (obj); 3653 Bytecount sz = lisp_object_size (obj);
3654 Bytecount sz_with_overhead = lisp_object_storage_size (obj, NULL); 3654 Bytecount sz_with_overhead = lisp_object_storage_size (obj, NULL);
3655 Bytecount overhead = sz_with_overhead - sz; 3655 Bytecount overhead = sz_with_overhead - sz;
3656 3656
3657 switch (status) 3657 switch (status)