diff options
| author | dkf <dkf@noemail.net> | 2008-10-03 00:07:54 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2008-10-03 00:07:54 (GMT) |
| commit | eba29d7006c146408bbf25ae37527ecc28b28826 (patch) | |
| tree | 9966604cdb396ec4ca384174447f811f5ac51e35 /generic/tclIndexObj.c | |
| parent | c3bb4d3dbea0b4931eece87039b168fb0f47393b (diff) | |
| download | tcl-eba29d7006c146408bbf25ae37527ecc28b28826.zip tcl-eba29d7006c146408bbf25ae37527ecc28b28826.tar.gz tcl-eba29d7006c146408bbf25ae37527ecc28b28826.tar.bz2 | |
typofix
FossilOrigin-Name: 098e39bd8b25ea383341215cb83a921efdf0f13f
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 2d29adf..4810933 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIndexObj.c,v 1.40 2008/10/03 00:01:35 dkf Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.41 2008/10/03 00:07:55 dkf Exp $ */ #include "tclInt.h" @@ -1234,7 +1234,7 @@ Tcl_ParseArgsObjv( argObj = objv[srcIndex]; } handlerProc = (Tcl_ArgvFuncProc) infoPtr->srcPtr; - if (handlerProc(infoPtr->clientData, infoPtr->dstPtr, argObj)) { + if (handlerProc(infoPtr->clientData, argObj, infoPtr->dstPtr)) { srcIndex++; objc--; } @@ -1244,8 +1244,8 @@ Tcl_ParseArgsObjv( Tcl_ArgvGenFuncProc handlerProc; handlerProc = (Tcl_ArgvGenFuncProc) infoPtr->srcPtr; - objc = handlerProc(infoPtr->clientData, infoPtr->dstPtr, interp, - objc, &objv[srcIndex]); + objc = handlerProc(infoPtr->clientData, interp, objc, + &objv[srcIndex], infoPtr->dstPtr); if (objc < 0) { goto error; } |