/[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.8 by hanwen, Thu Sep 5 21:12:21 2002 UTC revision 1.9 by hanwen, Thu Sep 5 21:55:33 2002 UTC
# Line 106  scm_gc_init_malloc (void) Line 106  scm_gc_init_malloc (void)
106                                   SCM_DEFAULT_INIT_MALLOC_LIMIT);                                   SCM_DEFAULT_INIT_MALLOC_LIMIT);
107    scm_i_minyield_malloc =  scm_getenv_int ("GUILE_MIN_YIELD_MALLOC",    scm_i_minyield_malloc =  scm_getenv_int ("GUILE_MIN_YIELD_MALLOC",
108                                             SCM_DEFAULT_MALLOC_MINYIELD);                                             SCM_DEFAULT_MALLOC_MINYIELD);
109    
110      if (scm_i_minyield_malloc >= 100)
111        scm_i_minyield_malloc = 99;
112      if (scm_i_minyield_malloc < 1)
113        scm_i_minyield_malloc = 1;
114    
115      if (scm_mtrigger < 0)
116        scm_mtrigger = SCM_DEFAULT_INIT_MALLOC_LIMIT;
117  }  }
118    
119    
# Line 226  scm_gc_register_collectable_memory (void Line 234  scm_gc_register_collectable_memory (void
234              Instead of getting bogged down, we let the mtrigger grow              Instead of getting bogged down, we let the mtrigger grow
235              strongly with it.              strongly with it.
236             */             */
237            scm_mtrigger = (scm_mallocated * 110) / (100 - scm_i_minyield_malloc);            float no_overflow_trigger = (float)(scm_mallocated * 110);
238    
239              no_overflow_trigger /= (float)  (100 - scm_i_minyield_malloc);
240              scm_mtrigger =  (unsigned long) no_overflow_trigger;
241                        
242  #ifdef DEBUGINFO  #ifdef DEBUGINFO
243            fprintf (stderr, "Mtrigger sweep: ineffective. New trigger %d\n", scm_mtrigger);            fprintf (stderr, "Mtrigger sweep: ineffective. New trigger %d\n", scm_mtrigger);

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

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