diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-28 22:49:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-28 22:49:59 (GMT) |
| commit | d1a1ae51945536e507e81359e7614cbe2b46b637 (patch) | |
| tree | 434e9b63f193d57379ed03e1be8b36e00007d021 /generic/tclExecute.c | |
| parent | 388ed8fba7742f409a647c0a636e8376c587927c (diff) | |
| parent | 0817b5a4ef4f44daedf4a1c82e5f63c0641be1c3 (diff) | |
| download | tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.zip tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.tar.gz tcl-d1a1ae51945536e507e81359e7614cbe2b46b637.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 903e8d7..680bdd0 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8400,7 +8400,11 @@ ExecuteExtendedBinaryMathOp( overflowExpon: Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); - if (big2.used > 1) { + if ((big2.used > 1) +#if DIGIT_BIT > 28 + || ((big2.used == 1) && (big2.dp[0] >= (1<<28))) +#endif + ) { mp_clear(&big2); Tcl_SetObjResult(interp, Tcl_NewStringObj( "exponent too large", -1)); |