changeset 12605:c5798bb57fdd

(init_alloc_once): Set gc_cons_threshold from Lisp obj size.
author Richard M. Stallman <rms@gnu.org>
date Wed, 19 Jul 1995 03:39:43 +0000
parents 140e46e751a0
children 410385a28fb8
files src/alloc.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Wed Jul 19 03:19:03 1995 +0000
+++ b/src/alloc.c	Wed Jul 19 03:39:43 1995 +0000
@@ -2428,7 +2428,7 @@
   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 */