-static mp *ftpl(field *ff, mp *d, mp *x)
-{
- fctx *f = (fctx *)ff;
- MP_DEST(d, MP_LEN(x) + 1, x->f);
- MPX_UMULN(d->v, d->vl, x->v, x->vl, 3);
- while (MP_CMP(d, >, f->r.p))
- d = mp_sub(d, d, f->r.p);
+static mp *ftpl(field *ff, mp *d, mp *x) {
+ fctx_niceprime *f = (fctx_niceprime *)ff; MP_DEST(d, MP_LEN(x) + 1, x->f);
+ MPX_UMULN(d->v, d->vl, x->v, x->vl, 3); d->f &= ~MP_UNDEF;
+ while (MP_CMP(d, >=, f->r.p)) d = mp_sub(d, d, f->r.p);