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

(scm_i_get_new_heap_segment): Oops. We want segment

Browse source 
length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.
This commit is contained in:
Han-Wen Nienhuys 2002-08-23 00:05:58 +00:00
parent 917adc55ac
commit 4a5309c938
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2002-08-23 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* gc-segment.c (scm_i_get_new_heap_segment): Oops. We want segment
length *at* least SCM_MIN_HEAP_SEG_SIZE, not at most.
2002-08-22 Han-Wen Nienhuys <hanwen@cs.uu.nl> 2002-08-22 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* gc.h, gc.c: make scm_cells_allocated unsigned again. Thanks to * gc.h, gc.c: make scm_cells_allocated unsigned again. Thanks to

2
libguile/gc-segment.c
View file

@ -512,7 +512,7 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro
freelist->collected = LONG_MAX; freelist->collected = LONG_MAX;
} }
if (len > SCM_MIN_HEAP_SEG_SIZE) if (len < SCM_MIN_HEAP_SEG_SIZE)
len = SCM_MIN_HEAP_SEG_SIZE; len = SCM_MIN_HEAP_SEG_SIZE;
{ {