void ponyint_gc_sendactor(pony_ctx_t* ctx, pony_actor_t* actor) { gc_t* gc = ponyint_actor_gc(ctx->current); if(actor == ctx->current) { send_local_actor(gc); } else { actorref_t* aref = ponyint_actormap_getorput(&gc->foreign, actor, gc->mark); send_remote_actor(ctx, gc, aref); } }
static void send_remote_object(pony_ctx_t* ctx, pony_actor_t* actor, void* p, pony_trace_fn f, bool immutable) { gc_t* gc = ponyint_actor_gc(ctx->current); actorref_t* aref = ponyint_actormap_getorput(&gc->foreign, actor, gc->mark); object_t* obj = ponyint_actorref_getorput(aref, p, gc->mark); if(obj->mark == gc->mark) return; // Implicitly send the owner. send_remote_actor(ctx, gc, aref); // Mark the object. obj->mark = gc->mark; if(immutable && !obj->immutable && (obj->rc > 0)) { // If we received the object as not immutable (it's not marked as immutable // and it has an RC > 0), but we are now sending it as immutable, we need // to acquire it in order to inform the owner it is now immutable. But we // also need to continue tracing, to protect the contents until the owner // has received the acquire messages. obj->rc += (GC_INC_MORE - 1); obj->immutable = true; acquire_object(ctx, actor, p, true); immutable = false; } else if(obj->rc <= 1) { // If we haven't seen this object, it's an object that is reached from // another immutable object we received. Invent some references to this // object and acquire it. This object should either be immutable or a tag. assert((obj->rc > 0) || immutable || (f == NULL)); // Add to the acquire message and decrement. if(immutable) obj->immutable = true; obj->rc += (GC_INC_MORE - 1); acquire_object(ctx, actor, p, obj->immutable); } else { // Decrement. obj->rc--; } if(!immutable) recurse(ctx, p, f); }
static void send_remote_object(pony_ctx_t* ctx, pony_actor_t* actor, void* p, pony_type_t* t, int mutability) { gc_t* gc = ponyint_actor_gc(ctx->current); actorref_t* aref = ponyint_actormap_getorput(&gc->foreign, actor, gc->mark); object_t* obj = ponyint_actorref_getorput(aref, p, gc->mark); if(obj->mark == gc->mark) return; // Implicitly send the owner. send_remote_actor(ctx, gc, aref); // Mark the object. obj->mark = gc->mark; if((mutability == PONY_TRACE_IMMUTABLE) && !obj->immutable && (obj->rc > 0)) { // If we received the object as not immutable (it's not marked as immutable // and it has an RC > 0), but we are now sending it as immutable, we need // to acquire it in order to inform the owner it is now immutable. But we // also need to continue tracing, to protect the contents until the owner // has received the acquire messages. obj->rc += (GC_INC_MORE - 1); obj->immutable = true; acquire_object(ctx, actor, p, true); // Set the to PONY_TRACE_MUTABLE to force recursion. mutability = PONY_TRACE_MUTABLE; } else if(obj->rc <= 1) { // If we haven't seen this object, it's an object that is reached from // another immutable object we received, or it's a pointer to an embedded // field received in an iso. Invent some references to this object and // acquire it. if(mutability == PONY_TRACE_IMMUTABLE) obj->immutable = true; // Add to the acquire message and decrement. obj->rc += (GC_INC_MORE - 1); acquire_object(ctx, actor, p, obj->immutable); } else { // Decrement. obj->rc--; } if(mutability == PONY_TRACE_MUTABLE) recurse(ctx, p, t->trace); }