mpsetupl();
mpfr_clear_flags();
- mpfr_set_d(mx, p->x, MPFR_RNDN);
- mpfr_set_d(mx2, p->x2, MPFR_RNDN);
+ mpfr_set_ld(mx, p->x, MPFR_RNDN);
+ mpfr_set_ld(mx2, p->x2, MPFR_RNDN);
tn = fmp(my, mx, mx2, r);
genl(p, my, tn, r);
if ((p->e & INEXACT) && nextafterl(p->y, 0) == 0) {