Function fx_BigInt_asIntN

xs/sources/xsBigInt.c:149–175

}

void fx_BigInt_asIntN(txMachine* the)
{
	txInteger index = (txInteger)fx_BigInt_asAux(the);
	txBigInt* arg = fxToBigInt(the, mxArgv(1), 1);
	txBigInt* result;
	if (fxBigInt_iszero(arg)) {
		result = fxBigInt_dup(the, arg);
	}
	else {
		txBigInt* bits = fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index);
		txBigInt* mask = fxBigInt_usub(the, C_NULL, bits, (txBigInt *)&gxBigIntOne);
		result = fxBigInt_uand(the, C_NULL, arg, mask);
		if ((arg->sign) && !fxBigInt_iszero(result))
			result = fxBigInt_usub(the, C_NULL, bits, result);
		if (index && fxBigInt_comp(result, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index - 1)) >= 0)
			result = fxBigInt_sub(the, C_NULL, result, bits);
		result = fxBigInt_fit(the, result);
	}
	mxResult->value.bigint = *result;
	mxResult->kind = XS_BIGINT_KIND;
// 	txBigInt* bits = fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index);
// 	txBigInt* result = fxBigInt_mod(the, C_NULL, fxToBigInt(the, mxArgv(1), 1), bits);
// 	if (index && fxBigInt_comp(result, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index - 1)) >= 0)
// 		result = fxBigInt_sub(the, C_NULL, result, bits);
// 	mxResult->value.bigint = *result;
// 	mxResult->kind = XS_BIGINT_KIND;
}

void fx_BigInt_asUintN(txMachine* the)
{