diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 10:51:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 10:51:32 (GMT) |
| commit | 7a211410e5292cce0b031e45fb8d1bf53bd53c4d (patch) | |
| tree | 7954b183d0e57eb55f6eb615494e0d44f8795a00 /generic/tclExecute.c | |
| parent | ea2673fc25ed9e7cc1efba45e2606263dd233841 (diff) | |
| parent | 073fb53334ed464e6a989bbfaf2c7bf69e38fdb3 (diff) | |
| download | tcl-7a211410e5292cce0b031e45fb8d1bf53bd53c4d.zip tcl-7a211410e5292cce0b031e45fb8d1bf53bd53c4d.tar.gz tcl-7a211410e5292cce0b031e45fb8d1bf53bd53c4d.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 027b8f3..2b197c6 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5732,14 +5732,6 @@ TEBCresume( case INST_NUM_TYPE: if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) { type1 = 0; - } else if (type1 == TCL_NUMBER_BIG) { - /* value is an integer outside the WIDE_MIN to WIDE_MAX range */ - /* [string is wideinteger] is WIDE_MIN to WIDE_MAX range */ - Tcl_WideInt w; - - if (TclGetWideIntFromObj(NULL, OBJ_AT_TOS, &w) == TCL_OK) { - type1 = TCL_NUMBER_INT; - } } TclNewIntObj(objResultPtr, type1); TRACE(("\"%.20s\" => %d\n", O2S(OBJ_AT_TOS), type1)); |