diff options
| -rw-r--r-- | generic/tclCmdMZ.c | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index d57dc69..c94abbd 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1590,21 +1590,9 @@ StringIsCmd( case STR_IS_GRAPH: chcomp = Tcl_UniCharIsGraph; break; - case STR_IS_INT: { - void *p; - int type; - if (TCL_OK == TclGetNumberFromObj(NULL, objPtr, &p, &type)) { - if (type == TCL_NUMBER_LONG -#ifndef TCL_WIDE_INT_IS_LONG - || type == TCL_NUMBER_WIDE -#endif - || type == TCL_NUMBER_BIG) { - /* [string is integer] is -UINT_MAX to UINT_MAX range */ - if (TclGetIntFromObj(NULL, objPtr, &i) == TCL_OK) { - break; - } - } - } + case STR_IS_INT: + if (TCL_OK == TclGetIntFromObj(NULL, objPtr, &i)) { + break; } goto failedIntParse; case STR_IS_ENTIER: |