Function fxMarkValue

xs/sources/xsMemory.c:1290–1575

}

void fxMarkValue(txMachine* the, txSlot* theSlot)
{
#define mxMarkChunk(_THE_DATA) \
	((txChunk*)(((txByte*)_THE_DATA) - sizeof(txChunk)))->size |= mxChunkFlag

	txSlot* aSlot;
	switch (theSlot->kind) {
	case XS_STRING_KIND:
		mxMarkChunk(theSlot->value.string);
		break;
	case XS_BIGINT_KIND:
		mxMarkChunk(theSlot->value.bigint.data);
		break;
	case XS_REFERENCE_KIND:
		aSlot = theSlot->value.reference;
		if (!(aSlot->flag & XS_MARK_FLAG))
			fxMarkInstance(the, aSlot, fxMarkValue);
		break;
	case XS_CLOSURE_KIND:
		aSlot = theSlot->value.closure;
		if (aSlot && (!(aSlot->flag & XS_MARK_FLAG))) {
			aSlot->flag |= XS_MARK_FLAG; 
			fxMarkValue(the, aSlot);
		}
		break;
	case XS_INSTANCE_KIND:
		if (!(theSlot->flag & XS_MARK_FLAG))
			fxMarkInstance(the, theSlot, fxMarkValue);
		break;
		
	case XS_ARGUMENTS_SLOPPY_KIND:
	case XS_ARGUMENTS_STRICT_KIND:
	case XS_ARRAY_KIND:
	case XS_STACK_KIND:
		fxCheckCStack(the);
		if ((aSlot = theSlot->value.array.address)) {
			txChunk* chunk = (txChunk*)(((txByte*)aSlot) - sizeof(txChunk));
			if (!(chunk->size & mxChunkFlag)) {
				txIndex aLength = chunk->size / sizeof(txSlot);
				if (aLength > theSlot->value.array.length)
					aLength = theSlot->value.array.length;
				while (aLength) {
					fxMarkValue(the, aSlot);
					aSlot++;
					aLength--;
				}
				mxMarkChunk(theSlot->value.array.address);
			}
		}
		break;
	case XS_ARRAY_BUFFER_KIND:
		if (theSlot->value.arrayBuffer.address)
			mxMarkChunk(theSlot->value.arrayBuffer.address);
		break;
	case XS_CALLBACK_KIND:
		aSlot = theSlot->value.callback.closures;
		if (aSlot && !(aSlot->flag & XS_MARK_FLAG)) {
			fxCheckCStack(the);