Function fxNewProgramInstance

xs/sources/xsType.c:1510–1526

}

txSlot* fxNewProgramInstance(txMachine* the)
{
	txSlot* instance;
	txSlot* slot;
	instance = fxNewSlot(the);
	instance->kind = XS_INSTANCE_KIND;
	instance->value.instance.garbage = C_NULL;
	instance->value.instance.prototype = mxIsReference(the->stack) ? the->stack->value.reference : C_NULL;
	the->stack->value.reference = instance;
	the->stack->kind = XS_REFERENCE_KIND;
	slot = instance->next = fxNewSlot(the);
	slot->flag = XS_INTERNAL_FLAG;
	slot->kind = XS_PROGRAM_KIND;
	slot->value.module.realm = C_NULL;
	slot->value.module.id = XS_NO_ID;
	return instance;
}