From 7f9ec18a1fdd1b29a87e407d330461fa13de47b5 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 23 Oct 2008 17:46:08 +0200 Subject: Expose `GC_dump ()' at the Scheme level. * libguile/gc.h (scm_gc_dump): New declaration. * libguile/gc.c (scm_gc_dump): New function. --- libguile/gc.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'libguile/gc.c') diff --git a/libguile/gc.c b/libguile/gc.c index 7bf0987b9..bb39efd91 100644 --- 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), -- cgit v1.2.3