/[guile]/guile/guile-core/libguile/gc-malloc.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc-malloc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by hanwen, Thu Sep 5 20:43:43 2002 UTC revision 1.8 by hanwen, Thu Sep 5 21:12:21 2002 UTC
# Line 200  scm_gc_register_collectable_memory (void Line 200  scm_gc_register_collectable_memory (void
200     */     */
201    if (scm_mallocated > scm_mtrigger)    if (scm_mallocated > scm_mtrigger)
202      {      {
203        long prev_alloced  = scm_mallocated;        unsigned long prev_alloced  = scm_mallocated;
204        float yield;        float yield;
205                
206        scm_igc (what);        scm_igc (what);
207        scm_i_sweep_all_segments("mtrigger");        scm_i_sweep_all_segments("mtrigger");
208    
209        yield = (prev_alloced - scm_mallocated) / (float) prev_alloced;        yield = ((float)prev_alloced - (float) scm_mallocated)
210            / (float) prev_alloced;
211          
212        scm_gc_malloc_yield_percentage = (int) (100  * yield);        scm_gc_malloc_yield_percentage = (int) (100  * yield);
213    
214  #ifdef DEBUGINFO  #ifdef DEBUGINFO

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26