diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-01-27 22:50:09 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-01-27 22:50:09 +0000 |
commit | 856fca7e70059aa87387a6cd76b2760d1f08fcae (patch) | |
tree | 3ff009f513e5e94453e8d69580b89bd6c17958ef /libguile/gc-card.c | |
parent | 73a4c24e417fad800b99decea5b27b57cdb1e76d (diff) | |
download | guile-856fca7e70059aa87387a6cd76b2760d1f08fcae.tar.gz |
* gc-card.c (scm_i_card_statistics): map structs, closures and
subrs to one tag.
* gc-card.c (scm_i_tag_name): new function.
(scm_i_card_statistics): new function.
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index f14b54e64..421df620d 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -329,6 +329,16 @@ scm_i_card_statistics (scm_t_cell *p, SCM hashtab, scm_t_heap_segment *seg) case scm_tcs_cons_nimcar: tag = scm_tc3_cons; break; + + case scm_tcs_struct: + tag = scm_tc3_struct; + break; + case scm_tcs_closures: + tag = scm_tc3_closure; + break; + case scm_tcs_subrs: + tag = scm_tc7_asubr; + break; } SCM tag_as_scm = scm_from_int (tag); |