Function fxDuplicateInstance

xs/sources/xsType.c:104–138

#endif

txSlot* fxDuplicateInstance(txMachine* the, txSlot* instance)
{
	txSlot* result;
	txSlot* from;
	txSlot* to;
	result = fxNewInstance(the);
	result->flag = instance->flag & ~XS_MARK_FLAG;
	result->value.instance.garbage = C_NULL;
	result->value.instance.prototype = instance->value.instance.prototype;
	from = instance->next;
	to = result;
	while (from) {
		if (from->kind != XS_WEAK_ENTRY_KIND) {
			to = to->next = fxDuplicateSlot(the, from);
			if (from->kind == XS_ARRAY_KIND) {
				txSlot* address = from->value.array.address;
				to->value.array.address = C_NULL;
				if (address) {
					txSize size = (((txChunk*)(((txByte*)address) - sizeof(txChunk)))->size) / sizeof(txSlot);
					txSlot* chunk = (txSlot*)fxNewChunk(the, size * sizeof(txSlot));
					address = from->value.array.address;
					c_memcpy(chunk, address, size * sizeof(txSlot));
					to->value.array.address = chunk;
					while (size) {
						chunk->flag &= ~XS_MARK_FLAG;
						chunk++;
						size--;
					}
				}
			}
		}
		from = from->next;
	}
	return result;
}

txSlot* fxGetInstance(txMachine* the, txSlot* theSlot)
{