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

Merge commit 'd364a89718'

Browse source 
Conflicts:
	libguile/deprecated.h
	libguile/gc.c
This commit is contained in:
Andy Wingo 2013-11-28 16:16:48 +01:00
commit fcd953f699
2 changed files with 0 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

39
libguile/gc.c
View file

@ -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,
(),

1
libguile/gc.h
View file

@ -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);