diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-28 14:40:58 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-28 14:40:58 +0100 |
commit | d364a8971828e38e8f9112b711066f4962bb400e (patch) | |
tree | 4124b254fe4f557c3558eea7f1a0b75010c0e713 /libguile/gc.c | |
parent | e7bd20f7d9b2110fdc0fa25db5a2bfe6b2214923 (diff) | |
download | guile-d364a8971828e38e8f9112b711066f4962bb400e.tar.gz |
Deprecate gc-live-object-stats
* libguile/gc.h:
* libguile/gc.c:
* libguile/deprecated.h:
* libguile/deprecated.c (scm_gc_live_object_stats): Deprecate; it hasn't
worked in the whole 2.0 series.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 6e459c3f9..01e1ace80 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -267,44 +267,6 @@ SCM_SYMBOL (sym_times, "gc-times"); /* {Scheme Interface to GC} */ -static SCM -tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc) -{ - if (scm_is_integer (key)) - { - int c_tag = scm_to_int (key); - - char const * name = scm_i_tag_name (c_tag); - if (name != NULL) - { - key = scm_from_locale_string (name); - } - else - { - char s[100]; - sprintf (s, "tag %d", c_tag); - key = scm_from_locale_string (s); - } - } - - return scm_cons (scm_cons (key, val), acc); -} - -SCM_DEFINE (scm_gc_live_object_stats, "gc-live-object-stats", 0, 0, 0, - (), - "Return an alist of statistics of the current live objects. ") -#define FUNC_NAME s_scm_gc_live_object_stats -{ - SCM tab = scm_make_hash_table (scm_from_int (57)); - SCM alist; - - alist - = scm_internal_hash_fold (&tag_table_to_type_alist, NULL, SCM_EOL, tab); - - return alist; -} -#undef FUNC_NAME - extern int scm_gc_malloc_yield_percentage; SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0, (), |