smaller default relocatable buffer - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

smaller default relocatable bufferrelocatable_cons1

-rw-r--r--

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/o/alloc.c b/gcl/o/alloc.c
index 2a14df6a8..b2ecb3850 100644
--- a/gcl/o/alloc.c
+++ b/gcl/o/alloc.c

@@ -526,7 +526,7 @@ alloc_from_freelist(struct typemanager *tm,fixnum n) {

default:

if (tm==tm_table+t_cons && sSAstatic_relocatable_bufferA) {

if (sSAstatic_relocatable_bufferA->s.s_dbind==Cnil) {

- sSAstatic_relocatable_bufferA->s.s_dbind=(VFUN_NARGS=4,FFN(fSmake_vector1)(make_fixnum(4000000),fSget_aelttype(sLfixnum),Ct,make_fixnum(0)));

+ sSAstatic_relocatable_bufferA->s.s_dbind=(VFUN_NARGS=4,FFN(fSmake_vector1)(make_fixnum(400000),fSget_aelttype(sLfixnum),Ct,make_fixnum(0)));

}

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

if (sSAstatic_relocatable_bufferA->s.s_dbind->v.v_fillp==sSAstatic_relocatable_bufferA->s.s_dbind->v.v_dim/2)

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 17:56:50 +0000