summaryrefslogtreecommitdiffstats
path: root/generic/tclIndexObj.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-10-03 00:07:55 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-10-03 00:07:55 (GMT)
commit1037681faceac7ffe7d44b096a1f52ffa1652bc4 (patch)
tree9966604cdb396ec4ca384174447f811f5ac51e35 /generic/tclIndexObj.c
parentea92bd3066f8e943efaaf49aa1482cb2520f06f1 (diff)
downloadtcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.zip
tcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.tar.gz
tcl-1037681faceac7ffe7d44b096a1f52ffa1652bc4.tar.bz2
typofix
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r--generic/tclIndexObj.c8
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;
}