diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-08 13:16:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-08 13:16:49 (GMT) |
| commit | 0c195b760ab6ef40333dd9543eba6cfce332af39 (patch) | |
| tree | 8767d8c9972883e5ed6daba2800860cb5125df83 /generic/tclExecute.c | |
| parent | 49a7184962b241204447d10cb9546f514237c344 (diff) | |
| parent | 0df818c01fec80789e1b6b0e5182d5a321bcd171 (diff) | |
| download | tcl-0c195b760ab6ef40333dd9543eba6cfce332af39.zip tcl-0c195b760ab6ef40333dd9543eba6cfce332af39.tar.gz tcl-0c195b760ab6ef40333dd9543eba6cfce332af39.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 84ae1d5..8bc83cc 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8111,7 +8111,7 @@ ExecuteExtendedBinaryMathOp( mp_init(&bigResult); mp_init(&bigRemainder); mp_div(&big1, &big2, &bigResult, &bigRemainder); - if ((bigRemainder.used != 0) && (bigRemainder.sign != big2.sign)) { + if (!mp_iszero(&bigRemainder) && (bigRemainder.sign != big2.sign)) { /* * Convert to Tcl's integer division rules. */ @@ -8342,7 +8342,7 @@ ExecuteExtendedBinaryMathOp( Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); negativeExponent = mp_isneg(&big2); mp_mod_2d(&big2, 1, &big2); - oddExponent = big2.used != 0; + oddExponent = !mp_iszero(&big2); mp_clear(&big2); } @@ -8659,7 +8659,7 @@ ExecuteExtendedBinaryMathOp( mp_mul(&big1, &big2, &bigResult); break; case INST_DIV: - if (big2.used == 0) { + if (mp_iszero(&big2)) { mp_clear(&big1); mp_clear(&big2); mp_clear(&bigResult); @@ -8668,7 +8668,7 @@ ExecuteExtendedBinaryMathOp( mp_init(&bigRemainder); mp_div(&big1, &big2, &bigResult, &bigRemainder); /* TODO: internals intrusion */ - if ((bigRemainder.used != 0) + if (!mp_iszero(&bigRemainder) && (bigRemainder.sign != big2.sign)) { /* * Convert to Tcl's integer division rules. |