46   mpfr_t tmp1, tmp2;  in mpfr_log()  local
119   MPFR_GROUP_INIT_2 (group, p, tmp1, tmp2);  in mpfr_log()
146       mpfr_div (tmp1, __gmpfr_four, scaled_a, MPFR_RNDF); /* 4/s, err<=2 ulps */  in mpfr_log()
147       mpfr_agm (tmp2, __gmpfr_one, tmp1, MPFR_RNDN); /* AG(1,4/s),err<=3 ulps */  in mpfr_log()
149       mpfr_const_pi (tmp1, MPFR_RNDN);         /* compute pi,     err<=1ulp   */  in mpfr_log()
150       mpfr_div (tmp2, tmp1, tmp2, MPFR_RNDN);  /* pi/2*AG(1,4/s), err<=5ulps  */  in mpfr_log()
151       mpfr_const_log2 (tmp1, MPFR_RNDN);      /* compute log(2),  err<=1ulp   */  in mpfr_log()
152       mpfr_mul_si (tmp1, tmp1, m, MPFR_RNDN); /* compute m*log(2),err<=2ulps  */  in mpfr_log()
153       mpfr_sub (tmp1, tmp2, tmp1, MPFR_RNDN); /* log(a),    err<=7ulps+cancel */  in mpfr_log()
155       if (MPFR_LIKELY (MPFR_IS_PURE_FP (tmp1) && MPFR_IS_PURE_FP (tmp2)))  in mpfr_log()
157           cancel = MPFR_GET_EXP (tmp2) - MPFR_GET_EXP (tmp1);  in mpfr_log()
159           MPFR_LOG_VAR (tmp1);  in mpfr_log()
166           if (MPFR_LIKELY (MPFR_CAN_ROUND (tmp1, p - cancel - 4, q, rnd_mode)))  in mpfr_log()
182       MPFR_GROUP_REPREC_2 (group, p, tmp1, tmp2);  in mpfr_log()
185   inexact = mpfr_set (r, tmp1, rnd_mode);  in mpfr_log()