Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Additional protection for ridiculously big exponents, in case libtommath is compiled with DIGIT_BIT=60 in stead of 28. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | core-8-branch |
Files: | files | file ages | folders |
SHA3-256: |
642b1d24081290e42420c2fb8c723925 |
User & Date: | jan.nijtmans 2019-03-26 16:22:22.860 |
Context
2019-03-26
| ||
22:23 | Update TZ info to tzdata2019a. check-in: 3e4a156ecf user: jima tags: core-8-branch | |
16:22 | Additional protection for ridiculously big exponents, in case libtommath is compiled with DIGIT_BIT=... check-in: 642b1d2408 user: jan.nijtmans tags: core-8-branch | |
2019-03-25
| ||
21:52 | merge-mark check-in: 5972fb41aa user: jan.nijtmans tags: core-8-branch | |
Changes
Changes to generic/tclExecute.c.
︙ | ︙ | |||
8396 8397 8398 8399 8400 8401 8402 | wResult = oddExponent ? -Exp64Value[base] : Exp64Value[base]; WIDE_RESULT(wResult); } } overflowExpon: Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); | | | 8396 8397 8398 8399 8400 8401 8402 8403 8404 8405 8406 8407 8408 8409 8410 | wResult = oddExponent ? -Exp64Value[base] : Exp64Value[base]; WIDE_RESULT(wResult); } } overflowExpon: Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); if ((big2.used > 1) || (big2.used == 1 && big2.dp[0] > (1<<28))) { mp_clear(&big2); Tcl_SetObjResult(interp, Tcl_NewStringObj( "exponent too large", -1)); return GENERAL_ARITHMETIC_ERROR; } Tcl_TakeBignumFromObj(NULL, valuePtr, &big1); mp_init(&bigResult); |
︙ | ︙ |