diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 11:21:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 11:21:56 (GMT) |
| commit | 36024b4c2dfa88a5b42c42342e1630cb846b59f0 (patch) | |
| tree | d47999a8c08e11fc113066b725060f5e9b8182b7 /generic/tclScan.c | |
| parent | e49055022daf853edd8df42e1f9a6772f4e37422 (diff) | |
| parent | aa93fba41a6764dce6c1f918388efd0f46136ada (diff) | |
| download | tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.zip tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.tar.gz tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 4a5ef38..0a8e9ae 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -916,9 +916,10 @@ Tcl_ScanObjCmd( } if (flags & SCAN_LONGER) { if (Tcl_GetWideIntFromObj(NULL, objPtr, &wideValue) != TCL_OK) { - wideValue = WIDE_MAX; if (TclGetString(objPtr)[0] == '-') { wideValue = WIDE_MIN; + } else { + wideValue = WIDE_MAX; } } if ((flags & SCAN_UNSIGNED) && (wideValue < 0)) { |