diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 16:16:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-07 16:16:52 (GMT) |
| commit | 42764c99bec23aaae227ff1aba60c1ff9e7d9230 (patch) | |
| tree | 14443b22c4988f8f78a90f4aea972bd7d972ecd7 /generic/tclExecute.c | |
| parent | f941597e4348b467b5cfe51e8572dcc474a38a7e (diff) | |
| download | tcl-42764c99bec23aaae227ff1aba60c1ff9e7d9230.zip tcl-42764c99bec23aaae227ff1aba60c1ff9e7d9230.tar.gz tcl-42764c99bec23aaae227ff1aba60c1ff9e7d9230.tar.bz2 | |
More code simplifications, with still equal functionality.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 51f9bff..68056c6 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5776,7 +5776,7 @@ TEBCresume( { ClientData ptr1, ptr2; int type1, type2; - Tcl_WideInt w1, w2, wResult; + Tcl_WideInt w1, w2, wResult; case INST_NUM_TYPE: if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) { @@ -5787,9 +5787,7 @@ TEBCresume( /* [string is wideinteger] is -UWIDE_MAX to UWIDE_MAX range */ int i; - if (Tcl_GetIntFromObj(NULL, OBJ_AT_TOS, &i) != TCL_OK) { - type1 = TCL_NUMBER_WIDE; - } else { + if (Tcl_GetIntFromObj(NULL, OBJ_AT_TOS, &i) == TCL_OK) { type1 = TCL_NUMBER_LONG; } } else if (type1 == TCL_NUMBER_BIG) { |