mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 10:10:23 +02:00
Code Activity

* gc-card.c (scm_i_card_statistics): map structs, closures and

Browse source 
subrs to one tag.

* gc-card.c (scm_i_tag_name):  new function.
(scm_i_card_statistics): new function.
This commit is contained in:
Han-Wen Nienhuys 2005-01-27 22:50:09 +00:00
parent 73a4c24e41
commit 856fca7e70
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,6 +1,10 @@
2005-01-27 Han-Wen Nienhuys <hanwen@xs4all.nl> 2005-01-27 Han-Wen Nienhuys <hanwen@xs4all.nl>
* gc-card.c (scm_i_card_statistics): map structs, closures and
subrs to one tag.
* gc.c (s_scm_gc_live_object_stats): return alist, not hashtable. * gc.c (s_scm_gc_live_object_stats): return alist, not hashtable.
(tag_table_to_type_alist): ignore unknown types.
* gc-segment.c (scm_i_all_segments_statistics): new function. * gc-segment.c (scm_i_all_segments_statistics): new function.
(scm_i_heap_segment_statistics): new function (scm_i_heap_segment_statistics): new function

10
libguile/gc-card.c
View file

@ -329,6 +329,16 @@ scm_i_card_statistics (scm_t_cell *p, SCM hashtab, scm_t_heap_segment *seg)
case scm_tcs_cons_nimcar: case scm_tcs_cons_nimcar:
tag = scm_tc3_cons; tag = scm_tc3_cons;
break; 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); SCM tag_as_scm = scm_from_int (tag);