Function fxNewMapInstance

xs/sources/xsMapSet.c:240–273

}

txSlot* fxNewMapInstance(txMachine* the)
{
	txSlot* map;
	txSlot* table;
	txSlot* list;
	txSlot* size;
	txSlot** address;
	map = fxNewSlot(the);
	map->kind = XS_INSTANCE_KIND;
	map->value.instance.garbage = C_NULL;
	map->value.instance.prototype = the->stack->value.reference;
	the->stack->kind = XS_REFERENCE_KIND;
	the->stack->value.reference = map;
	table = map->next = fxNewSlot(the);
	list = table->next = fxNewSlot(the);
	size = list->next = fxNewSlot(the);
	address = (txSlot**)fxNewChunk(the, mxTableMinLength * sizeof(txSlot*));
	c_memset(address, 0, mxTableMinLength * sizeof(txSlot*));
	/* TABLE */
	table->flag = XS_INTERNAL_FLAG;
	table->kind = XS_MAP_KIND;
	table->value.table.address = address;
	table->value.table.length = mxTableMinLength;
	/* 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 map;
}

void fx_Map(txMachine* the)
{