Function fxNewHostInstance

xs/sources/xsAPI.c:638–664

}

txSlot* fxNewHostInstance(txMachine* the)
{
	txSlot* prototype = fxGetInstance(the, the->stack);
	txSlot* instance = fxNewSlot(the);
	instance->kind = XS_INSTANCE_KIND;
	instance->value.instance.garbage = C_NULL;
	instance->value.instance.prototype = prototype;
	the->stack->value.reference = instance;
	the->stack->kind = XS_REFERENCE_KIND;
	if (prototype) {
		txSlot* prototypeHost = prototype->next;
		if (prototypeHost && (prototypeHost->kind == XS_HOST_KIND) && (prototypeHost->value.host.variant.destructor != fxReleaseSharedChunk)) {
			txSlot* instanceHost = instance->next = fxNewSlot(the);
			instanceHost->flag = XS_INTERNAL_FLAG;
			instanceHost->kind = XS_HOST_KIND;
			instanceHost->value.host.data = C_NULL;
			if (prototypeHost->flag & XS_HOST_HOOKS_FLAG) {
				instanceHost->flag |= XS_HOST_HOOKS_FLAG;
				instanceHost->value.host.variant.hooks = prototypeHost->value.host.variant.hooks;
			}
			else {
				instanceHost->value.host.variant.destructor = prototypeHost->value.host.variant.destructor;
			}
		}
	}
	return instance;
}


txSlot* fxCheckHostObject(txMachine* the, txSlot* it)