Mercurial > hg > xemacs-beta
diff src/alloc.c @ 5163:57f4dcb14ad5
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 |
line wrap: on
line diff
--- a/src/alloc.c Sun Mar 21 13:20:35 2010 +0000 +++ b/src/alloc.c Sun Mar 21 13:25:21 2010 +0000 @@ -3649,7 +3649,7 @@ enum lrecord_alloc_status status) { int type_index = h->type; - Bytecount obj = wrap_pointer_1 (h); + Lisp_Object obj = wrap_pointer_1 (h); Bytecount sz = lisp_object_size (obj); Bytecount sz_with_overhead = lisp_object_storage_size (obj, NULL); Bytecount overhead = sz_with_overhead - sz;