Function fxNewSetInstance

xs/sources/xsMapSet.c:615–648

}

txSlot* fxNewSetInstance(txMachine* the, txInteger tableLength)
{
	txSlot* set;
	txSlot* table;
	txSlot* list;
	txSlot* size;
	txSlot** address;
	set = fxNewSlot(the);
	set->kind = XS_INSTANCE_KIND;
	set->value.instance.garbage = C_NULL;
	set->value.instance.prototype = the->stack->value.reference;
	the->stack->kind = XS_REFERENCE_KIND;
	the->stack->value.reference = set;
	table = set->next = fxNewSlot(the);
	list = table->next = fxNewSlot(the);
	size = list->next = fxNewSlot(the);
	address = (txSlot**)fxNewChunk(the, tableLength * sizeof(txSlot*));
	c_memset(address, 0, tableLength * sizeof(txSlot*));
	/* TABLE */
	table->flag = XS_INTERNAL_FLAG;
	table->kind = XS_SET_KIND;
	table->value.table.address = address;
	table->value.table.length = tableLength;
	/* LIST */
	list->flag = XS_INTERNAL_FLAG;
	list->kind = XS_LIST_KIND;
	list->value.list.first = C_NULL;
	list->value.list.last = C_NULL;
	/* SIZE */
	size->flag = XS_INTERNAL_FLAG;
	size->kind = XS_INTEGER_KIND;
	size->value.integer = 0;
 	return set;
}

void fxNewSetResult(txMachine* the, txSlot* table, txSlot* list, txSlot** tableAddress, txSlot** listAddress)
{