Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 5202:1c615eb1e4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
disable specifier memory usage for the moment -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-04-12 Ben Wing <ben@xemacs.org> * specifier.c (specifier_memory_usage): Disable specifier memory-usage stats for now. Sometimes they can end up with circularities in them and I'm not sure exactly whats going on to produce them.
author Ben Wing <ben@xemacs.org>
date Mon, 12 Apr 2010 01:41:38 -0500
parents bc3ede8f29a8
children d185fa593d5f 308d34e9f07d
comparison
equal deleted inserted replaced
5201:11ed8768ac4f 5202:1c615eb1e4b2
3735 Bytecount global, device, frame, window, buffer, fallback; 3735 Bytecount global, device, frame, window, buffer, fallback;
3736 Bytecount magic_parent; 3736 Bytecount magic_parent;
3737 }; 3737 };
3738 3738
3739 static void 3739 static void
3740 specifier_memory_usage (Lisp_Object specifier, 3740 specifier_memory_usage (Lisp_Object UNUSED (specifier),
3741 struct generic_usage_stats *gustats) 3741 struct generic_usage_stats * UNUSED (gustats))
3742 { 3742 {
3743 #if 0
3743 struct specifier_stats *stats = (struct specifier_stats *) gustats; 3744 struct specifier_stats *stats = (struct specifier_stats *) gustats;
3744 Lisp_Specifier *spec = XSPECIFIER (specifier); 3745 Lisp_Specifier *spec = XSPECIFIER (specifier);
3745 3746
3747 /* #### FIXME -- sometimes it appears that the specs, or at least global
3748 specs, can have circularities in the tree structure. This makes
3749 everything much slower and in fact can result in a hang with 100% CPU.
3750 Need to investigate properly and figure out what's going on here,
3751 since the specs are copied when stored in and so supposedly, circular
3752 structures shouldn't exist. */
3746 stats->global = tree_memory_usage (spec->global_specs, 1); 3753 stats->global = tree_memory_usage (spec->global_specs, 1);
3747 stats->device = tree_memory_usage (spec->device_specs, 1); 3754 stats->device = tree_memory_usage (spec->device_specs, 1);
3748 stats->frame = tree_memory_usage (spec->frame_specs, 1); 3755 stats->frame = tree_memory_usage (spec->frame_specs, 1);
3749 stats->window = tree_memory_usage (spec->window_specs, 1); 3756 stats->window = tree_memory_usage (spec->window_specs, 1);
3750 stats->buffer = tree_memory_usage (spec->buffer_specs, 1); 3757 stats->buffer = tree_memory_usage (spec->buffer_specs, 1);
3751 stats->fallback = tree_memory_usage (spec->fallback, 1); 3758 stats->fallback = tree_memory_usage (spec->fallback, 1);
3752 if (SPECIFIERP (spec->magic_parent)) 3759 if (SPECIFIERP (spec->magic_parent))
3753 stats->magic_parent = lisp_object_memory_usage (spec->magic_parent); 3760 stats->magic_parent = lisp_object_memory_usage (spec->magic_parent);
3761 #endif
3754 } 3762 }
3755 3763
3756 #endif /* MEMORY_USAGE_STATS */ 3764 #endif /* MEMORY_USAGE_STATS */
3757 3765
3758 /************************************************************************/ 3766 /************************************************************************/