diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-30 21:34:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-30 21:34:02 (GMT) |
| commit | 5ae87ec20df1d7c0029694f15837f9634117a5b8 (patch) | |
| tree | 6e21bb4b7df5f14e1fe55cd0dabb8e45767bc960 /generic/tclBasic.c | |
| parent | 24a5107484c12a34a855d444aa9b8e26b4ec252a (diff) | |
| parent | e52ace05d39636e857f167ed51382cbfbbd22687 (diff) | |
| download | tcl-5ae87ec20df1d7c0029694f15837f9634117a5b8.zip tcl-5ae87ec20df1d7c0029694f15837f9634117a5b8.tar.gz tcl-5ae87ec20df1d7c0029694f15837f9634117a5b8.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index ff606f5..59f656a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -7645,7 +7645,7 @@ ExprIsqrtFunc( if (Tcl_GetBignumFromObj(interp, objv[1], &big) != TCL_OK) { return TCL_ERROR; } - if (big.sign != MP_ZPOS) { + if (mp_isneg(&big)) { mp_clear(&big); goto negarg; } @@ -7919,7 +7919,7 @@ ExprAbsFunc( } if (type == TCL_NUMBER_BIG) { - if (((const mp_int *) ptr)->sign != MP_ZPOS) { + if (mp_isneg((const mp_int *) ptr)) { Tcl_GetBignumFromObj(NULL, objv[1], &big); tooLarge: mp_neg(&big, &big); |