diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-10 17:57:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-10 17:57:03 (GMT) |
| commit | d580cedcf5aa02f755820917543c4221ac876026 (patch) | |
| tree | fec319fb5ea060df95e7c2e9f5212009d1173425 /generic/tclOOMethod.c | |
| parent | 1eb28ddde35dc2cf6762759f2a990e1d145802df (diff) | |
| download | tcl-d580cedcf5aa02f755820917543c4221ac876026.zip tcl-d580cedcf5aa02f755820917543c4221ac876026.tar.gz tcl-d580cedcf5aa02f755820917543c4221ac876026.tar.bz2 | |
[Bug 3400658]: Correction to forwarded method magic so that Tcl_WrongNumArgs
produces the right sort of message.
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 4e7edb8..708295a 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1595,7 +1595,7 @@ InitEnsembleRewrite( if (isRootEnsemble) { iPtr->ensembleRewrite.sourceObjs = objv; iPtr->ensembleRewrite.numRemovedObjs = toRewrite; - iPtr->ensembleRewrite.numInsertedObjs = rewriteLength; + iPtr->ensembleRewrite.numInsertedObjs = rewriteLength - 1; } else { int numIns = iPtr->ensembleRewrite.numInsertedObjs; |