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

* gc.c (scm_gc_stats): Bugfix: Measure size of the type we are

Browse source 
mallocating for (unsigned long *bounds).

* hashtab.c (scm_i_rehash): Cast SCM_HASHTABLE_FLAGS (table) to
scm_t_bits before storing them in the type word.

* gc.c (tag_table_to_type_alist): Modified type of c_tag from
scm_t_bits to int.
This commit is contained in:
Mikael Djurfeldt 2005-07-18 13:55:44 +00:00
parent 2468a3c820
commit 3e2073bd24
3 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc.c
View file

@ -264,7 +264,7 @@ tag_table_to_type_alist (void *closure, SCM key, SCM val, SCM acc)
{
if (scm_is_integer (key))
{
scm_t_bits c_tag = scm_to_int (key);
int c_tag = scm_to_int (key);
char const * name = scm_i_tag_name (c_tag);
if (name != NULL)
@ -329,7 +329,7 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
temporarily store the numbers, so as not to cause GC.
*/
bounds = malloc (sizeof (int) * table_size * 2);
bounds = malloc (sizeof (unsigned long) * table_size * 2);
if (!bounds)
abort();
for (i = table_size; i--; )