Mercurial > hg > xemacs-beta
comparison src/dumper.c @ 5059:c8f90d61dcf3
fix memory usage stats to include pdumped objects
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-02-21 Ben Wing <ben@xemacs.org>
* diagnose.el:
* diagnose.el (show-object-memory-usage-stats):
Fix errors preventing this from working properly, account for
words like "entry" pluralized to "entries".
src/ChangeLog addition:
2010-02-21 Ben Wing <ben@xemacs.org>
* alloc.c:
* alloc.c (FREE_FIXED_TYPE_WHEN_NOT_IN_GC):
* alloc.c (struct):
* alloc.c (tick_lrecord_stats):
* alloc.c (tick_lcrecord_stats):
* alloc.c (sweep_lcrecords_1):
* alloc.c (COUNT_FROB_BLOCK_USAGE):
* alloc.c (SWEEP_FIXED_TYPE_BLOCK_1):
* alloc.c (free_cons):
* alloc.c (free_key_data):
* alloc.c (free_button_data):
* alloc.c (free_motion_data):
* alloc.c (free_process_data):
* alloc.c (free_timeout_data):
* alloc.c (free_magic_data):
* alloc.c (free_magic_eval_data):
* alloc.c (free_eval_data):
* alloc.c (free_misc_user_data):
* alloc.c (free_marker):
* alloc.c (gc_sweep_1):
* alloc.c (HACK_O_MATIC):
* alloc.c (FROB):
* alloc.c (object_memory_usage_stats):
* alloc.c (Fgarbage_collect):
* dumper.c:
* dumper.c (pdump_objects_unmark):
* lrecord.h:
* lrecord.h (enum lrecord_alloc_status):
Fixes to memory-usage-tracking code, etc.
(1) Incorporate NEW_GC stuff into FREE_FIXED_TYPE_WHEN_NOT_IN_GC
to avoid duplication.
(2) Rewrite tick_lcrecord_stats() to include separate
tick_lrecord_stats(); use in dumper.c to note pdumped objects.
(3) Instead of handling frob-block objects specially in
object_memory_usage_stats(), have SWEEP_FIXED_TYPE_BLOCK_1
increment the stats in lrecord_stats[] so that they get handled
like other objects.
(4) Pluralize entry as entries, etc.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Sun, 21 Feb 2010 15:29:12 -0600 |
parents | 16112448d484 |
children | 6c6d78781d59 |
comparison
equal
deleted
inserted
replaced
5058:eb17f0c176ac | 5059:c8f90d61dcf3 |
---|---|
1 /* Portable data dumper for XEmacs. | 1 /* Portable data dumper for XEmacs. |
2 Copyright (C) 1999-2000,2004 Olivier Galibert | 2 Copyright (C) 1999-2000,2004 Olivier Galibert |
3 Copyright (C) 2001 Martin Buchholz | 3 Copyright (C) 2001 Martin Buchholz |
4 Copyright (C) 2001, 2002, 2003, 2004, 2005 Ben Wing. | 4 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2010 Ben Wing. |
5 | 5 |
6 This file is part of XEmacs. | 6 This file is part of XEmacs. |
7 | 7 |
8 XEmacs is free software; you can redistribute it and/or modify it | 8 XEmacs is free software; you can redistribute it and/or modify it |
9 under the terms of the GNU General Public License as published by the | 9 under the terms of the GNU General Public License as published by the |
251 if (rt->desc) | 251 if (rt->desc) |
252 { | 252 { |
253 for (i=0; i<rt->count; i++) | 253 for (i=0; i<rt->count; i++) |
254 { | 254 { |
255 struct lrecord_header *lh = * (struct lrecord_header **) p; | 255 struct lrecord_header *lh = * (struct lrecord_header **) p; |
256 #ifdef ALLOC_TYPE_STATS | |
257 if (C_READONLY_RECORD_HEADER_P (lh)) | |
258 tick_lrecord_stats (lh, ALLOC_IN_USE); | |
259 | |
260 else | |
261 { | |
262 tick_lrecord_stats (lh, MARKED_RECORD_HEADER_P (lh) ? | |
263 ALLOC_IN_USE : ALLOC_ON_FREE_LIST); | |
264 UNMARK_RECORD_HEADER (lh); | |
265 } | |
266 #else /* not ALLOC_TYPE_STATS */ | |
256 if (! C_READONLY_RECORD_HEADER_P (lh)) | 267 if (! C_READONLY_RECORD_HEADER_P (lh)) |
257 UNMARK_RECORD_HEADER (lh); | 268 UNMARK_RECORD_HEADER (lh); |
269 #endif /* (not) ALLOC_TYPE_STATS */ | |
258 p += sizeof (EMACS_INT); | 270 p += sizeof (EMACS_INT); |
259 } | 271 } |
260 } else | 272 } else |
261 break; | 273 break; |
262 } | 274 } |