OLD | NEW |
1 /**************************************************************** | 1 /**************************************************************** |
2 * | 2 * |
3 * The author of this software is David M. Gay. | 3 * The author of this software is David M. Gay. |
4 * | 4 * |
5 * Copyright (c) 1991, 2000, 2001 by Lucent Technologies. | 5 * Copyright (c) 1991, 2000, 2001 by Lucent Technologies. |
6 * | 6 * |
7 * Permission to use, copy, modify, and distribute this software for any | 7 * Permission to use, copy, modify, and distribute this software for any |
8 * purpose without fee is hereby granted, provided that this entire notice | 8 * purpose without fee is hereby granted, provided that this entire notice |
9 * is included in all copies of any software which is or includes a copy | 9 * is included in all copies of any software which is or includes a copy |
10 * or modification of this software and in all copies of the supporting | 10 * or modification of this software and in all copies of the supporting |
(...skipping 1517 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1528 { | 1528 { |
1529 #ifdef Avoid_Underflow | 1529 #ifdef Avoid_Underflow |
1530 int scale; | 1530 int scale; |
1531 #endif | 1531 #endif |
1532 int bb2, bb5, bbe, bd2, bd5, bbbits, bs2, c, dsign, | 1532 int bb2, bb5, bbe, bd2, bd5, bbbits, bs2, c, dsign, |
1533 e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign; | 1533 e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign; |
1534 CONST char *s, *s0, *s1; | 1534 CONST char *s, *s0, *s1; |
1535 double aadj, aadj1, adj, rv, rv0; | 1535 double aadj, aadj1, adj, rv, rv0; |
1536 Long L; | 1536 Long L; |
1537 ULong y, z; | 1537 ULong y, z; |
1538 » Bigint *bb, *bb1, *bd, *bd0, *bs, *delta; | 1538 » Bigint *bb = NULL, *bb1, *bd = NULL, *bd0, *bs = NULL, *delta = NULL; |
1539 #ifdef SET_INEXACT | 1539 #ifdef SET_INEXACT |
1540 int inexact, oldinexact; | 1540 int inexact, oldinexact; |
1541 #endif | 1541 #endif |
1542 #ifdef Honor_FLT_ROUNDS | 1542 #ifdef Honor_FLT_ROUNDS |
1543 int rounding; | 1543 int rounding; |
1544 #endif | 1544 #endif |
1545 #ifdef USE_LOCALE | 1545 #ifdef USE_LOCALE |
1546 CONST char *s2; | 1546 CONST char *s2; |
1547 #endif | 1547 #endif |
1548 | 1548 |
(...skipping 1766 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
3315 Bfree(b); | 3315 Bfree(b); |
3316 *s = 0; | 3316 *s = 0; |
3317 *decpt = k + 1; | 3317 *decpt = k + 1; |
3318 if (rve) | 3318 if (rve) |
3319 *rve = s; | 3319 *rve = s; |
3320 return s0; | 3320 return s0; |
3321 } | 3321 } |
3322 #ifdef __cplusplus | 3322 #ifdef __cplusplus |
3323 } | 3323 } |
3324 #endif | 3324 #endif |
OLD | NEW |