Function fxNewSlot

xs/sources/xsMemory.c:1700–1757

}

txSlot* fxNewSlot(txMachine* the) 
{
	txSlot* aSlot;
	txBoolean once = 1, allocate;
	
#if mxStress
	if (fxShouldStress()) {
		fxCollect(the, XS_COMPACT_FLAG | XS_ORGANIC_FLAG);
		once = 0;
	}
#endif
again:
	aSlot = the->freeHeap;
	if (aSlot) {
		the->freeHeap = aSlot->next;
		aSlot->next = C_NULL;
		aSlot->ID = XS_NO_ID;
		aSlot->flag = XS_NO_FLAG;
	#ifdef mxSnapshot
		#if mx32bitID
			aSlot->dummy = 0;
		#elif INTPTR_MAX == INT64_MAX
			aSlot->dummy = 0;
		#endif
	#endif
#if mxPoisonSlots
		ASAN_UNPOISON_MEMORY_REGION(&aSlot->value, sizeof(aSlot->value));
#endif
		the->currentHeapCount++;
		if (the->peakHeapCount < the->currentHeapCount)
			the->peakHeapCount = the->currentHeapCount;
#ifdef mxMetering
		the->meterIndex += XS_SLOT_ALLOCATION_METERING;
#endif
		return aSlot;
	}
	if (once) {
		txBoolean wasThrashing = ((the->collectFlag & XS_TRASHING_SLOTS_FLAG) != 0), isThrashing;

		fxCollect(the, XS_ORGANIC_FLAG);

		isThrashing = ((the->collectFlag & XS_TRASHING_SLOTS_FLAG) != 0);
		allocate = wasThrashing && isThrashing;

		once = 0;
	}
	else
		allocate = 1;
	if (allocate) {
		if (!the->minimumHeapCount) {
			fxReport(the, "# Slot allocation: failed in fixed size heap\n");
			fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
		}
		fxGrowSlots(the, !(the->collectFlag & XS_SKIPPED_COLLECT_FLAG) ? the->minimumHeapCount : 64);
	}
	goto again;
	return C_NULL;
}