diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-05 17:18:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-05 17:18:14 (GMT) |
| commit | 1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9 (patch) | |
| tree | ea54c3809ffda2a5ab58411219b83791855bb0ad /generic/tclStrToD.c | |
| parent | a9e916f1b99088ecc8185ace75245d6801aebaf6 (diff) | |
| parent | 4d47b7f97f1448f48096511c8dff4bfffef17007 (diff) | |
| download | tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.zip tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.tar.gz tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.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 ac2ca68..0434919 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -4697,7 +4697,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 { @@ -4754,7 +4754,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 { |