summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-12-11 14:41:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-12-11 14:41:09 (GMT)
commit6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1 (patch)
tree0793196b164cbcf147c73905073abe515d84bfd9
parentc5f0eae368ab6a18f4d21796385e963adcd3cf34 (diff)
downloadtcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.zip
tcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.tar.gz
tcl-6e36638f7c05fb239d0b0d56fee36f8b2c62bcd1.tar.bz2
Get the word number right, even though it has no effect.
-rw-r--r--generic/tclCompCmds.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 10cba39..e0dee13 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -411,7 +411,7 @@ TclCompileCatchCmd(
if (parsePtr->numWords == 4) {
optsNameTokenPtr = TokenAfter(resultNameTokenPtr);
PushVarNameWord(interp, optsNameTokenPtr, envPtr, TCL_CREATE_VAR,
- &optsIndex, &isSimple, &isScalar, 2);
+ &optsIndex, &isSimple, &isScalar, 3);
if (!isScalar || resultIndex < 0) {
return TCL_ERROR;
}