Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Use mp_init_set() in stead of mp_init_set_int() when the constant is sufficiently small. This is slightly better optimized. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA3-256: |
f1709a0cfe0803385c02188c67d67d20 |
User & Date: | jan.nijtmans 2019-06-15 22:30:59.105 |
Context
2019-06-25
| ||
16:09 | fixed build with MSVC 6.0 check-in: f8e839fa90 user: sebres tags: core-8-5-branch | |
2019-06-15
| ||
22:31 | Merge 8.5 check-in: 7a96d24542 user: jan.nijtmans tags: core-8-6-branch | |
22:30 | Use mp_init_set() in stead of mp_init_set_int() when the constant is sufficiently small. This is sli... check-in: f1709a0cfe user: jan.nijtmans tags: core-8-5-branch | |
2019-06-11
| ||
15:30 | Fix [25deec4e46]: Tcl fails to compile with icc due to typedef conflict check-in: 41c4d6a337 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to generic/tclStrToD.c.
︙ | ︙ | |||
3259 3260 3261 3262 3263 3264 3265 | /* * b = bw * 2**b2 * 5**b5 * mminus = 5**m5 */ TclBNInitBignumFromWideUInt(&b, bw); | | | 3259 3260 3261 3262 3263 3264 3265 3266 3267 3268 3269 3270 3271 3272 3273 | /* * b = bw * 2**b2 * 5**b5 * mminus = 5**m5 */ TclBNInitBignumFromWideUInt(&b, bw); mp_init_set(&mminus, 1); MulPow5(&b, b5, &b); mp_mul_2d(&b, b2, &b); /* Adjust if the logarithm was guessed wrong */ if (b.used <= sd) { mp_mul_d(&b, 10, &b); |
︙ | ︙ | |||
3662 3663 3664 3665 3666 3667 3668 | /* * b = bw * 2**b2 * 5**b5 * S = 2**s2 * 5*s5 */ TclBNInitBignumFromWideUInt(&b, bw); mp_mul_2d(&b, b2, &b); | | | | 3662 3663 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3692 3693 | /* * b = bw * 2**b2 * 5**b5 * S = 2**s2 * 5*s5 */ TclBNInitBignumFromWideUInt(&b, bw); mp_mul_2d(&b, b2, &b); mp_init_set(&S, 1); MulPow5(&S, s5, &S); mp_mul_2d(&S, s2, &S); /* * Handle the case where we guess the position of the decimal point * wrong. */ if (mp_cmp_mag(&b, &S) == MP_LT) { mp_mul_d(&b, 10, &b); minit = 10; ilim =ilim1; --k; } /* mminus = 2**m2minus * 5**m5 */ mp_init_set(&mminus, minit); mp_mul_2d(&mminus, m2minus, &mminus); if (m2plus > m2minus) { mp_init_copy(&mplus, &mminus); mp_mul_2d(&mplus, m2plus-m2minus, &mplus); } mp_init(&temp); |
︙ | ︙ | |||
3875 3876 3877 3878 3879 3880 3881 | * b = bw * 2**b2 * 5**b5 * S = 2**s2 * 5*s5 */ mp_init_multi(&temp, &dig, NULL); TclBNInitBignumFromWideUInt(&b, bw); mp_mul_2d(&b, b2, &b); | | | 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 | * b = bw * 2**b2 * 5**b5 * S = 2**s2 * 5*s5 */ mp_init_multi(&temp, &dig, NULL); TclBNInitBignumFromWideUInt(&b, bw); mp_mul_2d(&b, b2, &b); mp_init_set(&S, 1); MulPow5(&S, s5, &S); mp_mul_2d(&S, s2, &S); /* * Handle the case where we guess the position of the decimal point * wrong. */ |
︙ | ︙ |