void
Parrot_gc_sweep_pool(PARROT_INTERP,
ARGMOD(Memory_Pools *mem_pools),
ARGMOD(Fixed_Size_Pool *pool))
{
ASSERT_ARGS(Parrot_gc_sweep_pool)
PObj *b;
Fixed_Size_Arena *cur_arena;
UINTVAL total_used = 0;
const UINTVAL object_size = pool->object_size;
const gc_object_fn_type gc_object = pool->gc_object;
const add_free_object_fn_type add_free_object = pool->add_free_object;
/* Run through all the PObj header pools and mark */
for (cur_arena = pool->last_Arena; cur_arena; cur_arena = cur_arena->prev) {
const size_t objects_end = cur_arena->used;
UINTVAL i;
b = (PObj *)cur_arena->start_objects;
/* loop only while there are objects in the arena */
for (i = objects_end; i; --i) {
/* if it's on free list, do nothing */
if (PObj_live_TEST(b)) {
++total_used;
PObj_live_CLEAR(b);
PObj_get_FLAGS(b) &= ~PObj_custom_GC_FLAG;
}
else if (!PObj_on_free_list_TEST(b)) {
/* it must be dead */
if (PObj_is_shared_TEST(b)) {
/* only mess with shared objects if we
* (and thus everyone) is suspended for
* a GC run.
* XXX wrong thing to do with "other" GCs
*/
if (!(interp->thread_data
&& (interp->thread_data->state & THREAD_STATE_SUSPENDED_GC))) {
++total_used;
goto next;
}
}
if (gc_object)
gc_object(interp, mem_pools, pool, b);
add_free_object(interp, mem_pools, pool, b);
}
next:
b = (PObj *)((char *)b + object_size);
}
}
pool->num_free_objects = pool->total_objects - total_used;
}
void
mark_special(PARROT_INTERP, ARGMOD(Memory_Pools *mem_pools), ARGIN(PMC *obj))
{
ASSERT_ARGS(mark_special)
PObj_get_FLAGS(obj) |= PObj_custom_GC_FLAG;
/* clearing the flag is much more expensive then testing */
if (!PObj_needs_early_gc_TEST(obj))
PObj_high_priority_gc_CLEAR(obj);
/* mark properties */
Parrot_gc_mark_PMC_alive(interp, PMC_metadata(obj));
if (PObj_custom_mark_TEST(obj)) {
PARROT_ASSERT(!PObj_on_free_list_TEST(obj));
VTABLE_mark(interp, obj);
}
}
