mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* gc-card.c (scm_i_card_statistics): init tag.

Browse source 
* gc.c (tag_table_to_type_alist): check type of tag. Should be integer.
This commit is contained in:
Han-Wen Nienhuys 2005-07-01 12:34:58 +00:00
parent fc9c5d0684
commit 8fecbb1900
3 changed files with 24 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/ChangeLog
View file

@ -1,6 +1,13 @@
2005-07-01 Han-Wen Nienhuys <hanwen@xs4all.nl>
* gc-card.c (scm_i_card_statistics): init tag.
* gc.c (tag_table_to_type_alist): check type of tag. Should be integer.
2005-06-18 Han-Wen Nienhuys <hanwen@xs4all.nl> 2005-06-18 Han-Wen Nienhuys <hanwen@xs4all.nl>
* fports.c (s_scm_open_file): add the b flag for binary to the doc string. * fports.c (s_scm_open_file): add the b flag for binary to the doc
string.
2005-06-25 Kevin Ryde <user42@zip.com.au> 2005-06-25 Kevin Ryde <user42@zip.com.au>

2
libguile/gc-card.c
View file

@ -308,7 +308,7 @@ scm_i_card_statistics (scm_t_cell *p, SCM hashtab, scm_t_heap_segment *seg)
for (p += offset; p < end; p += span, offset += span) for (p += offset; p < end; p += span, offset += span)
{ {
scm_t_bits tag; scm_t_bits tag = -1;
SCM scmptr = PTR2SCM (p); SCM scmptr = PTR2SCM (p);
if (!SCM_C_BVEC_GET (bitvec, offset)) if (!SCM_C_BVEC_GET (bitvec, offset))

26
libguile/gc.c
View file

@ -262,19 +262,23 @@ unsigned scm_newcell2_count;
static SCM static SCM
tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc) tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc)
{ {
scm_t_bits c_tag = scm_to_int (key); if (scm_is_integer (key))
{
scm_t_bits c_tag = scm_to_int (key);
char const * name = scm_i_tag_name (c_tag); char const * name = scm_i_tag_name (c_tag);
if (name != NULL) if (name != NULL)
{ {
key = scm_from_locale_string (name); key = scm_from_locale_string (name);
} }
else else
{ {
char s[100]; char s[100];
sprintf (s, "tag %d", c_tag); sprintf (s, "tag %d", c_tag);
key = scm_from_locale_string (s); key = scm_from_locale_string (s);
}
} }
return scm_cons (scm_cons (key, val), acc); return scm_cons (scm_cons (key, val), acc);
} }