mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* gc.c (adjust_gc_trigger): Improved documentation.

Browse source 
(alloc_some_heap): Since gc_trigger is used against
freelist->collected, this is the value which should be used to
predict minimum growth.
This commit is contained in:
Mikael Djurfeldt 2000-03-20 13:39:33 +00:00
parent b464b97039
commit bda1446cd5
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/gc.c
View file

@ -782,13 +782,16 @@ SCM_DEFINE (scm_gc, "gc", 0, 0, 0,
static void
adjust_gc_trigger (scm_freelist_t *freelist)
{
/* GC trigger is adjusted upwards so that next predicted yield is
* gc_trigger_fraction of total heap size.
/* GC trigger is adjusted upwards so that next predicted total yield
* (allocated cells actually freed by GC) becomes
* `gc_trigger_fraction' of total heap size. Note, however, that
* the absolute value of gc_trigger will correspond to `collected'
* on one master (the one which currently is triggering GC).
*
* The reason why we look at actual yield instead of collected cells
* is that we want to take other freelists into account. On this
* freelist, we know that yield = collected cells, but that's
* probably not the case on the other lists.
* The reason why we look at total yield instead of cells collected
* on one list is that we want to take other freelists into account.
* On this freelist, we know that (local) yield = collected cells,
* but that's probably not the case on the other lists.
*
* (We might consider computing a better prediction, for example
* by computing an average over multiple GC:s.)
@ -2309,8 +2312,10 @@ alloc_some_heap (scm_freelist_t *freelist)
*/
#ifdef GUILE_NEW_GC_SCHEME
{
/* Assure that the new segment is large enough for the new trigger */
int slack = freelist->gc_trigger - scm_gc_yield;
/* Assure that the new segment is predicted to be large enough for
* the new trigger.
*/
int slack = freelist->gc_trigger - freelist->collected;
int min_cells = 100 * slack / (99 - freelist->gc_trigger_fraction);
len = SCM_EXPHEAP (freelist->heap_size);
#ifdef DEBUGINFO