Function fxBigInt_mod

xs/sources/xsBigInt.c:1735–1749

}

txBigInt *fxBigInt_mod(txMachine* the, txBigInt *r, txBigInt *a, txBigInt *b)
{
	txBigInt *q;
	mxBigInt_meter(((a->size - b->size) * (a->size + b->size)));
	if (r == NULL)
		r = fxBigInt_alloc(the, a->sign ? b->size : MIN(a->size, b->size));
	q = fxBigInt_udiv(the, NULL, a, b, &r);
	if (a->sign) {
		if (!fxBigInt_iszero(r))
			r = fxBigInt_sub(the, r, b, r);
	}
	fxBigInt_free(the, q);
	mxBigInt_meter(r->size);
	return(r);
}

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