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 }