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 | SQL 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 |
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 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) {
mp_clear(&big2);
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"exponent too large", -1));
return GENERAL_ARITHMETIC_ERROR;
}
Tcl_TakeBignumFromObj(NULL, valuePtr, &big1);
mp_init(&bigResult);
|
| |
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);
|