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/tclBasic.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/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 42a1ccf..16e2e20 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6943,7 +6943,7 @@ ExprAbsFunc( } if (type == TCL_NUMBER_BIG) { - if (mp_cmp_d((const mp_int *) ptr, 0) == MP_LT) { + if (mp_isneg((const mp_int *) ptr)) { Tcl_GetBignumFromObj(NULL, objv[1], &big); tooLarge: mp_neg(&big, &big); |