Function fx_BigInt_asUintN

xs/sources/xsBigInt.c:177–198

}

void fx_BigInt_asUintN(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_sub(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);
		result = fxBigInt_fit(the, result);
	}
	mxResult->value.bigint = *result;
	mxResult->kind = XS_BIGINT_KIND;
// 	fxToBigInt(the, mxArgv(1), 1);
// 	mxResult->value.bigint = *fxBigInt_mod(the, C_NULL, &mxArgv(1)->value.bigint, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index));
// 	mxResult->kind = XS_BIGINT_KIND;
}

void fx_BigInt_bitLength(txMachine *the)
{