Function fxVerifyError

xs/sources/xsLockdown.c:648–710

}

void fxVerifyError(txMachine* the, txSlot* path, txID id, txIndex index, txString string)
{
	txSlot* array;
	txSlot* slot;
	txSlot* stack;
	
	array = mxResult->value.reference->next;
	slot = fxNewSlot(the);
	slot->next = array->next;
	array->next = slot;
	array->value.array.length++;
	fxString(the, slot, "");
	
	stack = the->stack;
	while (path) {
		mxPushSlot(path);
		path = path->next;
	}
	while (the->stack < stack) {
		if (the->stack->kind == XS_STRING_X_KIND) {
			fxVerifyErrorString(the, slot, XS_NO_ID, 0, the->stack->value.string);
		}
		else {
			fxVerifyErrorString(the, slot, the->stack->value.at.id, the->stack->value.at.index, C_NULL);
		}
		mxPop();
	}
	fxVerifyErrorString(the, slot, id, index, string);
	
	
// 	current = path;
// 	next = C_NULL;
// 	previous = C_NULL;
// 	while (current) {
// 		next = current->next;
// 		current->next = previous;
// 		previous = current;
// 		current = next;
// 	}
// 	
// 	path = previous;
// 	current = path;
// 	while (current) {
// 		if (current->kind == XS_STRING_X_KIND) {
// 			fxVerifyErrorString(the, slot, XS_NO_ID, 0, current->value.string);
// 		}
// 		else {
// 			fxVerifyErrorString(the, slot, current->value.at.id, current->value.at.index, C_NULL);
// 		}
// 		current = current->next;
// 	}
// 	fxVerifyErrorString(the, slot, id, index, string);
// 	
// 	current = path;
// 	next = C_NULL;
// 	previous = C_NULL;
// 	while (current) {
// 		next = current->next;