From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 19 Jul 1995 03:39:43 +0000 (+0000)
Subject: (init_alloc_once): Set gc_cons_threshold from Lisp obj size.
X-Git-Tag: emacs-19.34~3254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d179cea040efc43c5d0723c0497ddbfa70c594c;p=emacs.git

(init_alloc_once): Set gc_cons_threshold from Lisp obj size.
---

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 */