Function fxBigInt_umul

xs/sources/xsBigInt.c:1555–1588

}

txBigInt *fxBigInt_umul(txMachine* the, txBigInt *rr, txBigInt *aa, txBigInt *bb)
{
	txU8 a, b, r;
	txU4 *ap, *bp, *rp;
	txU4 c = 0;
	int i, j, n, m;

	if (rr == NULL)
		rr = fxBigInt_alloc(the, aa->size + bb->size);
	fxBigInt_fill0(rr);
	ap = aa->data;
	bp = bb->data;
	rp = rr->data;
	n = bb->size;
	for (i = 0, j = 0; i < n; i++) {
		b = (txU8)bp[i];
		c = 0;
		m = aa->size;
		for (j = 0; j < m; j++) {
			a = (txU8)ap[j];
			r = a * b + c;
			r += (txU8)rp[i + j];
			rp[i + j] = mxBigIntLowWord(r);
			c = mxBigIntHighWord(r);
		}
		rp[i + j] = c;
	}
	/* remove leading 0s */
	for (n = i + j; --n > 0 && rp[n] == 0;)
		;
	rr->size = n + 1;
	rr->sign = 0;
	return(rr);
}

txBigInt *fxBigInt_umul1(txMachine* the, txBigInt *r, txBigInt *a, txU4 b)
{