diff options
| -rw-r--r-- | doc/Eval.3 | 2 | ||||
| -rw-r--r-- | generic/tclBasic.c | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -51,7 +51,7 @@ ORed combination of flag bits that specify additional options. .AP "const char" *fileName in Name of a file containing a Tcl script. .AP size_t objc in -The number of values in the array pointed to by \fIobjPtr\fR; +The number of values in the array pointed to by \fIobjv\fR; this is also the number of words in the command. .AP Tcl_Obj **objv in Points to an array of pointers to values; each value holds the diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 952c857..b1b35e1 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3340,10 +3340,10 @@ Tcl_SetCommandInfoFromToken( if (infoPtr->objProc2 == NULL) { info->proc = invokeObj2Command; info->clientData = cmdPtr; - info->nreProc = NULL; + info->nreProc = NULL; } else { if (infoPtr->objProc2 != info->proc) { - info->nreProc = NULL; + info->nreProc = NULL; info->proc = infoPtr->objProc2; } info->clientData = infoPtr->objClientData2; @@ -3430,7 +3430,7 @@ Tcl_GetCommandInfoFromToken( /* * Set isNativeObjectProc 1 if objProc was registered by a call to * Tcl_CreateObjCommand. Set isNativeObjectProc 2 if objProc was - * registered by a call to Tcl_CreateObjCommand. Otherwise set it to 0. + * registered by a call to Tcl_CreateObjCommand2. Otherwise set it to 0. */ cmdPtr = (Command *) cmd; |