diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-01-08 23:00:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-01-08 23:00:06 (GMT) |
| commit | f7076c6ce8636bde09c21ad46a580f865479ce65 (patch) | |
| tree | 9453d1179d3c7ba1592d4736ea9ceb13ebf7fa8d /generic/tclStringObj.c | |
| parent | 4afa38297142ce01a7e51a45b67a051b6244f8f7 (diff) | |
| parent | 8ef7bd41b66cc77db4b4f07d09ed1faf96ab43c8 (diff) | |
| download | tcl-f7076c6ce8636bde09c21ad46a580f865479ce65.zip tcl-f7076c6ce8636bde09c21ad46a580f865479ce65.tar.gz tcl-f7076c6ce8636bde09c21ad46a580f865479ce65.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 3bee1de..3de29ef 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2270,7 +2270,7 @@ Tcl_AppendFormatToObj( uw /= base; } #endif - } else if (useBig && big.used) { + } else if (useBig && !mp_iszero(&big)) { int leftover = (big.used * MP_DIGIT_BIT) % numBits; mp_digit mask = (~(mp_digit)0) << (MP_DIGIT_BIT-leftover); @@ -2309,7 +2309,7 @@ Tcl_AppendFormatToObj( while (numDigits--) { int digitOffset; - if (useBig && big.used) { + if (useBig && !mp_iszero(&big)) { if (index < big.used && (size_t) shift < CHAR_BIT*sizeof(Tcl_WideUInt) - MP_DIGIT_BIT) { bits |= ((Tcl_WideUInt) big.dp[index++]) << shift; |