guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] branch master updated: Bump DEFAULT_INITIAL_HEAP_SIZE


From: Andy Wingo
Subject: [Guile-commits] branch master updated: Bump DEFAULT_INITIAL_HEAP_SIZE
Date: Thu, 27 Aug 2020 08:13:18 -0400

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch master
in repository guile.

The following commit(s) were added to refs/heads/master by this push:
     new fdea77d  Bump DEFAULT_INITIAL_HEAP_SIZE
fdea77d is described below

commit fdea77d01cab48a371606c7d8db6146cb17e25e5
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Aug 27 14:07:01 2020 +0200

    Bump DEFAULT_INITIAL_HEAP_SIZE
    
    * libguile/gc.c (DEFAULT_INITIAL_HEAP_SIZE): Bump to 1.6 MB on 64-bit
      targets, or 800 kB on 32-bit targets, to account for increased
      footprint.  Prevents useless early GC.
      (scm_storage_prehistory): Remove unused code to dynamically change the
      free space divisor.
---
 libguile/gc.c | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/libguile/gc.c b/libguile/gc.c
index 5bbe1d9..0fcce32 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -1,4 +1,4 @@
-/* Copyright 1995-2003,2006,2008-2014,2016-2018
+/* Copyright 1995-2003,2006,2008-2014,2016-2018,2020
      Free Software Foundation, Inc.
 
    This file is part of Guile.
@@ -68,7 +68,7 @@
    result of 'guile -c "(display (assq-ref (gc-stats)
    'heap-total-allocated))"'.  */
 
-#define DEFAULT_INITIAL_HEAP_SIZE (128 * 1024 * SIZEOF_UINTPTR_T)
+#define DEFAULT_INITIAL_HEAP_SIZE (200 * 1024 * SIZEOF_UINTPTR_T)
 
 /* Set this to != 0 if every cell that is accessed shall be checked:
  */
@@ -145,10 +145,6 @@ unsigned long scm_gc_ports_collected = 0;
 static long gc_time_taken = 0;
 static long gc_start_time = 0;
 
-static unsigned long free_space_divisor;
-static unsigned long minimum_free_space_divisor;
-static double target_free_space_divisor;
-
 static unsigned long protected_obj_count = 0;
 
 
@@ -450,11 +446,6 @@ void
 scm_storage_prehistory ()
 {
   GC_set_all_interior_pointers (0);
-
-  free_space_divisor = scm_getenv_int ("GC_FREE_SPACE_DIVISOR", 3);
-  minimum_free_space_divisor = free_space_divisor;
-  target_free_space_divisor = free_space_divisor;
-  GC_set_free_space_divisor (free_space_divisor);
   GC_set_finalize_on_demand (1);
 
 #if (GC_VERSION_MAJOR == 7 && GC_VERSION_MINOR == 4    \



reply via email to

[Prev in Thread] Current Thread [Next in Thread]