limit startup relblock pages to 5% of available_pages - gcl.git - GNU Common Lisp

diff --git a/gcl/o/main.c b/gcl/o/main.c
index cd5644c70..451de2fe1 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -205,7 +205,9 @@ update_real_maxpage(void) {

available_pages-=resv_pages;

new_holepage=available_pages/starting_hole_div;

+ k=available_pages/20;

j*=starting_relb_heap_mult;

+ j=j<k ? j : k;

if (maxrbpage<j)

massert(set_tm_maxpage(tm_table+t_relocatable,j));