Function fxAllocateSlots

xs/platforms/mc/xsHosts.c:119–179

}

txSlot *fxAllocateSlots(txMachine* the, txSize theCount)
{
	txSize needed = theCount * sizeof(txSlot);

	if (NULL == the->heap) {
#ifndef modGetLargestMalloc
		return machine_alloc(needed, 0);
#else
		extern void fxGrowSlots(txMachine* the, txSize theCount); 
		static uint8_t *pending;		//@@ not thread safe...

		if (NULL == the->stack)
			return machine_alloc(needed, 0);

		if (pending) {
			txSlot *result = (txSlot *)pending;
			pending = NULL;
			return result;
		}

		while (needed) {
			size_t largest = modGetLargestMalloc() & ~0x0F;
			if (largest > needed)
				largest = needed;
			pending = c_malloc(largest);
			if (!pending) 
				return NULL;

			fxGrowSlots(the, largest / sizeof(txSlot));

#ifdef mxDebug
			if (pending)
				fxAbort(the, XS_FATAL_CHECK_EXIT);
#endif

			needed -= largest;
		}

		return (void *)-1;
#endif
	}

	the->growHeapDirection = -1;
	txSlot *result = (txSlot *)mc_xs_slot_allocator(the, needed);
	if (!result && the->firstBlock) {
#ifdef mxDebug
		fxReport(the, "# Slot allocation: failed. trying to make room...\n");
#endif
		fxCollect(the, XS_COMPACT_FLAG | XS_ORGANIC_FLAG);	/* expecting memory from the chunk pool */
#ifdef mxDebug
		fxReport(the, "# Slot allocation: %d bytes returned\n", the->firstBlock->limit - the->firstBlock->current);
#endif
		the->maximumChunksSize -= the->firstBlock->limit - the->firstBlock->current;
		the->heap_ptr = (uint8_t*)the->firstBlock->current;
		the->firstBlock->limit = the->firstBlock->current;

		result = (txSlot *)mc_xs_slot_allocator(the, needed);
	}