Expose `GC_dump ()' at the Scheme level.

* libguile/gc.h (scm_gc_dump): New declaration.

* libguile/gc.c (scm_gc_dump): New function.

diff --git a/libguile/gc.c b/libguile/gc.c
index 7bf0987..bb39efd 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -346,6 +346,18 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
 #undef FUNC_NAME
 
 
+SCM_DEFINE (scm_gc_dump, "gc-dump", 0, 0, 0,
+           (void),
+           "Dump information about the garbage collector's internal data "
+           "structures and memory usage to the standard output.")
+#define FUNC_NAME s_scm_gc_dump
+{
+  GC_dump ();
+
+  return SCM_UNSPECIFIED;
+}
+#undef FUNC_NAME
+
 
 SCM_DEFINE (scm_object_address, "object-address", 1, 0, 0,
             (SCM obj),

diff --git a/libguile/gc.h b/libguile/gc.h
index 6b3d6a2..4692a49 100644 (file)
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -204,6 +204,7 @@ SCM_API SCM scm_set_debug_cell_accesses_x (SCM flag);
 SCM_API SCM scm_object_address (SCM obj);
 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);