diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 09:51:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 09:51:40 (GMT) |
| commit | 721b319dcb44dc8af3446dbc91de321fd6a5b707 (patch) | |
| tree | 891c88867d71742a1d9b34fe85f247a38c655a39 /generic/tclScan.c | |
| parent | d36751c671764d5351700a2ca73e18f78bd6aae8 (diff) | |
| parent | 8fd0500bc8b2821f46d079ebc6b19bb39a25152e (diff) | |
| download | tcl-721b319dcb44dc8af3446dbc91de321fd6a5b707.zip tcl-721b319dcb44dc8af3446dbc91de321fd6a5b707.tar.gz tcl-721b319dcb44dc8af3446dbc91de321fd6a5b707.tar.bz2 | |
Merge 8.6. Remove some Tcl_Panic()'s which can never happen
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 134f60d..6bc914d 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)) { |