comparison src/alloc.c @ 5172:be6e5ea38dda

merge
author Ben Wing <ben@xemacs.org>
date Mon, 29 Mar 2010 00:11:03 -0500
parents 5ddbab03b0e6 57f4dcb14ad5
children 14fda1dbdb26
comparison
equal deleted inserted replaced
5171:8cd17b2131a1 5172:be6e5ea38dda
3808 void 3808 void
3809 tick_lrecord_stats (const struct lrecord_header *h, 3809 tick_lrecord_stats (const struct lrecord_header *h,
3810 enum lrecord_alloc_status status) 3810 enum lrecord_alloc_status status)
3811 { 3811 {
3812 int type_index = h->type; 3812 int type_index = h->type;
3813 Bytecount obj = wrap_pointer_1 (h); 3813 Lisp_Object obj = wrap_pointer_1 (h);
3814 Bytecount sz = lisp_object_size (obj); 3814 Bytecount sz = lisp_object_size (obj);
3815 Bytecount sz_with_overhead = lisp_object_storage_size (obj, NULL); 3815 Bytecount sz_with_overhead = lisp_object_storage_size (obj, NULL);
3816 Bytecount overhead = sz_with_overhead - sz; 3816 Bytecount overhead = sz_with_overhead - sz;
3817 3817
3818 switch (status) 3818 switch (status)