diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-04 12:10:54 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-04 12:10:54 (GMT) |
commit | 2b8429142401960e12bcece0205061dd68071ded (patch) | |
tree | a3561a9d8e8c9b868ed9b209b444e7f78e8d38d3 /generic/tclScan.c | |
parent | efe1dce70b548e0af9d8a0e0e6cffbca6faa2cb5 (diff) | |
parent | 493585e80285a37fffbfa04f560a2d37a94d3322 (diff) | |
download | tcl-2b8429142401960e12bcece0205061dd68071ded.zip tcl-2b8429142401960e12bcece0205061dd68071ded.tar.gz tcl-2b8429142401960e12bcece0205061dd68071ded.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclScan.c')
-rw-r--r-- | generic/tclScan.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 78fd3be..67138e6 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -945,7 +945,7 @@ Tcl_ScanObjCmd( int code = Tcl_GetBignumFromObj(interp, objPtr, &big); if (code == TCL_OK) { - if (big.sign != MP_ZPOS) { + if (mp_isneg(&big)) { code = TCL_ERROR; } mp_clear(&big); |