mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

* gc.c (scm_gc_sweep): Count cells correctly. (Thanks to Ben

Browse source 
Caradoc-Davies.)
This commit is contained in:
Mikael Djurfeldt 1998-04-12 10:23:20 +00:00
parent 1609038c87
commit 6f3067f1e0
3 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -9,6 +9,7 @@ Bug reports and fixes from:
Greg Badros Greg Badros
Aleksandar Bakic Aleksandar Bakic
Per Bothner Per Bothner
Ben Caradoc-Davies
Marcus Daniels Marcus Daniels
Fred Fish Fred Fish
Jesse N. Glick Jesse N. Glick

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
1998-04-12 Mikael Djurfeldt <mdj@kenneth> 1998-04-12 Mikael Djurfeldt <mdj@kenneth>
* gc.c (scm_gc_sweep): Count cells correctly. (Thanks to Ben
Caradoc-Davies.)
* eval.c (SCM_CEVAL, SCM_APPLY): In SCM_IM_APPLY and in the * eval.c (SCM_CEVAL, SCM_APPLY): In SCM_IM_APPLY and in the
procedure apply: Copy argument lists before pushing them unto the procedure apply: Copy argument lists before pushing them unto the
environment so that the environment won't get mutated due to environment so that the environment won't get mutated due to

1
libguile/gc.c
View file

@ -1289,6 +1289,7 @@ scm_gc_sweep ()
if (n == seg_size) if (n == seg_size)
{ {
scm_heap_size -= seg_size; scm_heap_size -= seg_size;
n = 0;
free ((char *) scm_heap_table[i].bounds[0]); free ((char *) scm_heap_table[i].bounds[0]);
scm_heap_table[i].bounds[0] = 0; scm_heap_table[i].bounds[0] = 0;
for (j = i + 1; j < scm_n_heap_segs; j++) for (j = i + 1; j < scm_n_heap_segs; j++)