Function fxToBigInt

xs/sources/xsBigInt.c:827–865

}

txBigInt* fxToBigInt(txMachine* the, txSlot* slot, txFlag strict)
{
again:
	switch (slot->kind) {
	case XS_BOOLEAN_KIND:
		slot->value.bigint = *fxBigInt_dup(the, (txBigInt *)((slot->value.boolean) ? &gxBigIntOne : &gxBigIntZero));
		slot->kind = XS_BIGINT_KIND;
		break;
	case XS_INTEGER_KIND:
		if (strict)
			mxTypeError("cannot coerce number to bigint");
		fxIntegerToBigInt(the, slot);	
		break;
	case XS_NUMBER_KIND:
		if (strict)
			mxTypeError("cannot coerce number to bigint");
		fxNumberToBigInt(the, slot);	
		break;
	case XS_STRING_KIND:
	case XS_STRING_X_KIND:
		fxStringToBigInt(the, slot, 1);
		if (mxBigIntIsNaN(&slot->value.bigint))
			mxSyntaxError("cannot coerce string to bigint");
		break;
	case XS_BIGINT_KIND:
	case XS_BIGINT_X_KIND:
		break;
	case XS_SYMBOL_KIND:
		mxTypeError("cannot coerce symbol to bigint");
		break;
	case XS_REFERENCE_KIND:
		fxToPrimitive(the, slot, XS_NUMBER_HINT);
		goto again;
	default:
		mxTypeError("cannot coerce to bigint");
		break;
	}
	return &slot->value.bigint;
}

void fxFromBigInt64(txMachine* the, txSlot* slot, txS8 it)
{