eliminate initial scaling of maxpage variables - gcl.git - GNU Common Lisp

diff --git a/gcl/o/main.c b/gcl/o/main.c
index 6a83f2eb5..b7e5e4904 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c

@@ -281,7 +281,7 @@ update_real_maxpage(void) {

resv_pages=40<available_pages ? 40 : available_pages;

available_pages-=resv_pages;

- if (sSAoptimize_maximum_pagesA && sSAoptimize_maximum_pagesA->s.s_dbind!=Cnil) {

+ if (0 && sSAoptimize_maximum_pagesA && sSAoptimize_maximum_pagesA->s.s_dbind!=Cnil) {

for (i=t_start,j=0;i<t_relocatable;i++)

j+=tm_table[i].tm_maxpage;