guile-devel
[Top][All Lists]
Advanced

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

Re: [PATCH] GC code cleanup #2


From: Ludovic Courtès
Subject: Re: [PATCH] GC code cleanup #2
Date: Thu, 09 Feb 2006 10:16:46 +0100
User-agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux)

Hi folks,

address@hidden (Ludovic Courtès) writes:

> 2006-01-04  Ludovic Courtès  <address@hidden>
>
>       * libguile/gc-segment.c (scm_i_sweep_some_cards): Take a SWEEP_STATS
>       argument.  Don't refer to SCM_GC_CELLS_COLLECTED and
>       SCM_CELLS_ALLOCATED.  If SEG->FIRST_TIME, let CELLS_COLLECTED as zero.
>       Take into account SEG->SPAN when computing CELLS_SWEPT.
>       (scm_i_sweep_segment): Take one more argument, similarly.
>       (scm_i_sweep_all_segments): Likewise.
>       (scm_i_sweep_some_segments): Likewise.
>       (scm_i_adjust_min_yield): Change the way MIN_CELLS is computed: do not
>       refer to SCM_GC_CELLS_COLLECTED.
>
>       * libguile/gc-freelist.c (scm_i_adjust_min_yield): Take one more
>       argument, an `scm_i_sweep_statistics' object.
>       Change the way DELTA is collected: don't take into account
>       SCM_GC_CELLS_COLLECTED_1, only SWEEP_STATS.COLLECTED.
>     
>       * libguile/gc-malloc.c (scm_realloc): Pass an extra argument
>       to `scm_i_sweep_all_segments ()'.
>     
>       * libguile/gc.c (gc_start_stats): Updated accordingly.
>       (gc_end_stats): Take an additional SWEEP_STATS argument.
>       Decrement SCM_CELLS_ALLOCATED after calls to `scm_i_sweep_* ()'.
>       (scm_gc_for_newcell): Updated callers of `scm_i_sweep_*'.
>       Decrement SCM_CELLS_ALLOCATED.
>       (scm_i_gc): Likewise.
>     
>       * libguile/private-gc.h (scm_i_sweep_*): Updated function
>       prototypes accordingly.
>       (scm_t_sweep_statistics): New type.
>       (scm_i_sweep_statistics_init): New macro.
>       (scm_i_sweep_statistics_sum): New macro

Please, can somebody review this patch?

Thanks,
Ludovic.




reply via email to

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