Function fxQueueJob

xs/sources/xsPromise.c:1225–1272

}

void fxQueueJob(txMachine* the, txInteger count, txSlot* promise)
{
	txSlot* slot;
	txSlot* job;
	txSlot* item;
	txSlot* stack;
	txSlot** address;
	
	if (promise) {
		txSlot* list = &mxUnhandledPromises;
		txSlot** address = &list->value.reference->next;
		while ((slot = *address)) {
			if (slot->value.weakRef.target == promise) {
				slot = slot->next;
				*address = slot->next;
				break;
			}
			slot = slot->next;
			address = &slot->next;
		}
#ifdef mxPromisePrint
		fprintf(stderr, "fxQueueJob %d\n", promise->next->ID);
#endif
#ifdef mxInstrument	
	the->promisesSettledCount += 1;
#endif
	}
	if (mxPendingJobs.value.reference->next == NULL) {
		fxQueuePromiseJobs(the);
	}
	count += 4;
	item = stack = the->stack + count;
	slot = job = fxNewInstance(the);
	while (count > 0) {
		item--;
		slot = slot->next = fxNewSlot(the);
		slot->kind = item->kind;
		slot->value = item->value;
		count--;
	}
	address = &(mxPendingJobs.value.reference->next);
	while ((slot = *address)) 
		address = &(slot->next);
	slot = *address = fxNewSlot(the);	
	slot->kind = XS_REFERENCE_KIND;
	slot->value.reference = job;
	the->stack = stack;
}

void fxRunPromiseJobs(txMachine* the)
{