mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-24 05:20:30 +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 Ludovic Courtès
parent 49f325df90
commit 2e503afaf7
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)
{
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);
scm_unlock_mutex (hell_mutex);