diff options
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 664e8c0..8510c32 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3298,11 +3298,7 @@ invokeObj2Command( Command *cmdPtr = (Command *) clientData; if (objc > INT_MAX) { - /* Since TCL_INDEX_NONE is an invalid value for objc, - * calling cmdPtr->objProc or cmdPtr->nreProc will - * eventually result in a Tcl_WrongNumArgs() call. - * That's exactly what we want to happen. */ - objc = TCL_INDEX_NONE; + return TclCommandWordLimitError(interp, objc); } if (cmdPtr->objProc != NULL) { result = cmdPtr->objProc(cmdPtr->objClientData, interp, objc, objv); |