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

* gc.c (scm_gc_sweep): Properly record the size of a freed

Browse source 
structure.  (Thanks to Michael Livshin.)
This commit is contained in:
Jim Blandy 1999-02-06 22:04:09 +00:00
parent 2a2d0d0e81
commit ba3cad4d80
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -1113,7 +1113,7 @@ scm_gc_sweep ()
if ((SCM_CDR (vcell) == 0) || (SCM_CDR (vcell) == 1))
{
SCM *p = (SCM *) SCM_GCCDR (scmptr);
m += p[scm_struct_i_n_words] * sizeof (SCM);
m += (p[scm_struct_i_n_words] + 7) * sizeof (SCM);
/* I feel like I'm programming in BCPL here... */
free ((char *) p[scm_struct_i_ptr]);
}