Function fxIndexSlots

xs/sources/xsSnapshot.c:1077–1141

}

void fxIndexSlots(txMachine* the, txSnapshot* snapshot)
{
	txSlot* heap;
	txSlot* limit;
	txProjection** projectionAddress = &(snapshot->firstProjection);
	txProjection* projection;
	txSlot* slot;
	txSlot** slotAddress;
	txID id;
	size_t* indexAddress;

	heap = the->firstHeap;
	while (heap) {
		limit = heap->value.reference;
		projection = c_calloc(sizeof(txProjection) + (limit - heap - 1) * sizeof(size_t), 1);
		if (!projection) { snapshot->error = C_ENOMEM; fxJump(the); }
		projection->heap = heap;
		projection->limit = limit;
		*projectionAddress = projection;
		projectionAddress = &projection->nextProjection;
		heap = heap->next;
	}
	
	snapshot->slotSize = 1;
	slotAddress = the->keyArray;
	id = the->keyIndex;
	while (id) {
		if ((slot = *slotAddress)) {
			fxIndexSlot(the, snapshot, slot);
			fxIndexReference(the, snapshot, slot);
		}
		slotAddress++;
		id--;
	}	
	slot = the->stackTop;
	while (slot > the->stack) {
        slot--;
		fxIndexReference(the, snapshot, slot);
	}
	
	snapshot->slots = c_calloc(sizeof(txSlot*) * snapshot->slotSize, 1);
	if (!snapshot->slots) { snapshot->error = C_ENOMEM; fxJump(the); }
	projection = snapshot->firstProjection;
	while (projection) {
		heap = projection->heap;
		limit = projection->limit;
		slot = heap + 1;
		indexAddress = &projection->indexes[1];
		while (slot < limit) {
			if (slot->flag & XS_MARK_FLAG) {
				slot->flag &= ~XS_MARK_FLAG; 
				snapshot->slots[*indexAddress] = slot;
			}
			slot++;
			indexAddress++;
		}
		projection = projection->nextProjection;
	}