From 7d179cea040efc43c5d0723c0497ddbfa70c594c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 19 Jul 1995 03:39:43 +0000 Subject: [PATCH] (init_alloc_once): Set gc_cons_threshold from Lisp obj size. --- src/alloc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index 9e2e8d406d7..9d7a5dc4066 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -2428,7 +2428,7 @@ init_alloc_once () gcprolist = 0; staticidx = 0; consing_since_gc = 0; - gc_cons_threshold = 300000; + gc_cons_threshold = 100000 * sizeof (Lisp_Object); #ifdef VIRT_ADDR_VARIES malloc_sbrk_unused = 1<<22; /* A large number */ malloc_sbrk_used = 100000; /* as reasonable as any number */ -- 2.39.2