mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Expose `GC_dump ()' at the Scheme level.

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

* libguile/gc.c (scm_gc_dump): New function.
This commit is contained in:
Ludovic Courtès 2008-10-23 17:46:08 +02:00
parent c38a561f73
commit 7f9ec18a1f
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/gc.c
View file

@ -346,6 +346,18 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
#undef FUNC_NAME #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_DEFINE (scm_object_address, "object-address", 1, 0, 0,
(SCM obj), (SCM obj),

1
libguile/gc.h
View file

@ -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_object_address (SCM obj);
SCM_API SCM scm_gc_enable (void); SCM_API SCM scm_gc_enable (void);
SCM_API SCM scm_gc_disable (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_stats (void);
SCM_API SCM scm_gc_live_object_stats (void); SCM_API SCM scm_gc_live_object_stats (void);
SCM_API SCM scm_gc (void); SCM_API SCM scm_gc (void);