2000-04-14
2000-04-14 16:33:00 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
5fbe6efdf6b78ab5a1ae58a2056f48c52638befe
(9 lines)
(+7/-2)
[
Show
| Annotate
]
Branch: 7.9
minor cleanup, set Pike_in_gc to the approperiate pass
Rev: src/gc.c:1.62
29:
#include "block_alloc.h"
- RCSID("$Id: gc.c,v 1.61 2000/04/14 16:05:27 mast Exp $");
+ RCSID("$Id: gc.c,v 1.62 2000/04/14 16:33:00 hubbe Exp $");
/* Run garbage collect approximate every time we have
* 20 percent of all arrays, objects and programs is
848:
}
#endif
+ /* These callbacks are mainly for pass 1, but can also
+ * do things that are normally associated with pass 2
+ */
call_callback(& gc_callbacks, (void *)0);
-
+ Pike_in_gc=2;
/* Next we mark anything with external references */
gc_mark_all_arrays();
870: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
check_for=(void *)1;
#endif
+ Pike_in_gc=3;
/* Now we free the unused stuff */
gc_free_all_unreferenced_arrays();
gc_free_all_unreferenced_multisets();
gc_free_all_unreferenced_mappings();
gc_free_all_unreferenced_programs();
- Pike_in_gc=2;
+
gc_free_all_unreferenced_objects();
#ifdef PIKE_DEBUG