diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-30 09:54:16 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-30 09:54:16 (GMT) |
| commit | a06189323fd1cff922702342a320ca97977acf5e (patch) | |
| tree | 8518cdea7574c07df5405410133666f2f374094c | |
| parent | 93f06f446985a8f6098a652ac3dbf753ae34f990 (diff) | |
| download | tcl-a06189323fd1cff922702342a320ca97977acf5e.zip tcl-a06189323fd1cff922702342a320ca97977acf5e.tar.gz tcl-a06189323fd1cff922702342a320ca97977acf5e.tar.bz2 | |
Fix one more error message for max arg limit
| -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); |