ggc-simple.c (ggc_pop_context): Fold outstanding bytes into surrounding context.

* ggc-simple.c (ggc_pop_context): Fold outstanding bytes into
        surrounding context.

From-SVN: r29353
This commit is contained in:
Richard Henderson 1999-09-11 23:25:44 -07:00
parent f4e16489df
commit 0172a8f1f4
1 changed files with 4 additions and 2 deletions

View File

@ -201,6 +201,8 @@ ggc_pop_context PROTO ((void))
gs->next->strings = gs->strings;
}
gs->next->bytes_alloced_since_gc += gs->bytes_alloced_since_gc;
ggc_chain = gs->next;
free (gs);
}
@ -489,9 +491,9 @@ ggc_collect ()
struct ggc_any *a, **ap;
int time, n_rtxs, n_trees, n_vecs, n_strings, n_anys;
#ifndef ENABLE_CHECKING
#if !defined(ENABLE_CHECKING)
/* See if it's even worth our while. */
if (ggc_chain->bytes_alloced_since_gc < 64*1024)
if (ggc_chain->bytes_alloced_since_gc < 4*1024*1024)
return;
#endif