245 |
to hold the suppressed trailing zeros. |
to hold the suppressed trailing zeros. |
246 |
*/ |
*/ |
247 |
|
|
248 |
int bbits, b2, b5, be, dig, i, ieps, ilim, ilim0, ilim1, j, j1, k, k0, |
int bbits, b2, b5, be, dig, i, ieps, ilim0, j, j1, k, k0, |
249 |
k_check, leftright, m2, m5, s2, s5, spec_case, try_quick; |
k_check, leftright, m2, m5, s2, s5, try_quick; |
250 |
|
int ilim = 0, ilim1 = 0, spec_case = 0; |
251 |
union double_union d, d2, eps; |
union double_union d, d2, eps; |
252 |
long L; |
long L; |
253 |
#ifndef Sudden_Underflow |
#ifndef Sudden_Underflow |
254 |
int denorm; |
int denorm; |
255 |
unsigned long x; |
unsigned long x; |
256 |
#endif |
#endif |
257 |
_Jv_Bigint *b, *b1, *delta, *mlo, *mhi, *S; |
_Jv_Bigint *b, *b1, *delta, *mlo = NULL, *mhi, *S; |
258 |
double ds; |
double ds; |
259 |
char *s, *s0; |
char *s, *s0; |
260 |
|
|