diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-10-19 13:51:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-10-19 13:51:22 +0000 |
commit | c17b358f481388cf1fdb257999c2f054b7fe1af3 (patch) | |
tree | cb70757108b81b3e77bc12b7bc6f4e63b04df55f /libguile/gc-segment.c | |
parent | 98c712c4c372120ad4871c0433ec4885aa9b0aac (diff) | |
download | guile-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.c | 2 |
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; |