diff options
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 836f60b..c2aa439 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -926,6 +926,14 @@ Tcl_WrongNumArgs( Tcl_Obj *const *origObjv = iPtr->ensembleRewrite.sourceObjs; /* + * Check for spelling fixes, and substitute the fixed values. + */ + + if (origObjv[0] == NULL) { + origObjv = (Tcl_Obj *const *)origObjv[2]; + } + + /* * We only know how to do rewriting if all the replaced objects are * actually arguments (in objv) to this function. Otherwise it just * gets too complicated and we'd be better off just giving a slightly @@ -958,12 +966,6 @@ Tcl_WrongNumArgs( elementStr = EXPAND_OF(indexRep); elemLen = strlen(elementStr); - } else if ((irPtr = - Tcl_FetchIntRep(origObjv[i], &tclEnsembleCmdType))) { - register EnsembleCmdRep *ecrPtr = irPtr->twoPtrValue.ptr1; - - elementStr = ecrPtr->fullSubcmdName; - elemLen = strlen(elementStr); } else { elementStr = TclGetStringFromObj(origObjv[i], &elemLen); } @@ -1013,10 +1015,6 @@ Tcl_WrongNumArgs( register IndexRep *indexRep = irPtr->twoPtrValue.ptr1; Tcl_AppendStringsToObj(objPtr, EXPAND_OF(indexRep), NULL); - } else if ((irPtr = Tcl_FetchIntRep(objv[i], &tclEnsembleCmdType))) { - register EnsembleCmdRep *ecrPtr = irPtr->twoPtrValue.ptr1; - - Tcl_AppendStringsToObj(objPtr, ecrPtr->fullSubcmdName, NULL); } else { /* * Quote the argument if it contains spaces (Bug 942757). |