Lines Matching defs:ed
111 mpfr_exp_t ec, ed, ey;
139 ed = ec;
143 ed = mpfr_get_z_exp (d, MPC_IM(x));
145 ec = ed;
147 /* x = c*2^ec + I * d*2^ed */
149 if (ec < ed)
151 mpz_mul_2exp (d, d, (unsigned long int) (ed - ec));
154 ed = ec;
156 else if (ed < ec)
158 mpz_mul_2exp (c, c, (unsigned long int) (ec - ed));
161 ec = ed;
163 /* now ec=ed and x = (c + I * d) * 2^ec */
254 ed = ec;
255 /* invariant: (a + I*b) * 2^ed = ((c + I*d) * 2^ec)^trunc(my/2^t) */
264 ed *= 2;
272 ed += ec;
279 ed += (mpfr_exp_t) w;
285 ed += (mpfr_exp_t) w;
295 ed += (mpfr_exp_t) w;
312 ed *= 2;
321 ed += (mpfr_exp_t) sa;
330 mpfr_mul_2si (MPC_RE(z), MPC_RE(z), ed, MPC_RND_RE(rnd));
331 mpfr_mul_2si (MPC_IM(z), MPC_IM(z), ed, MPC_RND_IM(rnd));