From c17b358f481388cf1fdb257999c2f054b7fe1af3 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 19 Oct 2004 13:51:22 +0000 Subject: [PATCH] (scm_i_get_new_heap_segment): Limit size of new segment to scm_max_segment_size. --- libguile/gc-segment.c | 2 ++ 1 file changed, 2 insertions(+) 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;