Function fxBigInt_ulsl1

xs/sources/xsBigInt.c:1267–1294

}

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

	wsz = sw / mxBigIntWordSize;
	bsz = sw % mxBigIntWordSize;
	n = a->size + wsz + ((bsz == 0) ? 0 : 1);
	if (r == NULL) 
		r = fxBigInt_alloc(the, n);
	if (bsz == 0) {
		c_memmove(&r->data[wsz], a->data, a->size * sizeof(txU4));
		c_memset(r->data, 0, wsz * sizeof(txU4));
		r->size = a->size + wsz;
	}
	else {
		r->data[a->size + wsz] = a->data[a->size - 1] >> (mxBigIntWordSize - bsz);
		for (n = a->size; --n >= 1;)
			r->data[n + wsz] = (a->data[n] << bsz) | (a->data[n - 1] >> (mxBigIntWordSize - bsz));
		r->data[wsz] = a->data[0] << bsz;
		/* clear the remaining part */
		for (n = wsz; --n >= 0;)
			r->data[n] = 0;
		/* adjust r */
		r->size = a->size + wsz + (r->data[a->size + wsz] == 0 ? 0: 1);
	}
	return(r);
}

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