Lines Matching defs:exp
73 uint32 exp = (hl >> 52) & 0x7ff;
76 if (exp == 0x7ff) {
81 } else if (exp == 0 && mantissa == 0) {
85 if (exp != 0)
88 exp++;
89 mpfr_set_sj_2exp(x, mantissa * sign, (int)exp - 0x3ff - 52, GMP_RNDN);
94 uint32 exp = (f >> 23) & 0xff;
97 if (exp == 0xff) {
102 } else if (exp == 0 && mantissa == 0) {
106 if (exp != 0)
109 exp++;
110 mpfr_set_sj_2exp(x, mantissa * sign, (int)exp - 0x7f - 23, GMP_RNDN);
139 int exp;
166 exp = mpfr_get_exp(significand);
169 /* Now significand is in [1/2,1), and significand * 2^exp == x.
170 * So the IEEE exponent corresponding to exp==0 is 0x3fe. */
171 if (exp > 0x400) {
180 if (exp <= -0x3fe || mpfr_zero_p(x))
181 exp = -0x3fd; /* denormalise */
182 expfield = exp + 0x3fd; /* offset to cancel leading mantissa bit */
184 mpfr_div_2si(significand, x, exp - 21, GMP_RNDN);
203 int exp;
227 exp = mpfr_get_exp(significand);
230 /* Now significand is in [1/2,1), and significand * 2^exp == x.
231 * So the IEEE exponent corresponding to exp==0 is 0x7e. */
232 if (exp > 0x80) {
240 if (exp <= -0x7e || mpfr_zero_p(x))
241 exp = -0x7d; /* denormalise */
242 expfield = exp + 0x7d; /* offset to cancel leading mantissa bit */
244 mpfr_div_2si(significand, x, exp - 24, GMP_RNDN);
512 * The exponentials: exp, sinh, cosh. They overflow at around
513 * 710. exp and sinh are boring below 2^-54, cosh below 2^-27.
515 {"exp", (funcptr)mpfr_exp, args1, {NULL},