arb/mprb/get_mid_mpfr.c
2012-08-07 14:37:10 +02:00

11 lines
318 B
C

#include "mprb.h"
/* XXX: signs! */
void
mprb_get_mid_mpfr(mpfr_t x, const mprb_t v, mpfr_rnd_t rnd)
{
if ((v->mid.size == 1) && (v->mid.d[0] == 0))
mpfr_set_ui(x, 0, MPFR_RNDD);
else
_mpr_get_mpfr_signed(x, v->mid.d, v->mid.exp, v->mid.size, (v->mid.sign == MPRB_SIGN_PLUS) ? 1 : -1, rnd);
}