Function fxSetEntry

xs/sources/xsMapSet.c:1222–1280

}

void fxSetEntry(txMachine* the, txSlot* table, txSlot* list, txSlot* key, txSlot* pair, txBoolean get) 
{
	txU4 sum = fxSumEntry(the, key);
	txU4 index = sum & (table->value.table.length - 1);
	txSlot** address = &(table->value.table.address[index]);
	txSlot* entry = *address;
	txSlot* first;
	txSlot* last;
	while (entry) {
		if (entry->value.entry.sum == sum) {
			first = entry->value.entry.slot;
			if (fxTestEntry(the, first, key)) {
				if (pair) {
					last = first->next;
					if (get) {
						pair->kind = last->kind;
						pair->value = last->value;
					}
					else {
						last->kind = pair->kind;
						last->value = pair->value;
					}
				}
				return;
			}
		}
		entry = entry->next;
	}
	first = fxNewSlot(the);
	first->kind = key->kind;
	first->value = key->value;
	mxPushClosure(first);
	if (pair) {
		first->next = last = fxNewSlot(the);
		last->kind = pair->kind;
		last->value = pair->value;
		mxPushClosure(last);
	}
	entry = fxNewSlot(the);
	address = &(table->value.table.address[index]);
	entry->next = *address;
	entry->kind = XS_ENTRY_KIND;
	entry->value.entry.slot = first;
	entry->value.entry.sum = sum;
	*address = entry;
	if (list->value.list.last)
		list->value.list.last->next = first;
	else
		list->value.list.first = first;
	if (pair)
		list->value.list.last = last;
	else
		list->value.list.last = first;
	if (pair)
		mxPop();
	mxPop();
	list->next->value.integer++;
	fxResizeEntries(the, table, list);