Function fxAliasInstance

xs/sources/xsType.c:59–101

#if mxAliasInstance
txSlot* fxAliasInstance(txMachine* the, txSlot* instance)
{
	txSlot* alias;
	txSlot* from;
	txSlot* to;
	the->aliasArray[instance->ID] = alias = fxNewSlot(the);
	alias->flag = instance->flag & ~(XS_MARK_FLAG | XS_DONT_MARSHALL_FLAG);
	alias->kind = XS_INSTANCE_KIND;
	alias->value.instance.garbage =  instance->value.instance.garbage;
	alias->value.instance.prototype = instance->value.instance.prototype;
	from = instance->next;
	to = alias;
	while (from) {
		to = to->next = fxDuplicateSlot(the, from);
		if (to->kind == XS_ARRAY_KIND) {
			txSlot* address = to->value.array.address;
			if (address) {
				txSize size = (((txChunk*)(((txByte*)address) - sizeof(txChunk)))->size) / sizeof(txSlot);
				txSlot* chunk = (txSlot*)fxNewChunk(the, size * sizeof(txSlot));
				c_memcpy(chunk, address, size * sizeof(txSlot));
				to->value.array.address = chunk;
				while (size) {
					chunk->flag &= ~XS_MARK_FLAG;
					chunk++;
					size--;
				}
			}
		}
		else if (to->kind == XS_DATE_KIND) {
			to->flag &= ~XS_DONT_SET_FLAG;
		}
		else if (to->kind == XS_PRIVATE_KIND) {
			txSlot** address = &to->value.private.first;
			txSlot* slot;
			while ((slot = *address)) {
				*address = slot = fxDuplicateSlot(the, slot);
				address = &slot->next;
			}
		}
		from = from->next;
	}
	return alias;
}
#endif

txSlot* fxDuplicateInstance(txMachine* the, txSlot* instance)