summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-28 16:16:48 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-28 16:16:48 +0100
commitfcd953f6990a813a204beea6992bc4287bb94513 (patch)
treee12e77fa0b58fb688286a2671bcee1ba18b6bf6f /libguile/gc.c
parent5dfafc3c76b70acfdb7d47611478d1f9a737ac18 (diff)
parentd364a8971828e38e8f9112b711066f4962bb400e (diff)
downloadguile-fcd953f6990a813a204beea6992bc4287bb94513.tar.gz
Merge commit 'd364a8971828e38e8f9112b711066f4962bb400e'
Conflicts: libguile/deprecated.h libguile/gc.c
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c39
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,
(),