138     mpfr_t significand;  in get_mpfr_d()  local
164     mpfr_init2(significand, MPFR_PREC);  in get_mpfr_d()
165     mpfr_set(significand, x, GMP_RNDN);  in get_mpfr_d()
166     exp = mpfr_get_exp(significand);  in get_mpfr_d()
167     mpfr_set_exp(significand, 0);  in get_mpfr_d()
176         mpfr_clear(significand);  in get_mpfr_d()
184     mpfr_div_2si(significand, x, exp - 21, GMP_RNDN);  in get_mpfr_d()
185     mpfr_abs(significand, significand, GMP_RNDN);  in get_mpfr_d()
186     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
188     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_d()
189     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_d()
190     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
192     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_d()
193     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_d()
194     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
197     mpfr_clear(significand);  in get_mpfr_d()
202     mpfr_t significand;  in get_mpfr_f()  local
225     mpfr_init2(significand, MPFR_PREC);  in get_mpfr_f()
226     mpfr_set(significand, x, GMP_RNDN);  in get_mpfr_f()
227     exp = mpfr_get_exp(significand);  in get_mpfr_f()
228     mpfr_set_exp(significand, 0);  in get_mpfr_f()
236         mpfr_clear(significand);  in get_mpfr_f()
244     mpfr_div_2si(significand, x, exp - 24, GMP_RNDN);  in get_mpfr_f()
245     mpfr_abs(significand, significand, GMP_RNDN);  in get_mpfr_f()
246     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_f()
248     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_f()
249     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_f()
250     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_f()
253     mpfr_clear(significand);  in get_mpfr_f()