Mercurial > hg > xemacs-beta
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) |