Function fxBigInt_lsr

xs/sources/xsBigInt.c:1296–1313

}

txBigInt *fxBigInt_lsr(txMachine* the, txBigInt *r, txBigInt *a, txBigInt *b)
{
	if (b->sign) {
		r = fxBigInt_ulsl1(the, r, a, b->data[0]);
		r->sign = a->sign;
	}
	else {
		if (a->sign) {
			r = fxBigInt_ulsr1(the, r, a, b->data[0]);
            if (b->data[0])
                r = fxBigInt_uadd(the, C_NULL, r, (txBigInt *)&gxBigIntOne);
			r->sign = 1;
		}
		else
			r = fxBigInt_ulsr1(the, r, a, b->data[0]);
	}
	return fxBigInt_fit(the, r);
}

txBigInt *fxBigInt_ulsr1(txMachine* the, txBigInt *r, txBigInt *a, txU4 sw)
{