Function fxBigInt_ulsr1

xs/sources/xsBigInt.c:1315–1343

}

txBigInt *fxBigInt_ulsr1(txMachine* the, txBigInt *r, txBigInt *a, txU4 sw)
{
	int wsz, bsz;
	int i, n;

	wsz = sw / mxBigIntWordSize;
	bsz = sw % mxBigIntWordSize;
	n = a->size - wsz;
	if (n <= 0) {
		if (r == NULL) r = fxBigInt_alloc(the, 1);
		r->size = 1;
		r->data[0] = 0;
		return(r);
	}
	/* 'r' can be the same as 'a' */
	if (r == NULL)
		r = fxBigInt_alloc(the, n);
	if (bsz == 0) {
		c_memmove(r->data, &a->data[wsz], n * sizeof(txU4));
		r->size = n;
	}
	else {
		for (i = 0; i < n - 1; i++)
			r->data[i] = (a->data[i + wsz] >> bsz) | (a->data[i + wsz + 1] << (mxBigIntWordSize - bsz));
		r->data[i] = a->data[i + wsz] >> bsz;
		r->size = (n > 1 && r->data[n - 1] == 0) ? n - 1: n;
	}
	return(r);
}

txBigInt *fxBigInt_nop(txMachine* the, txBigInt *r, txBigInt *a, txBigInt *b)
{