diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-28 16:16:48 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-28 16:16:48 +0100 |
commit | fcd953f6990a813a204beea6992bc4287bb94513 (patch) | |
tree | e12e77fa0b58fb688286a2671bcee1ba18b6bf6f /libguile/gc.c | |
parent | 5dfafc3c76b70acfdb7d47611478d1f9a737ac18 (diff) | |
parent | d364a8971828e38e8f9112b711066f4962bb400e (diff) | |
download | guile-fcd953f6990a813a204beea6992bc4287bb94513.tar.gz |
Merge commit 'd364a8971828e38e8f9112b711066f4962bb400e'
Conflicts:
libguile/deprecated.h
libguile/gc.c
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index d13d89b72..4ec57aa4d 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -237,45 +237,6 @@ SCM_SYMBOL (sym_times, "gc-times"); /* {Scheme Interface to GC} */ -static char const * scm_i_tag_name (scm_t_bits tag); -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, (), |