diff options
-rw-r--r-- | libguile/gc.c | 39 | ||||
-rw-r--r-- | libguile/gc.h | 1 |
2 files changed, 0 insertions, 40 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, (), diff --git a/libguile/gc.h b/libguile/gc.h index 085778118..61fc9a2d5 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -150,7 +150,6 @@ SCM_API SCM scm_gc_enable (void); SCM_API SCM scm_gc_disable (void); SCM_API SCM scm_gc_dump (void); SCM_API SCM scm_gc_stats (void); -SCM_API SCM scm_gc_live_object_stats (void); SCM_API SCM scm_gc (void); SCM_INTERNAL void scm_i_gc (const char *what); SCM_API void scm_gc_mark (SCM p); |