summaryrefslogtreecommitdiff
path: root/libguile/gc-segment.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-10-19 13:51:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-10-19 13:51:22 +0000
commitc17b358f481388cf1fdb257999c2f054b7fe1af3 (patch)
treecb70757108b81b3e77bc12b7bc6f4e63b04df55f /libguile/gc-segment.c
parent98c712c4c372120ad4871c0433ec4885aa9b0aac (diff)
downloadguile-c17b358f481388cf1fdb257999c2f054b7fe1af3.tar.gz
(scm_i_get_new_heap_segment): Limit size of new
segment to scm_max_segment_size.
Diffstat (limited to 'libguile/gc-segment.c')
-rw-r--r--libguile/gc-segment.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c
index 6a39de4e6..2ba135c62 100644
--- a/libguile/gc-segment.c
+++ b/libguile/gc-segment.c
@@ -472,6 +472,8 @@ scm_i_get_new_heap_segment (scm_t_cell_type_statistics *freelist, policy_on_erro
freelist->collected = LONG_MAX;
}
+ if (len > scm_max_segment_size)
+ len = scm_max_segment_size;
if (len < SCM_MIN_HEAP_SEG_SIZE)
len = SCM_MIN_HEAP_SEG_SIZE;