deltamap_t* ponyint_actormap_sweep(pony_ctx_t* ctx, actormap_t* map,
uint32_t mark, deltamap_t* delta)
{
size_t i = HASHMAP_BEGIN;
actorref_t* aref;
bool needs_optimize = false;
while((aref = ponyint_actormap_next(map, &i)) != NULL)
{
if(aref->mark == mark)
{
aref = move_unmarked_objects(aref, mark);
} else {
ponyint_actormap_clearindex(map, i);
delta = ponyint_deltamap_update(delta, aref->actor, 0);
needs_optimize = true;
}
send_release(ctx, aref);
}
if(needs_optimize)
ponyint_actormap_optimize(map);
return delta;
}
void ponyint_gc_createactor(pony_actor_t* current, pony_actor_t* actor)
{
gc_t* gc = ponyint_actor_gc(current);
actorref_t* aref = ponyint_actormap_getorput(&gc->foreign, actor, gc->mark);
aref->rc = GC_INC_MORE;
gc->delta = ponyint_deltamap_update(gc->delta, actor, aref->rc);
ponyint_heap_used(ponyint_actor_heap(current), GC_ACTOR_HEAP_EQUIV);
}
static void recv_remote_actor(pony_ctx_t* ctx, gc_t* gc, actorref_t* aref)
{
if(aref->mark == gc->mark)
return;
aref->mark = gc->mark;
aref->rc++;
gc->delta = ponyint_deltamap_update(gc->delta, aref->actor, aref->rc);
ponyint_heap_used(ponyint_actor_heap(ctx->current), GC_ACTOR_HEAP_EQUIV);
}
static void recv_remote_actor(pony_ctx_t* ctx, gc_t* gc, actorref_t* aref)
{
if(aref->mark == gc->mark)
return;
if(aref->rc == 0)
{
// Increase apparent used memory to provoke GC.
ponyint_heap_used(ponyint_actor_heap(ctx->current), GC_ACTOR_HEAP_EQUIV);
}
aref->mark = gc->mark;
aref->rc++;
gc->delta = ponyint_deltamap_update(gc->delta, aref->actor, aref->rc);
}
static void mark_remote_actor(pony_ctx_t* ctx, gc_t* gc, actorref_t* aref)
{
if(aref->mark == gc->mark)
return;
aref->mark = gc->mark;
if(aref->rc == 0)
{
// Invent some references to this actor and acquire it.
aref->rc += GC_INC_MORE;
acquire_actor(ctx, aref->actor);
gc->delta = ponyint_deltamap_update(gc->delta, aref->actor, aref->rc);
}
}
static void send_remote_actor(pony_ctx_t* ctx, gc_t* gc, actorref_t* aref)
{
if(aref->mark == gc->mark)
return;
aref->mark = gc->mark;
// Dec. If we can't, add to the acquire message.
if(aref->rc <= 1)
{
aref->rc += (GC_INC_MORE - 1);
acquire_actor(ctx, aref->actor);
} else {
aref->rc--;
}
gc->delta = ponyint_deltamap_update(gc->delta, aref->actor, aref->rc);
}
static void mark_remote_actor(pony_ctx_t* ctx, gc_t* gc, actorref_t* aref)
{
if(aref->mark == gc->mark)
return;
aref->mark = gc->mark;
if(aref->rc == 0)
{
// If we haven't seen this actor, it's the owner of an immutable object
// that is reached from another immutable object we received. Invent
// some references to this actor and acquire it.
aref->rc += GC_INC_MORE;
acquire_actor(ctx, aref->actor);
gc->delta = ponyint_deltamap_update(gc->delta, aref->actor, aref->rc);
}
ponyint_heap_used(ponyint_actor_heap(ctx->current), GC_ACTOR_HEAP_EQUIV);
}
