Function fxDeleteEntry

xs/sources/xsMapSet.c:1093–1126

}

txBoolean fxDeleteEntry(txMachine* the, txSlot* table, txSlot* list, txSlot* key, txBoolean paired, txBoolean fit) 
{
	txSlot* info = list->next;
	txU4 sum = fxSumEntry(the, key);
	txU4 index = sum & (table->value.table.length - 1);
	txSlot** address = &(table->value.table.address[index]);
	txSlot* entry;
	txSlot* first;
	txSlot* last;
	while ((entry = *address)) {
		if (entry->value.entry.sum == sum) {
			first = entry->value.entry.slot;
			if (fxTestEntry(the, first, key)) {
				*address = entry->next;
				entry->next = C_NULL;
				first->flag = XS_DONT_ENUM_FLAG;
				first->kind = XS_UNDEFINED_KIND;
				if (paired) {
					last = first->next;
					last->flag = XS_DONT_ENUM_FLAG;
					last->kind = XS_UNDEFINED_KIND;
				}
				info->value.integer--;
				if (fit) {
					fxResizeEntries(the, table, list);
					fxPurgeEntries(the, list);
				}
				return 1;
			}
		}
		address = &entry->next;
	}
	return 0;
}

txSlot* fxGetEntry(txMachine* the, txSlot* table, txSlot* slot) 
{