diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-30 21:40:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-30 21:40:01 (GMT) |
| commit | 1e1530a566858ec10cbf77e96dd6abae136ab2e6 (patch) | |
| tree | 31bbf3363b0a4582863fd099b0740ea83edcdfc0 /generic/tclScan.c | |
| parent | af55df92b467626cf57aeff1412167c6e4817420 (diff) | |
| parent | 5ae87ec20df1d7c0029694f15837f9634117a5b8 (diff) | |
| download | tcl-1e1530a566858ec10cbf77e96dd6abae136ab2e6.zip tcl-1e1530a566858ec10cbf77e96dd6abae136ab2e6.tar.gz tcl-1e1530a566858ec10cbf77e96dd6abae136ab2e6.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 ba9ccbe..aa4e9c8 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -942,7 +942,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); |