summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2005-01-27 22:50:09 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2005-01-27 22:50:09 +0000
commit856fca7e70059aa87387a6cd76b2760d1f08fcae (patch)
tree3ff009f513e5e94453e8d69580b89bd6c17958ef /libguile/gc-card.c
parent73a4c24e417fad800b99decea5b27b57cdb1e76d (diff)
downloadguile-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.c10
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);