ref: e3a4e2d595c94744e71667c64d4497c9fab9ae0d
dir: /libmp/mpmod.c/
#include "os.h"
#include <mp.h>
#include "dat.h"
void
mpmod(mpint *x, mpint *n, mpint *r)
{
int sign;
mpint *ns;
sign = x->sign;
ns = sign < 0 && n == r ? mpcopy(n) : n;
if((n->flags & MPfield) == 0
|| ((Mfield*)n)->reduce((Mfield*)n, x, r) != 0)
mpdiv(x, n, nil, r);
if(sign < 0){
mpmagsub(ns, r, r);
if(ns != n) mpfree(ns);
}
}