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 |