OpenGrok

1 /* Split a double into fraction and mantissa.
41 # define DOUBLE long double
49 # define DOUBLE double
57 DOUBLE
58 FUNC (DOUBLE x, int *expptr)
83     DOUBLE pow2[64]; /* pow2[i] = 2^2^i */
84     DOUBLE powh[64]; /* powh[i] = 2^-2^i */
91         DOUBLE pow2_i; /* = pow2[i] */
92         DOUBLE powh_i; /* = powh[i] */
125         DOUBLE pow2_i; /* = pow2[i] */
126         DOUBLE powh_i; /* = powh[i] */

Indexes created Fri May 08 00:25:09 UTC 2026