diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-27 21:12:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-27 21:12:00 (GMT) |
| commit | b31a3b3d706e0d1b5b93f5d33098273d7354c66f (patch) | |
| tree | 4b2a7b2973f9fc4b923ea816042a33301df6ec7d /generic/tclStrToD.c | |
| parent | fa036d2b99727547f299a146d44fa5f7a1d74089 (diff) | |
| parent | 9a809e614ae7603730d8cc5f60b454b66dffa972 (diff) | |
| download | tcl-b31a3b3d706e0d1b5b93f5d33098273d7354c66f.zip tcl-b31a3b3d706e0d1b5b93f5d33098273d7354c66f.tar.gz tcl-b31a3b3d706e0d1b5b93f5d33098273d7354c66f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 5cf6969..147f96b 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -4633,7 +4633,7 @@ TclCeil( mp_int b; mp_init(&b); - if (mp_cmp_d(a, 0) == MP_LT) { + if (mp_isneg(a)) { mp_neg(a, &b); r = -TclFloor(&b); } else { @@ -4690,7 +4690,7 @@ TclFloor( mp_int b; mp_init(&b); - if (mp_cmp_d(a, 0) == MP_LT) { + if (mp_isneg(a)) { mp_neg(a, &b); r = -TclCeil(&b); } else { |