mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix sizeof() nitpick for goops corruption.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2008-08-18 11:02:43 -03:00 • committed by Han-Wen Nienhuys
parent 5bfb683e12
commit 408bcd99d3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/goops.c
View file

@ -1709,7 +1709,7 @@ go_to_hell (void *o)
if (n_hell >= hell_size) if (n_hell >= hell_size)
{ {
hell_size *= 2; hell_size *= 2;
hell = scm_realloc (hell, hell_size * sizeof(scm_t_bits)); hell = scm_realloc (hell, hell_size * sizeof(*hell));
} }
hell[n_hell++] = SCM_STRUCT_DATA (obj); hell[n_hell++] = SCM_STRUCT_DATA (obj);
scm_unlock_mutex (hell_mutex); scm_unlock_mutex (hell_mutex);