diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-08 12:51:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-08 12:51:29 (GMT) |
| commit | 0df818c01fec80789e1b6b0e5182d5a321bcd171 (patch) | |
| tree | cbaa9086b802260443c68afdf221cdeccec91d4a /generic/tclExecute.c | |
| parent | 6dcb4cb65c8f36fa851d95eca2a23fb580d82db2 (diff) | |
| parent | 3b3abe0ce145a48c4426746f839aa29867e5991b (diff) | |
| download | tcl-0df818c01fec80789e1b6b0e5182d5a321bcd171.zip tcl-0df818c01fec80789e1b6b0e5182d5a321bcd171.tar.gz tcl-0df818c01fec80789e1b6b0e5182d5a321bcd171.tar.bz2 | |
Use _copysign on Windows always (available from float.h). Use mp_iszero() whenever appropriate.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 20e2c34..3c2816c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8804,7 +8804,7 @@ ExecuteExtendedBinaryMathOp( Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); negativeExponent = (mp_cmp_d(&big2, 0) == MP_LT); mp_mod_2d(&big2, 1, &big2); - oddExponent = big2.used != 0; + oddExponent = !mp_iszero(&big2); mp_clear(&big2); break; } @@ -9192,7 +9192,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); @@ -9201,7 +9201,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. |